Etsi kunkin alueen sarakkeen enimmäisarvo - VBA -koodiesimerkkejä

Etsi enimmäisarvo jokaiselle alueen sarakkeelle

Seuraava toiminto palauttaa suurimman arvon kussakin alueen sarakkeessa:

Toiminto Maks. ) = Application.Max (.Columns (i)) Next End With Max_Each_Column = TempArray End Function

Voimme käyttää seuraavaa aliohjelmaa tulosten näyttämiseen:

Yksityinen alikomento CommandButton1_Click () Dim Vastaus vaihtoehtona Dim No_of_Cols kokonaislukuna Dim i Kuten kokonaisluku No_of_Cols = Alue ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1"). Range (" B5: g27 ")) For i = 1 To No_of_Cols MsgBox Answer (i) Next i End Sub

Niin:

Palauttaa 990 907, 992, 976, 988 ja 873 kullekin yllä oleville sarakkeille.
[ERIKOISET KIITOKSET MIKE RICKSONILLE JALKOJEN HIENOJEN RATKAISEMISESTA UDF: N KANSSA]