[已解决][求助] 怎么实现这样的操作？

hamsik11

如附件所示，a列为数据，第一行是变量名city。我在考虑这样的一个操作：我如果在文本框里输入变量名city，下面的组合框会出现city变量下面各个城市的列表。我现在初步的打算是再做一个按钮，输入city以后，摁下按钮，然后根据第一列的数据做一个字典，然后字典的key赋值给组合框。可这么做似乎有点麻烦，有没有更好的方法？输入city以后可以让组合框自动出现城市的列表？
谢谢啦

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-3-29 15:00

1. 
   
2. 
   
3. Private Sub TextBox1_Change()
   
4.     On Error Resume Next
   
5.     Dim Arr, i&, d, s$, m As Byte
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     s = UCase(TextBox1.Text)
   
8.     Arr = Range("a1").CurrentRegion
   
9.     m = Application.Match(s, Application.Index(Arr, 1, 0), 0)
   
10.     If Err.Number = 0 Then
    
11.         For i = 2 To UBound(Arr)
    
12.             d(Arr(i, m)) = ""
    
13.         Next i
    
14.         ComboBox1.List = d.keys
    
15.     Else
    
16.         ComboBox1.Clear
    
17.     End If
    
18.    
    
19. End Sub

复制代码

一个事件代码就可以了。
具体看附件设置。

跳转到最佳答案楼层

liuguansky

1. 
   
2. 
   
3. Private Sub TextBox1_Change()
   
4.     On Error Resume Next
   
5.     Dim Arr, i&, d, s$, m As Byte
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     s = UCase(TextBox1.Text)
   
8.     Arr = Range("a1").CurrentRegion
   
9.     m = Application.Match(s, Application.Index(Arr, 1, 0), 0)
   
10.     If Err.Number = 0 Then
    
11.         For i = 2 To UBound(Arr)
    
12.             d(Arr(i, m)) = ""
    
13.         Next i
    
14.         ComboBox1.List = d.keys
    
15.     Else
    
16.         ComboBox1.Clear
    
17.     End If
    
18.    
    
19. End Sub

复制代码

一个事件代码就可以了。
具体看附件设置。

lucking551

为什么非要用VBA代码呢？

用窗体组合框 再加上定义名称一样可以实现~！

hamsik11

lucking551 发表于 2012-3-29 15:33
为什么非要用VBA代码呢？

用窗体组合框 再加上定义名称一样可以实现~！

因为city里面的变量个数是变化的，不单单附件里面的这几个城市

hamsik11

liuguansky 发表于 2012-3-29 15:00
一个事件代码就可以了。
具体看附件设置。

学习了 多谢多谢 ：）

stqin

学习了 多谢多谢