Pronađite maksimalnu vrijednost za svaki stupac u rasponu
Sljedeća funkcija vratit će maksimalnu vrijednost u svakom stupcu u rasponu:
Funkcija Max_Each_Column (Data_Range As Range) Kao varijanta Dim TempArray () kao dvostruka, i sve dok Data_Range nije ništa tada izađite iz funkcije s Data_Range ReDim TempArray (1 prema. Stupcima.broj) Za i = 1 prema. Stupcima.broj TempArray (i ) = Application.Max (.Columns (i)) Next End With Max_Each_Column = Funkcija završetka TempArray
Za prikaz rezultata možemo upotrijebiti sljedeću potprogram:
Private Sub CommandButton1_Click () Zatamni odgovor kao varijanta 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 ")) Za i = 1 do No_of_Cols MsgBox odgovor (i) Dalje i Kraj pod
Tako:
Vraća 990,907, 992, 976, 988 i 873 za svaki od gore navedenih stupaca.
[POSEBNO HVALA MIKEU RICKSONU ZA RJEŠAVANJE FINERIJA NIZOVA U UDF -u]