İçindekiler
Aralıktaki Her Sütun İçin Maksimum Değeri Bul
Aşağıdaki işlev, bir Aralıktaki her Sütundaki Maksimum Değeri döndürür:
Fonksiyon Max_Each_Column(Aralık Olarak Veri_Aralığı) Varyant Olarak Dim TempArray() Olarak Double, i Uzun Olarak Data_Range Hiçbir Şey Değilse O Zaman Çıkış Data_Range ile Fonksiyon ReDim TempArray(1 To .Columns.Count) For i = 1 To .Columns.Count TempArray(i ) = Application.Max(.Columns(i)) Max_Each_Column ile Sonraki Son = TempArray Bitiş İşlevi
Sonuçları görüntülemek için aşağıdaki gibi bir alt program kullanabiliriz:
Private Sub CommandButton1_Click() Dim Yanıt Değişken Olarak Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range("B5:G27").Columns.Count ReDim Cevap(No_of_Cols) Answer = Max_Each_Column(Sheets("Sheet1").Range). B5:g27")) i = 1 için No_of_Cols MsgBox Cevap(i) Sonraki i End Sub
Yani:
Yukarıdaki sütunların her biri için 990.907, 992, 976 ,988 ve 873 döndürür.
[UDF'LER İÇERİSİNDEKİ DİZİLERİN İNCELEMELERİNİ ÇÖZDÜĞÜ İÇİN MIKE RICKSON'A ÖZEL TEŞEKKÜRLER ]
