2012学习总结多行多列数据展示.docxVIP

Excel VBA 学习总结 - 多行多列数据展示对于多行多列数据，基本使用Worksheet中的Range就可以处理了。但是在UserForm类型的应用中，也时常需要处理多行多列的数据。在UserForm中，显示和处理多列数据，通常可以有的选择有以下几种：DataGrid，ListView，ListBox。前面两类相当强大，但是也比较复杂，一般的简单应用中用不到。DataGrid　DataGrid控件天生就是为了处理像Recordset这种数据而准备的，与它类似的数据控件(其它公司提供的数据控件)也还有其它几种，这里并不是重点，所以简单介绍一下。默认情况下，VBE中是看不到这个控件的，需要下载DATGDCHS.dll并放到C:\winnt\system32\下，然后运行命令“regsvr32 DATGDCHS.dll”注册。注册完成后，选择Tools菜单下的Additional Controls...菜单项，添加对应的控件到工具箱中就可以了。　DataGrid最重要的属性就是DataSource属性，就是设置表格的数据源。其它的也可以设置列的一些属性，这里就不详细介绍了。需要的同学请自备Google并自行搜索。?ListView　ListView也是处理这类型数据的一个选择，功能也比较强大，特别是可以设置图标，在很多时候还是很适合使用的。下面的伪代码介绍了常用的属性和方法： Dim?currentItem?As?ListItem?清除listview1中的标题?ListView1.ColumnHeaders.Clear??清除listview1中的内容?ListView1.ListItems.Clear??With?Sheets(1)?添加列标题?ListView1.ColumnHeaders.Add?1,?,?.Cells(1,?1),?ListView1.Width?/?9??ListView1.ColumnHeaders.Add?2,?,?.Cells(1,?2),?ListView1.Width?/?9??显示为报表视图?ListView1.View?=?lvwReport??选取整行?ListView1.FullRowSelect?=?True 复选框??ListView1.CheckBoxes?=?True??ListView1.BackColor?=?RGB(255,?199,?9)???For?i?=?5?To?.[A65536].End(xlUp).Row?为listview1控件里面的行添加内容?Set?currentItem?=?ListView1.ListItems.Add()??currentItem.Text?=?.Cells(i,?1)?为行标赋值?currentItem.SubItems(1)?=?.Cells(i,?2)?currentItem.SubItems(2)?=?.Cells(i,?3)?currentItem.SubItems(3)?=?.Cells(i,?4) 为里面的第三列调整相应的字体大小及颜色?With?currentItem.ListSubItems.Item(2)??If?.Text??2?Then?.ForeColor?=?RGB(255,?0,?0)??Else?.Bold?=?True??.ForeColor?=?RGB(0,?0,?255)??End?If?End?With?Next?i?End?With?默认情况下，ListView不会出现在工具箱中，需要在“Tools”菜单中，点击“Additional Controls...”菜单，打开对话框，勾选“Microsoft ListView Control，version 6.0”，然后在工具箱中就可以使用了。经典的ListView双击列头排序的方法如下(使用了^与v去标示了排序的顺序，如果使用图片的话也是可以的)：Private?Sub?lstAllocatonList_ColumnClick(ByVal?columnHeader?As?MSComctlLib.columnHeader)?SetSortMark?columnHeader?With?lstAllocatonList??If?(columnHeader.Index?-?1)?=?.SortKey?Then?.SortOrder?=?(.SortOrder?+?1)?Mod?2?Else?.Sorted?=?False?.SortOrder?=?0?.SortKey?=?columnHeader.Index?-?1?.Sorted?=?True?End?If?End?WithEnd?SubPrivate?Sub?SetSortMark(colum