Poiščite največjo vrednost za vsak stolpec v razponu
Naslednja funkcija bo vrnila največjo vrednost v vsakem stolpcu v obsegu:
Funkcija Max_Each_Column (Podatkovni obseg kot obseg) Kot varianta Dim TempArray () kot dvojno, i tako dolgo, če Data_Range ni nič, potem zapustite funkcijo z Data_Range ReDim TempArray (1 do. Stolpcev. Število) Za i = 1 do. Stolpcev. ) = Application.Max (. Stolpci (i)) Naslednji konec z Max_Each_Column = Funkcija konca TempArray
Za prikaz rezultatov lahko uporabimo naslednjo podprogram:
Private Sub CommandButton1_Click () Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1"). Range B5: g27 ")) For i = 1 To No_of_Cols MsgBox Answer (i) Next i End Sub
Torej:
Vrne 990,907, 992, 976, 988 in 873 za vsakega od zgornjih stolpcev.
[POSEBNA HVALA MIKEU RICKSONU ZA REŠITEV FINERIJ NIZOV ZNOS UDF -a]
