EXCEL VBA 运行出错

leon01314

因为用数据有效性做的下拉菜单数据太多，我想用TEXTBOX和LISTBOX实现快速输入。

先P列输入国家，数据源在COUNTRY这个工作表中。

然后在R列输入这个国家的城市，国家及城市对应表在CITY这个工作表中。

在网上找了段代码，但是输入城市时出错了，请高手帮忙看下怎么回事，如果能简化代码就更好了，先谢谢了。

leon01314

无人解答？不是很难吧

leon01314

高手都放假了

无聊的疯子

leon01314 发表于 2017-1-19 09:46
无人解答？不是很难吧

确实很简单,从你截图来看,主要是 变量 j 的问题

变量j 在过程中并没有声明,也没有赋值语句,那报错的时候j的值应该是 0

列或行起始位置都是从1开始的,因此你给的参数并不在范围内!

联想输入,你可以参照一下这个   http://www.excelpx.com/thread-287852-1-1.html

leon01314

无聊的疯子 发表于 2017-1-19 17:40
确实很简单,从你截图来看,主要是 变量 j 的问题

变量j 在过程中并没有声明,也没有赋值语句,那报错的时 ...

大师能帮忙改下吗？

上清宫主

把最顶上的那行加个变量试试看：Public Arr, j

leon01314

上清宫主 发表于 2017-1-20 10:19
把最顶上的那行加个变量试试看：Public Arr, j

谢谢，我试了一下，没有作用。

上清宫主

Public Arr, j

Private Sub Listbox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim r2
    ActiveCell.Value = ListBox2.Value
    Me.ListBox2.Clear
    Me.TextBox2 = ""
    Me.ListBox2.Visible = False
    Me.TextBox2.Visible = False
    If j > 0 Then Set r2 = Sheet5.Columns(j).Find(ActiveCell.Value, , , xlWhole)
End Sub要顺畅使用，还得改。上面红色的加上后将就可用：

无聊的疯子

leon01314 发表于 2017-1-20 06:43
大师能帮忙改下吗？

你要在那一列查找数据, 就给 j 赋值对应的列索引呗

leon01314

上清宫主 发表于 2017-1-20 11:33
Public Arr, j

Private Sub Listbox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

谢谢，但是Q列进行联想输入的时候，别的国家的城市也跑到LISTBOX里面了，怎么办？ 请看附件。
而且筛选出来的数据不对，比如P列选输入C，双击选择CHINA，然后在Q列输入B，但BEIJING没出来。