проверка Excel, находится ли пользовательский ввод в пределах диапазона

Question

Я только начал изучать макрос Excel и хочу создать электронную таблицу, которая будет проверять ошибки на верхний и нижний пределы. сначала устанавливая пределы (пользователь может выбрать их для одного случая), а затем запрашивая три входа для емкости, я хочу проверить, находятся ли эти значения в указанном диапазоне, может кто-нибудь, пожалуйста, укажите мне правильное направление, спасибо

Answer 1

Читая ваш вопрос, я не знаю, запрашиваете ли вы диапазон ячеек или диапазон значений, поэтому:

Альтернатива 1:

Этот код будет проверять, находятся ли ячейки в диапазоне «A1: B3».

Вы должны поместить его за кодом листа

Настройте его в соответствии со своими потребностями

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim evalRange As Range

    Set evalRange = Me.Range("A1:B3")

    If Not Intersect(Target, evalRange) Is Nothing Then

        MsgBox "User changed something within evaluated range"

    End If

End Sub

Альтернатива 2

Поместите этот код в стандартный модуль VBA, запустите его с помощью F8 или F5 и отрегулируйте его так, чтобы он подходил Ваши потребности:

Public Sub AskForValues()

    Dim inputValue As Variant
    Dim lowerLimit As Long
    Dim upperLimit As Long

    lowerLimit = 1
    upperLimit = 10

    inputValue = InputBox("Please enter a value")


    If Not IsNumeric(inputValue) Then
        MsgBox "The value you entered is not a number"
        Exit Sub
    End If

    If inputValue < lowerLimit Or inputValue > upperLimit Then
        MsgBox "The value you entered is not within range"
        Exit Sub
    End If

    MsgBox "you entered..." & inputValue

End Sub

Не забудьте пометить ответ, если он поможет.