當單元格A =是且單元格B =否時Excel VBA- Msgbox

Question

我一直很難嘗試找到一個VGS代碼，例如如果單元格A1為“是”，並且當單元格B1的答案為“否”時，將彈出一個msgbox消息框將彈出以查看答案單元格B1。 兩個單元格都將具有下拉菜單，因此唯一可能的答案是“是”和“否”

謝謝！

Answer 1

不確定您要在此處實現的目標是什么，但是如果您在A和B列中有“是”和“否”項的下拉列表，並且在選擇了A和B列中的項之后，則要比較在列中選擇的項要查看是否選擇了不同的項目，請在A和B上將以下代碼放置在圖紙模塊上。

為此，請按照下列步驟操作。

1）右鍵單擊工作表標簽->查看代碼->將下面給出的代碼放入打開的代碼窗口中。

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