Raskite didžiausią kiekvieno diapazono stulpelio vertę
Ši funkcija grąžins didžiausią vertę kiekviename diapazono stulpelyje:
Funkcija Max_Each_Column (duomenų diapazonas kaip diapazonas) Kaip variantas Dim TempArray () Dvigubas, i tol, kol Data_Range nieko nėra, tada išeikite iš funkcijos su Data_Range ReDim TempArray (nuo 1 iki .Columns.Count), kai i = 1 iki .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Next End with Max_Each_Column = TempArray End Function
Rezultatams rodyti galime naudoti tokią paprogramę:
Privatus antrinis CommandButton1_Click () Dim Atsakymas kaip variantas Dim No_of_Cols Kaip sveikas skaičius Dim i As Integer No_of_Cols = Diapazonas ("B5: G27"). Stulpeliai.Skaičiuoti ReDim atsakymą (No_of_Cols) Atsakymas = Max_Each_Column (Sheets ("Sheet1"). Range ( B5: g27 ")) Jei i = 1 Iki No_of_Cols MsgBox Atsakymas (i) Kitas i Pabaiga
Taigi:
Pateiks 990 907, 992, 976, 988 ir 873 už kiekvieną iš aukščiau pateiktų stulpelių.
[YPATINGAS AČIŪ MIKIUI RICKSONUI, UŽ SUTARČIUS PASIŪLYTI PASKIRTIES MASAS SU UDF'S]
