Ответы 1
Sub aaa()
a = CInt(InputBox("Введите А"))
i = 27
Do While i >= 5
If Cells(i, 2) = a Then
MsgBox "Значение найдено в строке " + CStr(i)
Exit Sub
End If
i = i - 1
Loop
MsgBox "Значение не найдено"
End Sub
a = CInt(InputBox("Введите А"))
i = 27
Do While i >= 5
If Cells(i, 2) = a Then
MsgBox "Значение найдено в строке " + CStr(i)
Exit Sub
End If
i = i - 1
Loop
MsgBox "Значение не найдено"
End Sub
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?