Her Bir Sütundaki Maksimum Değeri Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
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.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Function 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 FunctionAçıklama
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.
Faydalanılması temennisiyle