Question

我正在尝试编写一个代码，如果某人在弹出的msgbox上单击“是”，他们将被定向到另一个工作表和特定的单元格。

我的问题是，是否可能基于所选单元格具有多个msgbox？如果有人要选择E34，则弹出正确的相应msgbox？在使用If If定向到正确的页面/单元格时？

所有工作表都在一个工作簿文档中。

Sub PopupBox()

    Dim answer As Integer

    answer = MsgBox("Add Comments or Images to Category?", vbYesNo + vbQuestion, "Comment")

    If answer = vbYes Then

    ActiveWorkbook.Sheets("Comments").Range ("B7")

    Else
        'do nothing
    End If

End Sub

Answer 1

如果要选择该单元格，则需要先激活工作表：

ActiveWorkbook.Sheets("Comments").Activate
ActiveWorkbook.Sheets("Comments").Range("B7").Select

Answer 2

只需将每个人的出色注释放入代码中（并添加我自己的一个小改动）：

Sub PopupBox()
    If MsgBox("Add Comments or Images to Category?", vbYesNo + vbQuestion, "Comment") = vbYes Then
         ActiveWorkbook.Sheets("Comments").Activate
         ActiveWorkbook.Sheets("Comments").Range ("B7")
    End If
End Sub

在大多数情况下，我会完全按照将MsbBox响应分配给变量的方式进行操作，但是在这种简单的操作中，我不会理会多余的代码，而只是将MsgBox直接放入“ If”中

使用MsgBox，然后使用If If打开另一个工作表

2 个答案: