Visual Basic Msgbox检查一个单元格是否是其他单元格的多个？

Question

我正在创建用户互动表单。我有两个单元格（假设A1和B1）。现在已经定义了A1的值，用户必须为B1输入值，使其为A1的倍数。如果他没有输入A1的倍数，我可以显示一个msgbox吗？

Answer 1

只要B1发生更改，下面的代码就会运行。如果您只想将其添加到UserForm的代码中，该代码采用我标记的if命令。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("B1")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        // THIS CHECKS B1 AS A MULTIPLE OF A1
        If Range("B1").Value Mod Range("A1").Value <> 0 Then
            MsgBox "B1 is not a multiple of A1!"
        End If
        // END OF CHECK

    End If
End Sub