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

JLF2003 · 发表于 2010-3-17 21:06

一运行宏，就会在楷体加大部分显示“用户定义类型未定义”，不知如何处理？请大师出手帮一帮。谢谢！
四楼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)

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

cflood · 发表于 2010-3-17 21:12

缺引用。。

JLF2003 · 发表于 2010-3-17 21:16

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

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

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

cflood · 发表于 2010-3-17 21:22

试试MS common controls

JLF2003 · 发表于 2010-3-17 21:45

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

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

wekido · 发表于 2012-10-23 01:29

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

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

JLF2003 · 发表于 2012-10-26 18:56

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

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

じ☆ve記事本 · 发表于 2013-10-30 23:29

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

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

vvcoco123 · 发表于 2015-3-4 14:17

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

danhanqing · 发表于 2017-11-14 11:55

本帖最后由 danhanqing 于 2017-11-14 11:58 编辑

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、打开就行了。

		自动登录	找回密码
密码			免费注册

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

评分