TextBox6.Text = ListBox1.List(ListBox1.ListIndex, 5)请各位大哥帮忙看一下

scott_su

我想实行点击一下按钮，把需要的数据显示在listbox中。
然后在listbox中用鼠标点击一列，把相应的一列数据分别返到textbox中。
但我到这一列就出错.TextBox6.Text = ListBox1.List(ListBox1.ListIndex, 5)请各位大哥帮忙看一下。再此谢过了！

yaozong

Private Sub CommandButton1_Click()
Dim arr
    arr = Sheets("data").Range("a1", Sheets("data").[j65536].End(3)).Value
    ListBox1.List = arr
End Sub
Private Sub ListBox1_Click()
Dim i%
For i = 0 To 9
   Me.Controls("TextBox" & i + 1) = ListBox1.List(ListBox1.ListIndex, i)
Next
End Sub

yaozong

参考附件。。。

scott_su

谢谢了，搞定了。以后希望多指数！

scott_su

我看这条代码很好，为什么我运行就不行啊！我是把它写在另外一个程序里。
Dim arr
     arr = Sheets("data").Range("a1", Sheets("data").[j65536].End(3)).Value
     ListBox1.List = arr
End Sub

scott_su

各位大侠能帮看一是怎么回事啊，我运行的时候，运行错误，溢出！

yaozong

scott_su 发表于 2012-6-15 15:25
各位大侠能帮看一是怎么回事啊，我运行的时候，运行错误，溢出！

可能J列没数据。
改为下式试试
'arr = Sheets("data").Range("a1", Sheets("data").[j65536].End(3)).Value
    arr = Sheets("data").Range("a1").CurrentRegion.Value
    ListBox1.List = arr

scott_su

yaozong 发表于 2012-6-15 17:38
可能J列没数据。
改为下式试试
'arr = Sheets("data").Range("a1", Sheets("data").[j65536].End(3)) ...

这样有时候可以有时候不可以，真的很奇怪啊，我上面写的显示代码也是这样的，是不是我的office有问题啊！老是就的我内存不足。yaozong非常感谢你的帮助。

汉水西流007

scott_su 发表于 2012-6-15 14:57
我看这条代码很好，为什么我运行就不行啊！我是把它写在另外一个程序里。
Dim arr
     arr = Sheets("da ...

Dim arr
     arr = Sheets("data").Range("a1：J" & Sheets("data").[j65536].End(xlUp).Row)
     ListBox1.List = arr
End Sub