Her Bir Sütundaki Maksimum Değeri Bulma
Her Bir Sütundaki Maksimum Değeri Bulma isimli kullanıcı tanımlı fonksiyon, seçtiğiniz sütunlardaki her maximum değeri ayrı ayrı bulmaktadır.
XD Destek İsteFunction Max_Each_Column(Data_Range As Range) As Variant
Dim TempArray() As Double, i As Long
If Data_Range Is Nothing Then Exit Function
With Data_Range
ReDim TempArray(1 To .Columns.Count)
For i = 1 To .Columns.Count
TempArray(i) = Application.Max(.Columns(i))
Next
End With
Max_Each_Column = TempArray
End FunctionGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu boş bir Module içine eklemeniz gerekecektir. Kullanımı:
=Max_Each_Column(A1:C10) şeklindedir.
Eğer Ofis 365 kullanıcısıysanız, bu kullanıcı tanımlı fonksiyon otomatik olarak bir taşma aralığı oluşturacaktır.
#Her Bir Sütundaki Maksimum Değeri Bulma
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum
Daha önce yorum yapılmamış!
Excel'i kullanırken bir hücreye tıkladıktan sonra, fare ile aşağı/yukarı ilerledikten sonra aktif hücrenin olduğu alana hızlıca geri dönmek için, Ctrl + Backspace kısayolunu kullanabilirsiniz.