运行以下代码时，提示产生编译错误“子过程或函数未定义”，出现在mydic（）位置？

mx94722 · 发表于 2024-1-15 16:49

本帖最后由 mx94722 于 2024-1-16 09:49 编辑

Private Sub 镇街_Change()
村社.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If 镇街.Value <> "" Then 村社.List = mydic(镇街.Value).keys
End Sub
Private Sub 村社_Change()
组.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If 村社.Value <> "" Then 组.List = mydic(镇街.Value)(村社.Value).keys
End Sub
Private Sub UserForm_Activate() '将数据装入数组
myarr = Range("镇街数据!a1").CurrentRegion.Value
Set mydic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(myarr)
strF = myarr(i, 1)
strS = myarr(i, 2)
strT = myarr(i, 3)
If Not mydic.Exists(strF) Then
'建立嵌套字典，第一重字典的键对应的键值为字典
Set mydicTemp = CreateObject("Scripting.Dictionary")
Set mydic(strF) = mydicTemp
End If
If Not mydic(strF).Exists(strS) Then
Set mydicTemp2 = CreateObject("Scripting.Dictionary")
Set mydic(strF)(strS) = mydicTemp2
End If
mydic(strF)(strS)(strT) = ""
Next i
'一级下拉框对应的是第一级字典的键
镇街.List = mydic.keys
End Sub

3190496160 · 发表于 2024-1-15 20:42

没有附件肯定是没法帮你的

qline302 · 发表于 2024-1-15 20:50

mydic应该放置模块代码顶部，则可定义为gobal变量。不然private sub不会调用。

mx94722 · 发表于 2024-1-16 09:14

Private Sub 镇街_Change()
村社.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If 镇街.Value <> "" Then 村社.List = mydic(镇街.Value).keys
End Sub
Private Sub 村社_Change()
组.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If 村社.Value <> "" Then 组.List = mydic(镇街.Value)(村社.Value).keys
End Sub
Private Sub UserForm_Activate() '将数据装入数组
myarr = Range("镇街数据!a1").CurrentRegion.Value
Set mydic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(myarr)
strF = myarr(i, 1)
strS = myarr(i, 2)
strT = myarr(i, 3)
If Not mydic.Exists(strF) Then
'建立嵌套字典，第一重字典的键对应的键值为字典
Set mydicTemp = CreateObject("Scripting.Dictionary")
Set mydic(strF) = mydicTemp
End If
If Not mydic(strF).Exists(strS) Then
Set mydicTemp2 = CreateObject("Scripting.Dictionary")
Set mydic(strF)(strS) = mydicTemp2
End If
mydic(strF)(strS)(strT) = ""
Next i
'一级下拉框对应的是第一级字典的键
镇街.List = mydic.keys
End Sub

micch · 发表于 2024-1-16 09:29

这代码阅读起来真费劲

字典未定义，应该是在使用字典的过程中，没有声明这个变量为字典对象

mx94722 · 发表于 2024-1-16 09:48

micch 发表于 2024-1-16 09:29
这代码阅读起来真费劲

字典未定义，应该是在使用字典的过程中，没有声明这个变量为字典对象

怎么声明呢？谢谢！初学，不是很懂。

mx94722 · 发表于 2024-1-17 09:53

3190496160 发表于 2024-1-15 20:42
没有附件肯定是没法帮你的

附件来了，麻烦你看一下，谢谢！

3190496160 · 发表于 2024-1-17 11:45

3190496160 · 发表于 2024-1-17 11:45

测试.rar (38.47 KB, 下载次数: 0)

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

[求助] 运行以下代码时，提示产生编译错误“子过程或函数未定义”，出现在mydic（）位置？