[分享]获取数据到列表框中的几种方法小结

stx1980710

希望通过下面几种方法的介绍，对喜欢用列表框来显示数据的朋友有所帮助！

不足之处，恳请大家批评指正！

常见的显示数据的方法有以下四种：

第一种：RowSource属性
         可以利用该属性将列表框直接与工作表上的一个单元格区域相链接。在该区域中的任何变化将会立即使列表框相应变化，但在列表框中的数据是只读的，你不能对列表框中的数据进行删除或增加操作。这种方法有一点较好的，就是可以设置列标题。

          利用该属性，还有以下四种方式可选择：

 A、直接用工作表区域

        Private Sub UserForm_Initialize()
  Dim Erow As Integer
     Erow = Worksheets("Columns").Range("A65536").End(xlUp).Row
 With Me.ListBox1
    .ColumnCount = 3
    .BackColor = &HFFFF00
    .ColumnHeads = True
    .ColumnWidths = "80,50,30"
     .RowSource = "Columns!A2:C" & Erow
    End With
End Sub

可以显示列标题：如图：

7YjU4h8y.rar (21.95 KB, 下载次数: 2548)

2006-11-30 10:07 上传

点击文件名下载附件
[分享]获取数据到列表框中的几种方法小结

[此贴子已经被作者于2006-11-30 10:07:28编辑过]

cc3213252

恩，归纳的很不错，好好学习学习

TGB

再学习一遍！

dustfly

兄弟偶是菜鸟啊,给标题加名称的语句怎么写?

taller

补充一点对于利用单元格地址设置RowSource可以使用下面的形式，如果在当前工作簿，可以省略前面的book1.xls

ListBox1.RowSource = "[Book1.xls]Sheet1!$A$1:$A$5"

danielcm

太好了，谢谢

fanrong88

学

nawong

用MSHFlexGri外觀會更漂亮些

 

Private Sub CommandButton1_Click()
    MSHFlexGrid1.Cols = 5
    MSHFlexGrid1.Rows = 9
    MSHFlexGrid1.ColWidth(0) = 12 * 25 * 1.2
    MSHFlexGrid1.ColWidth(1) = 12 * 25 * 5
    MSHFlexGrid1.ColWidth(2) = 12 * 25 * 5
    MSHFlexGrid1.ColWidth(3) = 12 * 25 * 5
    MSHFlexGrid1.ColWidth(4) = 12 * 25 * 5
    On Error Resume Next
    MSHFlexGrid1.FixedRows = 1
    MSHFlexGrid1.FixedCols = 1
    MSHFlexGrid1.TextMatrix(0, 0) = "NO"
    MSHFlexGrid1.TextMatrix(0, 1) = "項目1"
    MSHFlexGrid1.TextMatrix(0, 2) = "項目2"
    MSHFlexGrid1.TextMatrix(0, 3) = "項目3"
    MSHFlexGrid1.TextMatrix(0, 4) = "項目4"
        For i = 2 To 10
            MSHFlexGrid1.TextMatrix(i - 1, 0) = i - 1
            MSHFlexGrid1.TextMatrix(i - 1, 1) = Cells(i, 1)
            MSHFlexGrid1.TextMatrix(i - 1, 2) = Cells(i, 2)
            MSHFlexGrid1.TextMatrix(i - 1, 3) = Cells(i, 3)
            MSHFlexGrid1.TextMatrix(i - 1, 4) = Cells(i, 4)
        Next
End Sub

[此贴子已经被作者于2006-12-14 13:36:15编辑过]

bbsjun

好啊，找了半天，这个对combobox、list赋值表述的最详细！

qygds

谢谢楼主的分享