Πίνακας περιεχομένων
Βρείτε τη μέγιστη τιμή για κάθε στήλη στο εύρος
Η ακόλουθη συνάρτηση θα επιστρέψει τη μέγιστη τιμή σε κάθε στήλη σε μια περιοχή:
Συνάρτηση Max_Each_Column (Data_Range As Range) As Variant Dim TempArray () As Double, i As Long If Data_Range is Nothing then Exit Function With Data_Range ReDim TempArray (1 To .Columns.Count) For i = 1 To .Columns.Count TempArray (i ) = Εφαρμογή. Max (.Στήλες (i)) Επόμενο τέλος με Max_Each_Column = Λειτουργία λήξης TempArray
Μπορούμε να χρησιμοποιήσουμε μια υπορουτίνα όπως η παρακάτω για να εμφανίσουμε τα αποτελέσματα:
Private Sub CommandButton1_Click () Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1") B5: g27 ")) Για i = 1 έως No_of_Cols MsgBox Απάντηση (i) Επόμενο i Τέλος υπο
Ετσι:
Θα επιστρέψει 990.907, 992, 976, 988 και 873 για καθεμία από τις παραπάνω στήλες.
[ΕΙΔΙΚΕΣ ΕΥΧΑΡΙΣΤΙΕΣ ΣΤΟ MIKE RICKSON ΓΙΑ ΤΗΝ ΕΠΙΛΥΣΗ ΤΩΝ ΤΕΛΕΥΤΙΚΩΝ ΤΩΝ ΣΥΝΘΕΣΕΩΝ ΣΤΟ UDF’S]
