MessageBox VBA зависит от значения ячейки

Question

Мне нужно всплывающее сообщение с надписью «Пожалуйста, отметьте», когда кто-то вводит число в range(G24:G73), которое не кратно числу в соответствующей ячейке в column F (F24:F73). Другими словами, я хочу получить всплывающее сообщение, если Cell("F24") равно 5, а сомоне набирает Cell("G24") число, которое не 5,10,15,20,25 ......

это код, который у меня есть до сих пор, не уверен, как сформулировать его в VBA, используя функцию MOD

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("G24").value <> ? ? ?

        MsgBox "Please Check UOM quantity"
    End If

End Sub

Может кто-нибудь помочь? Заранее спасибо

Answer 1

То, что вы ищете, называется оператором mod.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G24:G73")) Is Nothing Then
    If Target Mod Target.Offset(0, -1) <> 0 Then
          MsgBox "Please Check UOM quantity"
    End If
End If

End Sub