Суббота, Май 30, 2020

Запрос значения в я чейку

Sub GetValue()
   Dim UserEntry As Variant
   Dim Msg As String
   Const MinVal As Integer = 1
   Const MaxVal As Integer = 12
   Msg = "Введите значение между " & MinVal & " и " & MaxVal
   Do
      UserEntry = InputBox(Msg)
      If UserEntry = "" Then Exit Sub
      If IsNumeric(UserEntry) Then
         If UserEntry >= MinVal And UserEntry <= MaxVal Then Exit Do
      End If
      Msg = "Вы ввели НЕПРАВИЛЬНОЕ значение"
      Msg = Msg & vbNewLine
      Msg = Msg & "Введите значение от " & _
         MinVal & " и " & MaxVal
    Loop
    ActiveSheet.Range("A1").Value = UserEntry
End Sub

Back to Top