下标越界怎么解决？带附件

2012yeye

Dim ary()
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   If ListBox1.ListIndex = -1 Then Exit Sub
   Rows(ary(ListBox1.ListIndex + 1)).Select
End Sub

显示窗口-------搜索代码或者拼音（不用输全）-------然后双击其中一个搜索结果--------就下标越界了

原本这个是为了查到药品时，双击那行可以跳到所在行，然后修改方便而设置的，现在不知道怎么修改才正确？
跪求高手。

hwc2ycy

ary是个空数组，啥也没有，只有越界了。

2012yeye

hwc2ycy 发表于 2013-9-18 22:52
ary是个空数组，啥也没有，只有越界了。

那请问这个程序应该怎么修改？有办法挽救吗？

hwc2ycy

代码太过于麻烦，你就直接用RANGE.FIND来定位吧，不过要求简单不能有重复的。

hwc2ycy

列表框的双击事件代码改下。

1. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2.    If ListBox1.ListIndex = -1 Then Exit Sub
   
3.    Columns(1).Find(what:=Split(ListBox1.Value)(0)).EntireRow.Select
   
4. End Sub

复制代码

2012yeye

hwc2ycy 发表于 2013-9-18 23:08
列表框的双击事件代码改下。

万分感谢！已解决~

hwc2ycy

你的代码写得太复杂了，我只有在列表框里下文章，这样才省事点。