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