进销存先放放吧,太麻烦,今天下班早,赶紧抓紧时间!!!!!!!
文件已经发到群里。
都知道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
联系客服