Tartalomjegyzék
Keresse meg a maximális értéket a tartomány minden oszlopához
A következő függvény visszaadja a tartomány maximális oszlopának maximális értékét:
Funkció Max_Each_Column (Adattartomány tartományként) Változatként Dim TempArray () Dupla, i Amíg Ha Data_Range semmi, akkor lépjen ki a funkcióból Data_Range ReDim TempArray (1 To .Columns.Count) esetén i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Next End with Max_Each_Column = TempArray End Function
Az eredmények megjelenítéséhez használhatunk az alábbi alprogramot:
Privát alparancs B5: g27 ")) For i = 1 to No_of_Cols MsgBox Válasz (i) Következő i End Sub
Így:
A fenti oszlopok mindegyikére 990 907, 992, 976, 988 és 873 értéket ad vissza.
[KÖSZÖNETES KÖSZÖNET MIKE RICKSONNAK, HOGY AZ UDF -BEN belül megoldotta a TÖMEGEK FINERY -jét]
