在userform的msgbox上选择“是”时运行一个子程序

Question

我目前有一个用户窗体，其中有3个打印选项。我希望能够单击一个按钮，出现一个带有“ yes”或“ no”选项的msgbox，如果用户选择“ yes”，则运行工作表4上的子程序（我有2个工作表，分别是sheet4和我认为现在代码的问题是“调用板”，VBA识别出子程序“板”，这是将打印出我选择的数据的程序。

Private Sub CommandButton1_Click()
  If MsgBox("Do you want to continue?" & vbCrLf, vbYesNo) = vbYes Then
  Call Slab
  Else
  docmd.Close commandButton_Click


  End Sub

Answer 1

将slab声明为公开，就可以了：

Private Sub CommandButton1_Click()

    Select Case MsgBox("Do you want to continue?" & vbCrLf, vbYesNo)
        Case vbYes
            Slab
        Case vbNo
            'nothing
    End Select

End Sub

Public Sub Slab()
    MsgBox "Here is the SLAB"
End Sub