VBA自学应用(16)——Listview控件基本操作
ListView控件基本操作
- 一、找到ListView控件
- 二、Listview控件显示数据
- 三、使用复选框
- 四、在listview控件中排序
一、找到ListView控件
工具——附加控件——Microsoft ListView Control。
二、Listview控件显示数据
- 首先我们插入一个ListView控件,如图所示。
- 数据如图所示
- 然后再对应事件中插入如下代码
Private Sub UserForm_Initialize()Dim lst As ListItemDim i As Long, j As Long, k As Long, m As Longj = Sheet1.Cells(Rows.Count, 2).End(3).RowWith Me.ListView1For i = 0 To Sheet1.Range("b3").CurrentRegion.Columns.Count - 1.ColumnHeaders.Add , , Sheet1.Cells(3, i + 2), 50Next'设置标题行.View = lvwReport.Gridlines = True'设置视图For k = 4 To jSet lst = .ListItems.Add()lst.Text = Sheet1.Cells(k, 2)For m = 1 To Sheet1.Range("b3").CurrentRegion.Columns.Count - 1lst.SubItems(m) = Sheet1.Cells(k, m + 2).ValueNextNext'添加记录Set .SelectedItem = .ListItems(1)'选择第一条记录End WithSet lst = Nothing
End Sub
三、使用复选框
- 首先我们在上述代码中加入下列代码,以启用复选框
With Me.ListView1.FullRowSelect = True.CheckBoxes = True
End With
- 然后插入一个命令窗体,刷入以下代码
Private Sub CommandButton1_Click()With Me.ListView1For i = 1 To .ListItems.CountIf .ListItems(i).Checked ThenSet rngCel = Sheet4.Cells(Rows.Count, 2).End(3).Offset(1)rngCel.Value = .ListItems(i)For j = 1 To 3rngCel.Offset(0, j) = .ListItems(i).SubItems(j)Next.ListItems(i).Checked = FalseEnd IfNextEnd WithSet rngCel = Nothing
End Sub
四、在listview控件中排序
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)With Me.ListView1.Sorted = True.SortOrder = 1'0为升序,1为降序,默认升序.SortKey = ColumnHeader.Index - 1End With
End Sub
VBA自学应用(16)——Listview控件基本操作相关推荐
- ASP.NET ListView控件基本操作
1.前台代码 View Code 1 <asp:ListView ID="lvDepartment" runat="server" DataKeyName ...
- C# 使用ListView控件实现文件查看大图标小图标,详细信息效果
C# 使用ListView控件实现文件查看大图标小图标,详细信息效果. 前言: 最近的项目需要用到C# 窗体应用里面的ListView,博主这篇文章使用了按钮和快捷菜单进行选择查看视图,实现的是对文件 ...
- Android使用ListView控件问题
Android使用ListView控件问题: The application has stopped unexpectedly, please try again. 开发环境:android 1.6 ...
- VB.net实现从ListView控件中异地获取文本内容源代码
对于一些VB6工程代码来说,需要完成从VB到VB.net的转换,在转换过程中需要注意很多内容,利用VB.net的直接转换功能很少能完全成功,需要我们付出很大的努力. 下面的VB.net代码实现从其他应 ...
- vb.net listview 删除选定行_VBA学习笔记59-1: listview控件
学习资源:<Excel VBA从入门到进阶>第59集 by兰色幻想 本节学习Listview控件,它可以用多种视图方式显示项目的控件.由于其外形美观而且非常实用,所以使用频率很高. Lis ...
- Android列表ListView控件的使用
在Android开发中,ListView是比较常用的控件,它以列表的形式显示具体内容,并且能够根据数据的长度自适应显示. 在ListView中可以根据需要显示自定义的列表内容,包括文字(TextVie ...
- ImageList与ListView控件
一.基本概念 1.ImageList控件 ImageList组件,又称为图片存储组件,它主要用于存储图片资源,然后在控件上显示出来,这样就简化了对图片的管理.ImageList组件的主要属性是Imag ...
- activex控件 新对象 ocx 初始化_VBA代码利用Listview控件来显示你的工作表任务
VBA++ 题记:一剪闲云一溪月,一程山水一年华.一世浮生一刹那,一树菩提一烟霞.岁月静好,现世安稳.纵算云水漂泊,心若安宁,亦可淡若清风.希望见者与不见者都能安康.静下心,多学习有用的知识,多提高自 ...
- C#进行MapX二次开发之控件基本操作
上篇介绍了MapX的部分基本使用代码,包括放大.缩小.缩放到初始大小(全图).平移.矩形选择.圆形选择.箭头.打开图层对话框 .打开ActiveX属性对话框 .添加符号等基本操作代码,本篇继续探讨一些 ...
最新文章
- wordcount代码_Scala小案例之wordcount
- nginx压力测试和并发预估
- 命名空间不能直接包含_php命名空间
- 去哪面试都会问的HashMap
- python3 redis_python3_redis随手学习笔记
- 2020-07-07 内模原理(The Internal Mode Principle)
- 关于ngx_trylock_accept_mutex的一些解释
- linux必须运行在enforcing,设置 Selinux环境为 Enforcing模式
- opencv 高通滤波和低通滤波_一阶低通滤波原理详解
- Crackme015
- 【关系抽取】从文本中进行关系抽取的几种不同的方法
- 文件系统挂载、卸载及相关的工具 ⑨
- Eucalyptus学习汇总
- RabbitMQ消息队列之RPC调用
- 【微信公众号后台基础能力接口对接】
- 百度地图LBS开放平台AK一直没有用
- android 闪屏动态界面,Android实现闪屏欢迎界面
- Windows Server 2016 NTP服务端和客户端配置
- 坚持玩游戏为什么会这么容易
- 工具及方法 - 斗地主技巧
热门文章
- 数学建模之减肥计划 matlab编程,数学建模matlab算法大全第02章整数规划.pdf
- 【信号处理】心电信号PQRST峰值检测matlab工具箱
- jmeter分布式压测,远程机器来运行脚本,察看结果树中的响应数据项为空白问题
- Elasticsearch 6.6 官方文档 之「节点」
- Sql Server数据库备份大全(Sql语句)
- 小程序x钉钉内网穿透(windows) 步骤
- UG快捷键使用技巧总结(补充中....)
- 小程序毕设作品之微信小程序点餐系统毕业设计(2)小程序功能
- 马华兴、王鹏《做出好选择》读书笔记
- 最新版本Portraiture4.1中文版ps磨皮滤镜插件安装包