activex控件 新对象 ocx 初始化_VBA代码利用Listview控件来显示你的工作表任务
VBA++ 题记:一剪闲云一溪月,一程山水一年华。一世浮生一刹那,一树菩提一烟霞。岁月静好,现世安稳。纵算云水漂泊,心若安宁,亦可淡若清风。希望见者与不见者都能安康。静下心,多学习有用的知识,多提高自己的水平和能力,这才是正道。时间就像一张网,你撒在哪里,你的收获就在哪里。谨记自己的方向,这是路之所在。适当节制自我的各种欲望,谁都逃不过时间的历练,谁都是命运的行者,谁都是在人生的道路上一步一趋的行路人。你要做的,是悄悄地去努力,等你变厉害之后,把自己也吓一跳,才是你现在需要当作目标的事。把生活与工作打理好,不负年华。
![](/assets/blank.gif)
今日内容是和大家分享VBA编程中常用的 "积木"过程代码,这些内容大多是我的经验的记录。取自我编写的教程内容。今日分享的是NO.215-NO.215,内容是:
NO. 215:使用类似于工作表的Listview控件来显示你的工作表任务********************************************************************
VBA过程代码215:使用类似于工作表的Listview控件来显示你的工作表任务
Private Sub UserForm_Initialize()
Dim Itm As ListItem
Dim r As Integer
Dim c As Integer
With ListView1
.ColumnHeaders.Add , , "名称", 50, 0
.ColumnHeaders.Add , , "库位1", 50, 1
.ColumnHeaders.Add , , "库位2", 50, 1
.ColumnHeaders.Add , , "库位3", 50, 1
.ColumnHeaders.Add , , "库位4", 50, 1
.ColumnHeaders.Add , , "库位5", 50, 1
.ColumnHeaders.Add , , "库位6", 50, 1
.View = lvwReport
.Gridlines = True
For r = 2 To Sheet1.[A65536].End(xlUp).Row
Set Itm = .ListItems.Add()
![](/assets/blank.gif)
Itm.Text = Space(2) & Sheet1.Cells(r, 1)
For c = 1 To 6
Itm.SubItems(c) = Format(Sheet1.Cells(r, c + 1), "##,#,0.0")
Next
Next
End With
Set Itm = Nothing
End Sub
代码解析:窗体的初始化事件,在窗体显示时将工作表中数据显示在Listview控件中。使用ColumnHeader对象的Add方法在Listview控件中添加标题列,并设置列标题、列宽和文本对齐方式。设置Listview控件的View属性为lvwReport,使Listview控件显示为报表型。设置Listview控件的Gridlines属性为True,显示网格线。只有在将View属性设置为lvwReport时才能显示网格线,否则Gridlines属性无效。使用ListItem对象的Add方法在Listview控件中添加项目。添加行标题。ListItem对象的text属性代表Listview控件的第一列内容,因为Listview控件的第一列的文本对齐方式只能设置为左对齐,所以在添加时使用Space函数插入两个空格,使行标题达到居中显示的效果。继续添加其他别的内容。Listview控件其他列的项目需要使用SubItems属性来添加。
*******************************************************
![](/assets/blank.gif)
VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA学习教程,这些是我多年编程经验的记录,也是我"积木编程"思想的体现。每一讲都是一块"积木",可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。
第一:"VBA代码解决方案"是PDF电子版,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级人员必备的资料;
第二:"VBA数据库解决方案"是PDF电子版,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
第三:"VBA数组与字典解决方案"是PDF电子版,讲解VBA的精华----字典,是我们打开思路,提高代码水平所必备。
第四:"VBA代码解决方案"视频。是专门给初学者讲解的视频教程,通过147讲的视频学习可以让你更快的掌握这门技能。
*******************************************************
浮云掠过,暗语无声,唯有清风,惊了梦中啼莺。望星,疏移北斗,奈将往事雁同行。
阡陌人,昏灯明暗,忍顾长亭,多少VBA人,暗夜中,悄声寻梦,盼却天明,怎无凭!
这几句词是我借鉴过来的对VBA人员的写照,正如一位朋友说的那样:学vba之前蛮悠闲的,学之后就没时间悠闲了。确实,还是很精确的比喻,当你会了一门手艺,你就有了可以被利用的价值,这种价值的反作用就是自己价值的提高。愿每位VBA人员都有这样的价值吧!
![](/assets/blank.gif)
懒惰是很奇怪的东西,它使你以为那是安逸,是休息,是福气;但实际上它所给你的是无聊,是倦怠,是消沉。不要懒惰,还是多学习些有用的知识吧,哪怕只是点滴。
activex控件 新对象 ocx 初始化_VBA代码利用Listview控件来显示你的工作表任务相关推荐
- activex控件 新对象 ocx 初始化_Office已经支持64位的树控件Treeview了
之前在使用Office365时发现微软其实已经悄悄地开始提供了64位的Treeview树控件,只是并没有公开宣布.当时是在一个网友的电脑上说他可以在64位Excel中可直接使用64位树控件,当时以为他 ...
- VB中利用ListView控件来制作表格
ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数. 下面介绍一下L ...
- vba复制整个sheet内容_VBA一键复制当前文件夹全部EXCEL里的工作表
[关键步骤]从开发工具里打开Visual Basic, 新建模块1,将以下代码复制到里面,保存,关闭代码窗口. Public Sub 一键获取本文件夹工作表() Application.ScreenU ...
- 【转】 ASP.NET 3.5中使用新的ListView控件
ASP.NET中新的ListView控件为显示和CURD数据库操作提供了基于模板的布局,使之成为一项极好的方式,建立以数据为中心的Web应用程序. 当你编写以用户为中心的应用程序时,总需要某种形式的数 ...
- 在ASP.NET 3.5中使用新的ListView控件(3)
在清单1中,SqlDataSource通过设置ConnectionString 和SelectCommand 属性控制从AdventureWorks数据库的Product表中检索数据,Connecti ...
- C# 系统应用之ListView控件 (三).添加ContextMenuStrip右键菜单打开删除文件
在前面讲述过使用TreeView控件和ListView控件显示磁盘目录信息,但仅仅是显示信息是不够的,我们还需要具体的操作.在"个人电脑使用历史痕迹"项目中我还需要添加" ...
- Android列表ListView控件的使用
在Android开发中,ListView是比较常用的控件,它以列表的形式显示具体内容,并且能够根据数据的长度自适应显示. 在ListView中可以根据需要显示自定义的列表内容,包括文字(TextVie ...
- ASP.NET ListView控件基本操作
1.前台代码 View Code 1 <asp:ListView ID="lvDepartment" runat="server" DataKeyName ...
- ListView控件学习系列2-编辑ListView(Edit,Update,Insert,Delete)
目录: ListView控件学习系列1-了解ListView控件 ListView控件学习系列2-编辑ListView ListView控件学习系列3-ListView选择,排序,分页 ListVie ...
最新文章
- 运维自动化之Cobbler安装配置
- Node.js 执行webpack命令出现的错误
- Python加lxml实现图片解析下载功能
- 深入理解GCD之dispatch_queue
- Mybatis(9)Dao实现类和无实现类的执行过程
- Web2.0十大Ajax安全漏洞以及成因
- secureCRT及secureFX安装注册和secureFX中出现中文乱码的处理方式
- linux 运行程序的方法,linux 长期运行程序的 四种方法
- MTK 驱动开发(54)---MTK-thermal.conf温度参数修改的方法
- X++中对字符串进行操作的函数
- php生成缩略图填充白,php生成缩略图填充白边(等比缩略图方案)_PHP教程
- mysqli得到记录数量
- 【Matlab学习笔记】【函数学习】eps
- VueRouter进阶(1)-导航守卫
- 电脑重启只剩下c盘怎么办_电脑突然只剩下c盘了怎么办?
- 使用SSH工具链接本地虚拟机
- 非因解读 | 单细胞空间蛋白质组分析技术揭示乳腺癌循环肿瘤细胞(CTC)与肿瘤异质性及肿瘤免疫的关系
- 基本的信号——Sa函数(抽样信号)
- win7网上邻居_win7系统关闭电脑端口的操作方法
- Ubuntu 8.04 LTS 安装
热门文章
- 地震wiggle图显示
- 【FLUENT案例】06:与EDEM耦合计算
- Scorm标准课件打包制作服务
- java设置行间距_Java中调整字距与行距的方法 其一(以DrawString为例)
- MicroHoo比Wintel更值得期待 人肉搜索隐患堪忧
- 如何关闭电脑软件的开机自启动
- Unity SRP Batcher 合批 BUG?- SRP: Node use different shader keyword
- iphone邮箱加密发送_为什么从iPhone发送的视频质量如此之高?
- ios事件-触摸事件2(手势 和 pointInSide()、hitTest()、touchesBegan()、touchesMoved()、touchesEnded()的关系)
- 转载--测试员要想实现自己的职业发展目标,离不开这5点