[已解决]vba 用户窗体>复合框>下拉菜单 数据重复

lotgot

各位老师好，小弟目前遇到一个关于用户窗体的问题 ，我发现每点一次下来菜单的图标，里面的内容都会重复增加，已附上截图与代码，请老师协助~谢谢

1. Private Sub company_DropButtonClick()
   
2. 'company code
   
3.     Me.company.AddItem "A"
   
4.     Me.company.AddItem "B"
   
5.     Me.company.AddItem "C"
   
6.     Me.company.AddItem "D"
   
7.     Me.company.AddItem "E"
   
8. 
   
9.    
   
10. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-8-16 11:01

这个代码应该写在UserForm_Initialize里。
不能写在DropButtonClick里
下面供参考：

1. Private Sub UserForm_Initialize()
   
2. With ComboBox1
   
3.     For i = 1 To 5
   
4.         .AddItem Chr(64 + i)
   
5.     Next
   
6.     .Style = fmStyleDropDownList
   
7. End With
   
8. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

这个代码应该写在UserForm_Initialize里。
不能写在DropButtonClick里
下面供参考：

1. Private Sub UserForm_Initialize()
   
2. With ComboBox1
   
3.     For i = 1 To 5
   
4.         .AddItem Chr(64 + i)
   
5.     Next
   
6.     .Style = fmStyleDropDownList
   
7. End With
   
8. End Sub

复制代码

lotgot

gufengaoyue 发表于 2016-8-16 11:01
这个代码应该写在UserForm_Initialize里。
不能写在DropButtonClick里
下面供参考：

谢谢老师，您的回复完全的解决了我的问题，只是我这边还有一点小小的疑问
请问要如何写或者如何排版才可以让TAP 或者 回车 Enter 进行下一个填写呢 ？我这边这两个键切换位置都乱跳
希望老师解答～