Satura rādītājs
Atrodiet maksimālo vērtību katrai diapazona kolonnai
Šī funkcija atgriezīs maksimālo vērtību katrā diapazona kolonnā:
Funkcija Max_Each_Column (datu diapazons kā diapazons) Kā variants Dim TempArray () Kā dubultā, i tik ilgi, ja Data_Range nav nekas, tad iziet no funkcijas ar Data_Range ReDim TempArray (1 līdz .Columns.Count) Attiecībā uz i = 1 uz .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Next End With Max_Each_Column = TempArray End Function
Lai parādītu rezultātus, mēs varam izmantot šādu apakšprogrammu:
Privāta apakškomanda CommandButton1_Click () Dim Atbilde kā variants Dim Nr. B5: g27 ")) Attiecībā uz i = 1 Uz No_of_Cols MsgBox Atbilde (i) Nākamā i Beigu apakšdaļa
Tātad:
Atdos 990 907, 992, 976, 988 un 873 par katru no iepriekš minētajām kolonnām.
[ĪPAŠS PALDIES MIKEAM RIKSONAM PAR MAKSĀJUMU SASTĀVDAĻU RISINĀŠANU UDFS]