Намерете максималната стойност за всяка колона в диапазона
Следващата функция ще върне максималната стойност във всяка колона в диапазон:
Функция 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 ) = Application.Max (.Columns (i)) Next End With 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"). Range B5: g27 ")) For i = 1 To No_of_Cols MsgBox Отговор (i) Следващ i End Sub
Така:
Ще върне 990 907, 992, 976, 988 и 873 за всяка от горните колони.
[СПЕЦИАЛНИ БЛАГОДАРНОСТ НА МАЙК РИКСОН ЗА РЕШЕНИЕТО НА ФИНЕРИИТЕ НА МОТИВИ В СЪДЪРЖАНИЕТО НА СДС]
