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

(完整版)VBA 实战系列(ListView 控件) ( (完整版完整版)VBA)VBA 实战系列实战系列(ListView(ListView 控件控件) ) 编辑整理： 尊敬的读者朋友们： 这里是精品文档编辑中心， 本文档内容是由我和我的同事精心编辑整理后发布的， 发布之前我们对 文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整版)VBA 实战系列 (ListView 控件)） 的内容能够给您的工作和学习带来便利。 同时也真诚的希望收到您的建议和反馈， 这将是我们进步的源泉，前进的动力。 本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以 下为(完整版)VBA 实战系列(ListView 控件)的全部内容。 冬雨冬雨 Q:470-020-8739Q:470-020-8739 (完整版)VBA 实战系列(ListView 控件) （完整版）（完整版）VBAVBA 实战系列实战系列(ListView(ListView 控件控件) ) 编辑整理：张嬗雒老师 尊敬的读者朋友们: 这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布到文 库，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是我们 任然希望 （完整版）VBA 实战系列（ListView 控件) 这篇文档能够给您的工作和学 习带来便利。同时我们也真诚的希望收到您的建议和反馈到下面的留言区,这将是我 们进步的源泉，前进的动力。 本文可编辑可修改，如果觉得对您有帮助请下载收藏以便随时查阅，最后祝您生活 愉快 业绩进步,以下为 〈 （完整版)VBA 实战系列(ListView 控件)〉 这篇文档的全 部内容。 冬雨冬雨 Q:470-020-8739Q:470-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） ” 进行注册。 （二）添加代码（二）添加代码 冬雨冬雨 Q:470-020-8739Q:470-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。Cells(1， Columns.Count） 。End（xlToLeft).Column If i = 1 Then Debug.Print “ ListView1。ColumnHeaders。Add , ,“”” data source=“ & ThisWorkbook。FullName sql = ”Select ＊ from ［病例数据＄A1：Q］ “ rs。Open sql， cn, 1, 3 ListView1.ListItems。Clear’清除 ListView 记录 Do While Not rs.EOF ’数据加载代码开始 Set Itm = ListView1.ListItems。Add（） If Not IsNull(rs.Fields（”日期” ） ） Then Itm.Text = rs.Fields(”日期” ） If Not IsNull（rs。Fields（“姓名“)） Then Itm。SubItems（1） = rs。Fields（“姓名“） If Not IsNull(rs。Fields（”性别”)） Then Itm.SubItems(2) = 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 IsNull(rs。Fields（“电话“)) Then Itm。SubItems（