利用ListBox列表框多列

进销存先放放吧，太麻烦，今天下班早，赶紧抓紧时间！！！！！！！

                                        

文件已经发到群里。

都知道ListBox是列表控件，但是也可以用来当作表格使用（不可编辑），表格控件还有很多个，我平时是使用ListView

下面的例子来看一下实际应用：

让上面Sheet数据还以表格形式显示在窗口中，其实特别的简单，在表单下面新建一个按钮，代码：

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

意思是让某一个窗口显示，主要讲Show

窗口名字 .Show

如果要暂时隐藏 UserForm, 使用 隐藏 方法。使用以下代码：

UserForm1.Hide

 要卸载， 名为 UserForm1,窗口使用以下代码：

Unload UserForm1

然后到vbe新建一个窗口，窗口中增加一个ListBox控件，双击窗口空白区域，写入代码：（窗口加载事件）

Private Sub UserForm_Initialize()

Dim rng As Range, cw As String, i As Integer

’定义变量，rng是显示源区域，cw是区域内每个单元格数据，i是循环变量

    Set rng = Sheet1.Range('A2:E12') 

’设置rng的源区域为Sheet1.Range('A2:E12') 

    With UserForm1.ListBox1

’with语句陈述式

        .ColumnCount = 4   ’窗口为4列（视数据源列数而定）

        .RowSource = 'Sheet1!' & rng.Address   ’表格控件数据源为rng

        cw = ''    ’初始化变量cw为空白

        For i = 1 To 4     ’for循环语句

            cw = cw & rng.Columns(i).Width & ';'    ’获取数据源列宽

        Next

        .ColumnWidths = cw     ’设置控件列宽

    End With

End Sub