已解决【不知出现“用户定义类型未定义”如何解决？】

JLF2003

一运行宏，就会在楷体加大部分显示“用户定义类型未定义”，不知如何处理？请大师出手帮一帮。谢谢！
四楼cflood 老师已经解决。

Private Sub UserForm_Initialize()
On Error Resume Next
MultiPage1.Value = 0
Dim Nodx As Node, RN, R, RX As Long
Set Me.TreeView1.ImageList = Me.ImageList1
Set Me.TreeView2.ImageList = Me.ImageList1
Set Me.TreeView3.ImageList = Me.ImageList1
Set Me.TreeView4.ImageList = Me.ImageList1
Set Me.TreeView5.ImageList = Me.ImageList1
With Sheets("凭证信息录入")
    RN = .[N65536].End(xlUp).Row
   
    Set Nodx = TreeView1.Nodes.Add(, , "会计科目", "资产类会计科目", 1, 2)
    For R = 2 To RN
         C1 = .Cells(R, 13)
         C2 = .Cells(R, 15)
         If Mid(.Cells(R, 13), 1, 1) = 1 Then
              If ActiveSheet.Name = "凭证信息录入" Or 记账凭证.Visible = True Then
                   If Len(.Cells(R, 13)) = 4 Then
                        Set Nodx = TreeView1.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
                   ElseIf Len(.Cells(R, 13)) = 6 Then
                        Set Nodx = TreeView1.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
                   ElseIf Len(.Cells(R, 13)) = 8 Then
                        Set Nodx = TreeView1.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
                   End If
              ElseIf ActiveSheet.Name = "明细分类账" And Mid(.Cells(R, 13), 1, 2) <> 10 Then
                   If Len(.Cells(R, 13)) = 4 Then
                        Set Nodx = TreeView1.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
                   ElseIf Len(.Cells(R, 13)) = 6 Then
                        Set Nodx = TreeView1.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
                   ElseIf Len(.Cells(R, 13)) = 8 Then
                        Set Nodx = TreeView1.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
                   End If
              End If
         Else
              RX = R
              Exit For
         End If
    Next

    Set Nodx = TreeView2.Nodes.Add(, , "会计科目", "负债类会计科目", 1, 2)
    For R = RX To RN
         C1 = .Cells(R, 13)
         C2 = .Cells(R, 15)
         If Mid(.Cells(R, 13), 1, 1) = 2 Then
              If Len(.Cells(R, 13)) = 4 Then
                   Set Nodx = TreeView2.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 6 Then
                   Set Nodx = TreeView2.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 8 Then
                   Set Nodx = TreeView2.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
              End If
         Else
              RX = R
              Exit For
         End If
    Next
   
    Set Nodx = TreeView3.Nodes.Add(, , "会计科目", "所有者权益类会计科目", 1, 2)
    For R = RX To RN
         C1 = .Cells(R, 13)
         C2 = .Cells(R, 15)
         If Mid(.Cells(R, 13), 1, 1) = 3 Then
              If Len(.Cells(R, 13)) = 4 Then
                   Set Nodx = TreeView3.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 6 Then
                   Set Nodx = TreeView3.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 8 Then
                   Set Nodx = TreeView3.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
              End If
         Else
              RX = R
              Exit For
         End If
    Next
   
    Set Nodx = TreeView4.Nodes.Add(, , "会计科目", "成本类会计科目", 1, 2)
    For R = RX To RN
         C1 = .Cells(R, 13)
         C2 = .Cells(R, 15)
         If Mid(.Cells(R, 13), 1, 1) = 4 Then
              If Len(.Cells(R, 13)) = 4 Then
                   Set Nodx = TreeView4.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 6 Then
                   Set Nodx = TreeView4.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 8 Then
                   Set Nodx = TreeView4.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
              End If
         Else
              RX = R
              Exit For
         End If
    Next
   
    Set Nodx = TreeView5.Nodes.Add(, , "会计科目", "损益类会计科目", 1, 2)
    For R = RX To RN
         C1 = .Cells(R, 13)
         C2 = .Cells(R, 15)
         If Mid(.Cells(R, 13), 1, 1) = 5 Then
              If Len(.Cells(R, 13)) = 4 Then
                   Set Nodx = TreeView5.Nodes.Add("会计科目", tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 6 Then
                   Set Nodx = TreeView5.Nodes.Add("A" & Left(C1, 4), tvwChild, "A" & C1, C2, 1, 2)
              ElseIf Len(.Cells(R, 13)) = 8 Then
                   Set Nodx = TreeView5.Nodes.Add("A" & Left(C1, 6), tvwChild, "A" & C1, C2, 1, 2)
              End If
         Else
              Exit For
         End If
    Next
   
End With
End Sub
请阅附件：
Book1.rar (70.56 KB, 下载次数: 222)

2010-3-17 21:50 上传

点击文件名下载附件

[ 本帖最后由 JLF2003 于 2010-3-17 21:52 编辑 ]

cflood

缺引用。。

JLF2003

原帖由 cflood 于 2010-3-17 21:12 发表
缺引用。。

我知道是缺引用，但是不知缺哪个引用，下午试验了不少引用，都无效。望老师指教！
谢谢！

[ 本帖最后由 JLF2003 于 2010-3-17 21:17 编辑 ]

cflood

试试MS common controls

JLF2003

原帖由 cflood 于 2010-3-17 21:22 发表
试试MS common controls

-------------------------------------------
谢谢老师！解决了，整整二天时间都没有解决，你一下就指出了，高手就是高手。
学习，学习，再学习！

wekido

cflood 发表于 2010-3-17 21:22
试试MS common controls

请问在哪里可以打开这个东西，找遍了，我是office 2003

JLF2003

wekido 发表于 2012-10-23 01:29
请问在哪里可以打开这个东西，找遍了，我是office 2003

打开VBE---工具-----引用

じ☆ve記事本

cflood 发表于 2010-3-17 21:22
试试MS common controls

找不到怎么办，在哪可以下载，把链接发给我，谢谢

vvcoco123

学习收藏了。好多都不懂，慢慢消化中

danhanqing

wekido 发表于 2012-10-23 01:29
请问在哪里可以打开这个东西，找遍了，我是office 2003

有些老师把咱们都当成高手了呵呵，我也是新手！
方法如下：
1、进入代码编辑窗口（VBA窗口）
2、点菜单上的“工具”
3、点“引用”
4、点“浏览”
5、确定安装的OFFICE是32位元版还是64位元版，下面选择的位置可能不一样的
6、如果是32位OFFICE，请将查找范围定在system32，将文件类型选择为ActiveX 控件
     如果是64位OFFICE，请将查找范围定在SysWOW64，将文件类型选择ActiveX 控件
7、找到comctl32.ocx(或在文件名中直接输入）
8、打开就行了。