функции в vba

Ответ от Viradhu[эксперт]
на вот. сам разбирайся:
Sub ExitForDemo()
MaxVal = Application.WorksheetFunction.Max(Range("A:A"))
For Row = 1 To 65536
Set TheCell = Range("A1").Offset(Row - 1, 0)
If TheCell.Value = MaxVal Then
MsgBox "Максимальнее значение находится в строке " & Row
TheCell.Activate
Exit For
End If
Next Row
End Sub
Максимальное значение в столбце вычисляется с помощью функции Excel MAX. Затем это
значение присваивается переменной MaxVal. Цикл For-Next проверяет каждую ячейку в
столбце. Если определенная ячейка равна MaxVal, оператор Exit For заканчивает проце-
дуру. Однако перед выходом из цикла проиедура сообщает пользователю о расположении ис-
комой ячейки и активизирует ее.
готовый код:
A = Application.WorksheetFunction.Max(Val(InputBox("введите A:")), Val(InputBox("введите B:")), Val(InputBox("введите C:"))
Александр Sasser
Профи
(805)
вот! держи!
A = Application.WorksheetFunction.Max(Val(InputBox("введите A:")), Val(InputBox("введите B:")), Val(InputBox("введите C:"))