Question

我一直很难找到一个带有msgbox弹出窗口的VBA代码，例如Cell A1为“Yes”，当Cell B1的回答是“No”时，会弹出一个消息框来查看Cell B1中的答案。两个单元格都有下拉列表，因此唯一可能的答案是“是”和“否”

谢谢！

Answer 1

不确定你想要在这里实现什么，但如果你在A和B列中有项目＆＃34;是＆＃34;和＆＃34;不＆＃34;并在选择A和A列中的项目之后B，您想要比较在A列和B列中选择的项目以查看是否选择了不同的项目，请将以下代码放在图纸模块上。

为此，请按照以下步骤操作....

1）右键单击工作表标签 - ＆gt;查看代码 - ＆gt;将下面给出的代码放入打开的代码窗口。

2）关闭VB编辑器并将工作簿保存为启用宏的工作簿。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Dim r As Long
If Not Intersect(Target, Range("A:B")) Is Nothing Then
    r = Target.Row
    If Cells(r, "A") <> "" And Cells(r, "B") <> "" Then
        If Cells(r, "A") <> Cells(r, "B") Then
            MsgBox "Answers provided in column A and B in Row " & r & " don't match.", vbExclamation, "Different Answers!"
        End If
    End If
End If
End Sub

当单元格A =是且单元格B =否

1 个答案: