[已解决]如何把复合框输入的内容保存到下拉列表中并且是唯一值

1qazwsx

菜鸟的问题问题很多，请高手们指教！谢谢了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-1 23:26

1. Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     If Len(ComboBox1.Text) = 0 Then Exit Sub
   
3.     If ComboBox1.ListIndex = -1 Then
   
4.         ComboBox1.AddItem ComboBox1.Text
   
5.     End If
   
6. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

先F1看看复合框的属性。
你说的是窗体的复合框不？

1qazwsx

是的，请帮帮菜鸟

hwc2ycy

http://www.excelpx.com/thread-290731-1-1.html

hwc2ycy

1. Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     If ComboBox1.ListIndex = -1 Then
   
3.         ComboBox1.AddItem ComboBox1.Text
   
4.     End If
   
5. End Sub

复制代码

hwc2ycy

可以再对TEXT做判断，以免把空白值加入列表中。

hwc2ycy

1. Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     If Len(ComboBox1.Text) = 0 Then Exit Sub
   
3.     If ComboBox1.ListIndex = -1 Then
   
4.         ComboBox1.AddItem ComboBox1.Text
   
5.     End If
   
6. End Sub

复制代码

1qazwsx

谢谢了，很好用，精简