Question

excel2007 为什么显示编译错误：用户定义类型未定义！

代码如下，为什么复制到新的表格中就显示：用户定义类型未定义呢？

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean){就是这行总是提示未定义}
ActiveCell.Value = Left(ListBox1.Value, InStr(ListBox1.Value, "■") - 1)
ActiveSheet.Range("b" & ActiveCell.Row).Value = Mid(ListBox1.Value, WorksheetFunction.Find("■", ListBox1.Value) + 1, WorksheetFunction.Find("◆", ListBox1.Value) - WorksheetFunction.Find("■", ListBox1.Value) - 1)
ActiveSheet.Range("c" & ActiveCell.Row).Value = Mid(ListBox1.Value, InStr(ListBox1.Value, "◆") + 1, Len(ListBox1.Value) - InStr(ListBox1.Value, "◆"))
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End Sub
原文档里没有看到窗体啊！该怎么定义呢 ？

这个效果是怎么出来的呢？





Answer 1

首先，你把代码复制过去之前得把控件“ListBox1”也复制过去或是新建一个ListBox控件；
其次，如果你的把控件复制过去，那得看一下名称是不是ListBox1，否则也不行。

追问

谢谢你！我明白了！

Answer 2

这应该是某个窗体控件的执行代码，你窗体定义了吗？

追问

嗯嗯 是的 是窗体代码 这个我不太懂 能告诉我怎么定义窗体吗？谢谢！

追答

这个说起来就复杂了，不是一两句话能说清的了。代码你不是考过来的吗？何不把原来的文件拿来用。

追问

我已经做好了一个小的流程系统，只差这么一个操作了！所以原文件用不了！

追答

方便的话把文件传上来看看

Answer 3

缺少Me吧？

追问

该怎么修改啊？我不太懂 为什么同样的代码我复制到新的表格就变成这样了呢？