Lang L: none (table-of-contents)
Leidke vahemiku iga veeru maksimaalne väärtus
Järgmine funktsioon tagastab maksimaalse väärtuse igas vahemiku veerus:
Funktsioon Max_Each_Column (andmevahemik vahemikuna) Variandina Dim TempArray () Kahekordne, i nii kaua kui Data_Range pole midagi, siis väljuge funktsioonist Data_Range ReDim TempArray (1 kuni .Column.Count) i = 1 kuni .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Järgmine lõpp Max_Each_Column = TempArray lõppfunktsioon
Tulemuste kuvamiseks saame kasutada järgmist alamprogrammi:
Privaatne alamkäsk CommandButton1_Click () Dim Vastus variandina Dim No_of_Cols Nagu täisarv Dim i As Integer No_of_Cols = Vahemik ("B5: G27"). B5: g27 ")) For i = 1 To No_of_Cols MsgBox Answer (i) Next i End Sub
Niisiis:
Tagastab iga ülaltoodud veeru korral 990 907, 992, 976, 988 ja 873.
[ERILINE TÄNU MIKE RICKSONILE, ET LAHENDASID VÄLJAKUJUTISTE UDF -I JUURES]
