我创建了以下简单的UserForm1
,其中包含CommandButton1 = Yes
和CommandButton2 = No
:
我通过以下VBA将此称为UserForm1
:
Sub Open_Userform()
Call UserForm1.Show(vbModeless)
End Sub
到目前为止,所有这些都工作正常。
现在,我希望如果用户单击CommandButton1
,则会调用以下VBA:
Sub Finish_Process()
Sheet1.Range("A1").Value = 1
End Sub
因此,我在UserForm1
中向CommandButton1
添加了以下代码:
Private Sub CommandButton1_Click()
Call Finish_Process
End Sub
但是,现在当我单击CommandButton1
时,我会收到错误消息Sub or Function not defined
。
我需要在代码中进行哪些更改才能使其正常工作?
答案 0 :(得分:0)
如评论中所述,如果将Sub Finish_Process ()
存储在模块中而不是在“此工作表”中,则可以解决此问题。