2021年整理VBA实战系列ListView控件

完整版VBA 实战系列ListView 控件 完整版完整版VBAVBA 实战系列实战系列ListViewListView 控件控件 编辑整理 尊敬的读者朋友们 这里是精品文档编辑中心， 本文档内容是由我和我的同事精心编辑整理后发布的， 发布之前我们对 文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（完整版VBA 实战系列 ListView 控件） 的内容能够给您的工作和学习带来便利。 同时也真诚的希望收到您的建议和反馈， 这将是我们进步的源泉，前进的动力。 本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以 下为完整版VBA 实战系列ListView 控件的全部内容。 冬雨冬雨 Q470-020-8739Q470-020-8739 完整版VBA 实战系列ListView 控件 （完整版）（完整版）VBAVBA 实战系列实战系列ListViewListView 控件控件 编辑整理张嬗雒老师 尊敬的读者朋友们 这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布到文 库，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是我们 任然希望 （完整版）VBA 实战系列（ListView 控件 这篇文档能够给您的工作和学 习带来便利。同时我们也真诚的希望收到您的建议和反馈到下面的留言区,这将是我 们进步的源泉，前进的动力。 本文可编辑可修改，如果觉得对您有帮助请下载收藏以便随时查阅，最后祝您生活 愉快 业绩进步,以下为 〈 （完整版VBA 实战系列ListView 控件〉 这篇文档的全 部内容。 冬雨冬雨 Q470-020-8739Q470-020-8739 完整版VBA 实战系列ListView 控件 VBA 项目实战__ListView 控件应用 ListView 控件是一款非常优秀的表格控件，被广泛应用于 VBA 项目.VBA 使用者熟练地掌 握此控件的用法,不仅能大大地增加自己学习 VBA 的兴趣，而且对实际工作也有很好的帮助。 一、 Excel 基础数据 二、 实现效果 我们要通过 VBA 控件 list view,实现如下图示效果 三、 实现过程 一）添加一）添加 listviewlistview 控件控件 1. 打开 VBE 编辑器,新建窗体 flist 2. 添加 listview 控件。在工具箱中选择 listview 控件放入窗体。 如工具箱中没有该控件，则应查找注册 MSCOMCTL.OCX文件.我们可以按照以下方法进 行注册 1）将文件解压到“C\WINDOWS\system32”WindowsXP； 2） 单击 【开始】 ｜ 【运行】 命令,键入 “regsvr32 C \WINDOWS\system32 \MSCOMCTL.OCX “WindowsXP） ” 进行注册。 （二）添加代码（二）添加代码 冬雨冬雨 Q470-020-8739Q470-020-8739 完整版VBA 实战系列ListView 控件 1 1。添加表头。添加表头 Private Sub User_Initialize ListView1.ColumnHeaders。Add ， ， ”日期“， 64, 0 ListView1。ColumnHeaders.Add ， ， ”姓名”, 54， 2 ListView1.ColumnHeaders。Add ， ， “性别“, 42， 2 ListView1.ColumnHeaders。Add , ， “年龄”, 54， 2 ListView1.ColumnHeaders.Add ， ， ”联系方式”, 54, 2 ListView1.ColumnHeaders。Add ， , “电话“, 99， 2 ListView1.ColumnHeaders。Add ， ， “诊断“， 54, 2 ListView1.ColumnHeaders。Add , , “手术名称”, 86, 2 ListView1。View lvwReport’显示格式为报表格式 ListView1。FullRowSelect True 允许整行选中 ListView1.Gridlines True’显示网格线 ’ ListView1。Sorted True 排序 End Sub 以上代码中 ListView1.ColumnHeaders.Add ， , ”日期” ， 64， 0 中的 64 代表该表头字段的宽度， 0 代表居左显示方式. 【应用技巧】 在实际应用中,如何确定列宽对初学者来说是一个难点,这里给大家提供一个确定列宽的实用方法。通 常ListView控件加载的数据都存放在一张excel工作表中， 我们先在工作表中调整好列宽， 然后用ListView 控件需要加载的 excel 表格的列宽作为相应 ListView 控件的列宽即可，求列宽可用以vba 代码实现。个人 具体做法见如下过程 Sub 代码生成 1__ListView 标题头和列宽（） Dim sh As Worksheet, i Set sh Sheet1 Debug。Print “Private Sub User_Initialize（）” For i 1 To sh。Cells1， Columns.Count） 。End（xlToLeft.Column If i 1 Then Debug.Print “ ListView1。ColumnHeaders。Add , ,“”” data source“ ThisWorkbook。FullName sql ”Select ＊ from ［病例数据＄A1Q］ “ rs。Open sql， cn, 1, 3 ListView1.ListItems。Clear’清除 ListView 记录 Do While Not rs.EOF ’数据加载代码开始 Set Itm ListView1.ListItems。Add（） If Not IsNullrs.Fields（”日期” ） ） Then Itm.Text rs.Fields”日期” ） If Not IsNull（rs。Fields（“姓名“） Then Itm。SubItems（1） rs。Fields（“姓名“） If Not IsNullrs。Fields（”性别”） Then Itm.SubItems2 rs。Fields（”性别” If Not IsNull（rs。Fields（”年龄”） Then Itm.SubItems（3） rs。Fields（”年 龄” ） If Not IsNull（rs.Fields（”联系方式” ） Then Itm。SubItems（4 rs。Fields”联 系方式” ） If Not IsNullrs。Fields（“电话“ Then Itm。SubItems（