Question

我有一个问题，我现在还无法解决。我在表格上放了一个按钮。如果不写代码。我可以毫无问题地点击它。如果我写一些代码然后评论此代码我得到此错误：Sub或函数未定义。我该如何解决这个问题？

Private Sub Command40_Click()
'Dim fso As New FileSystemObject
'Dim ts As TextStream
'Dim Name, Line As String
'Dim regn As New regexp
'Dim regx As New regexp
'Dim regend As New regexp
'Dim regxnum As New regexp
'Dim swknnf As Boolean
'Dim matchkennfeld, matchstx, matchend, matchxnum As MatchCollection
' Name = util1.fDateiName("*.DCM", "Text")
' Set ts = fso.OpenTextFile(Name, ForReading)
'Do While Not ts.AtEndOfStream
' set Line = ts.ReadLine
 'regn.Pattern = "KENNFELD\s+([A-Z 0-9]*)"
  ' regx.Pattern = "\s*(ST/X)\s*([0-9]*\.[0-9]*\s*)+"
  ' regxnum.Pattern = "\s*[0-9]*\.[0-9]*\s*"
  ' regend.Pattern = "\s*(END)\s*"
 ' Set matchkennfeld = regn.Execute(Line)
 ' Set matchstx = regx.Execute(Line)
 ' Set matchend = regend.Execute(Line)
 ' If matchkennfeld.Count <> 0 Then
 '   swknnf = True
 ' End If
 ' If matchend.Count <> 0 Then
 '   swknnf = False
 ' End If
' If matchstx.Count <> 0 And swknnf = True Then
'    Set matchxnum = regxnum.Execute(Mid(Trim(matchstx.Item(0)), 5))
'    For Each Match In matchxnum
'      MsgBox Match
'    Next Match
' End If
'Loop
End Sub

Answer 1

复制现有代码（仅限注释行）并将其粘贴到记事本中。在“设计视图”中打开表单。如果“属性表”窗口已打开，则只需单击Command40按钮将其选中，否则右键单击按钮并选择“属性”。

在属性表的“事件”选项卡上，删除On Click的任何现有值，然后单击省略号按钮（...）并选择“代码生成器”。这将打开Sub处的VBA编辑器，该编辑器现在被定义为按钮的.OnClick事件处理程序。将（注释掉的）代码粘贴在那里。

返回访问权限并验证按钮的On Click条目现在显示为[Event Procedure]。切换到窗体视图，然后单击按钮。此时它仍然不应该做任何事情（因为你的代码仍然被注释掉），但它也不应该产生错误。

vba中的Sub或Function未定义错误

1 个答案: