[已解决]怎样列出所有的数据?

自由市场

按下窗体中的按钮,把SHEET3中所有的数据都复制到列表框里面.

 

XLQSe2Q0.rar (10.12 KB, 下载次数: 2)

2009-11-12 21:19 上传

点击文件名下载附件
怎样列出所有的数据?

最佳答案

月排行榜 / 总排行榜

FookYou

2009-11-13 07:57

Private Sub CommandButton1_Click()
  Dim Arr, Col%
    With Sheets("Sheet3")
      Arr = .UsedRange
      Col = .UsedRange.Columns.Count
    End With
    With Me.ListBox1
      .ColumnCount = Col
      .List() = Arr
    End With
End Sub

跳转到最佳答案楼层

悄然而过

学习学习

自由市场

问题是不是太幼稚了,刚起步呢,请帮助一下.

FookYou

Private Sub CommandButton1_Click()
  Dim Arr, Col%
    With Sheets("Sheet3")
      Arr = .UsedRange
      Col = .UsedRange.Columns.Count
    End With
    With Me.ListBox1
      .ColumnCount = Col
      .List() = Arr
    End With
End Sub

FookYou

Private Sub CommandButton1_Click()
  Dim Arr, Col%
    With Sheets("Sheet3")
      Arr = .UsedRange                            '把要显示的行和列赋值给数组
      Col = .UsedRange.Columns.Count  '求出列表的列数
    End With
    With Me.ListBox1
      .ColumnCount = Col                        '列表显示的列数
      .List() = Arr                                      '数组赋值给列表
    End With
End Sub

[此贴子已经被作者于2009-11-13 11:25:49编辑过]

自由市场

谢谢四楼,完全正确!

自由市场

最好复制的时候去除第一行的表头，怎么去除呢？

[em06]