Question

Excel里的VBa提示：编译错误：发现二义性的名称：UserForm_Initialize 是什么原因？要如何修改？

Private Sub UserForm_Initialize()
On Error Resume Next
myArray = Array("学号", "姓名", "性别", "语文", "数学", "品德", "英语", "体育", "音乐", "美术", "总分")
Call 设置节点 '设置TreeViewl控件的节点
End Sub

Private Sub UserForm_Initialize()
Dim j As Integer
Call 年级班级
'为查询年级复合框设置项目
For j = 1 To m
查询年级.AddItem Class(j)
Next j
查询年级.ListIndex = 0
'为查询项目复合框设置项目
myArray = Array("数学", "语文", "英语", "物理", "化学", "生物", "体育", "总分")
For j = 0 To UBound(myArray)
查询项目.AddItem myArray(j)
Next j
查询项目.ListIndex = 0
'为查询条件复合框设置项目
With 查询条件
.AddItem "大于"
.AddItem "等于"
.AddItem "小于"
End With
查询条件.ListIndex = 0
End Sub
但在这两段代码中确实需要“Private Sub UserForm_Initialize()”这一语句啊，这个能删吗？到底应该怎样处理才能正常运行？急！能解决的加分！

Answer 1

Private Sub UserForm_Initialize()
...................
End Sub
这是窗体加载时的代码，不能两次加载，删除其中一个就好了。
建议把第二段代码改一下

追问

请认真看“问题补充”，这个能改吗？要是能改应该怎么改？

追答

Private Sub UserForm_Initialize()
...................
End Sub
把第二个它改到一个按钮上，不能同时加载两段代码呀

Answer 2

因为你有两个一样的过程！也就是有两句
Private Sub UserForm_Initialize()
End Sub
你自己去找找看，把其中一个删了。

追问

请认真看“问题补充”，这个能删除？删除了肯定不行啊，
能改吗？要是能改应该怎么改？

追答

明确的告诉你，不删除肯定不行！
不清楚你想要实现什么，代码也不完整。

Answer 3

在任何程序语言中,名称不能重复的.你有两个initalize,所以肯定出错.
将所有需要进行的操作放到一个过程中,然后将另一个清除即可.