Как отменить ввод в первом InputBox, если во втором InputBox ничего не ввели? VBA

Question

Есть два InputBox, в первом спрашивается имя, а во втором оценка. Как сделать так, что если вначале ввели имя, но затем не ввели оценку, то результат первого InputBox удаляется? (VBA)

vikttur · Answer

После ввода имени записать его в переменную. Если оценка во втором InputBox не введена, завершить работу.
Sub testInput()
    Dim vName As Variant
    Dim lRating As Long
    
    vName = Application.InputBox("Впишите имя")
    If vName = "" Or vName = False Then Exit Sub

lRating = Application.InputBox("Впишите оценку")
    
    If Val(lRating) > 0 Then
        Range("A2").Value = vName
        Range("B2").Value = lRating
    End If
End Sub

Как отменить ввод в первом InputBox, если во втором InputBox ничего не ввели? VBA

One Answer

Add your own answers!

Ask a Question