vba listbox控件大小变_VBA代码利用Listview控件来显示你的工作表任务

最新推荐文章于 2020-12-14 16:51:39 发布

weixin_39564807

最新推荐文章于 2020-12-14 16:51:39 发布

阅读量873

点赞数

文章标签： vba listbox控件大小变

本文链接：https://blog.csdn.net/weixin_39564807/article/details/111335125

版权

蓝字关注，加微信NZ9668获资料信息

VBA解决方案系列丛书作者

头条百家平台 VBA资深创作者

_______________________________

VBA++ 题记：一剪闲云一溪月，一程山水一年华。一世浮生一刹那，一树菩提一烟霞。岁月静好，现世安稳。纵算云水漂泊，心若安宁，亦可淡若清风。希望见者与不见者都能安康。静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。时间就像一张网，你撒在哪里，你的收获就在哪里。谨记自己的方向，这是路之所在。适当节制自我的各种欲望, 谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋的行路人。你要做的，是悄悄地去努力，等你变厉害之后，把自己也吓一跳，才是你现在需要当作目标的事。把生活与工作打理好，不负年华。

今日内容是和大家分享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() 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 EndSub 代码解析：窗体的初始化事件，在窗体显示时将工作表中数据显示在Listview 控件中。使用ColumnHeader 对象的Add 方法在Listview 控件中添加标题列，并设置列标题、列宽和文本对齐方式。设置Listview 控件的View 属性为lvwReport ，使Listview 控件显示为报表型。设置Listview 控件的Gridlines 属性为True ，显示网格线。只有在将View 属性设置为lvwReport 时才能显示网格线，否则Gridlines 属性无效。使用ListItem 对象的Add 方法在Listview 控件中添加项目。添加行标题。ListItem 对象的text 属性代表Listview 控件的第一列内容，因为Listview 控件的第一列的文本对齐方式只能设置为左对齐，所以在添加时使用Space 函数插入两个空格，使行标题达到居中显示的效果。继续添加其他列的内容。Listview 控件其他列的项目需要使用SubItems 属性来添加。*******************************************************

VBA 是实现自己小型办公自动化的有效手段，我根据自己20 多年的VBA 实际利用经验，现推出了四部VBA 学习教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是一块“积木”，可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。第一：“VBA 代码解决方案”是PDF 电子版，是VBA 中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级人员必备的资料；第二：“VBA 数据库解决方案”是PDF 电子版，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。第三：“VBA 数组与字典解决方案”是PDF 电子版，讲解VBA 的精华---- 字典，是我们打开思路，提高代码水平所必备。第四：“VBA 代码解决方案”视频。是专门给初学者讲解的视频教程，通过147 讲的视频学习可以让你更快的掌握这门技能。******************************************************* 浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。望星，疏移北斗，奈将往事雁同行。阡陌人，昏灯明暗，忍顾长亭，多少VBA 人，暗夜中，悄声寻梦，盼却天明，怎无凭！这几句词是我借鉴过来的对VBA 人员的写照，正如一位朋友说的那样：学 vba 之前蛮悠闲的，学之后就没时间悠闲了。确实，还是很精确地比喻，当你会了一门手艺，你就有了可以被利用的价值，这种价值的反作用就是自己价值的提高。愿每位 VBA 人员都有这样的价值吧！