|
如附件所示,a列为数据,第一行是变量名city。我在考虑这样的一个操作:我如果在文本框里输入变量名city,下面的组合框会出现city变量下面各个城市的列表。我现在初步的打算是再做一个按钮,输入city以后,摁下按钮,然后根据第一列的数据做一个字典,然后字典的key赋值给组合框。可这么做似乎有点麻烦,有没有更好的方法?输入city以后可以让组合框自动出现城市的列表?
谢谢啦
- Private Sub TextBox1_Change()
- On Error Resume Next
- Dim Arr, i&, d, s$, m As Byte
- Set d = CreateObject("scripting.dictionary")
- s = UCase(TextBox1.Text)
- Arr = Range("a1").CurrentRegion
- m = Application.Match(s, Application.Index(Arr, 1, 0), 0)
- If Err.Number = 0 Then
- For i = 2 To UBound(Arr)
- d(Arr(i, m)) = ""
- Next i
- ComboBox1.List = d.keys
- Else
- ComboBox1.Clear
- End If
-
- End Sub
复制代码一个事件代码就可以了。
具体看附件设置。
|
|