VBA代码利用Listview控件显示你的工作表任务

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

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属性来添加。

*******************************************************

VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA学习教程，这些是我多年编程经验的记录，也是我"积木编程"思想的体现。每一讲都是一块"积木"，可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。

第一："VBA代码解决方案"是PDF电子版，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级人员必备的资料；

第二："VBA数据库解决方案"是PDF电子版，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。

第三："VBA数组与字典解决方案"是PDF电子版，讲解VBA的精华----字典，是我们打开思路，提高代码水平所必备。

第四："VBA代码解决方案"视频。是专门给初学者讲解的视频教程，通过147讲的视频学习可以让你更快的掌握这门技能。

*******************************************************

浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。望星，疏移北斗，奈将往事雁同行。

阡陌人，昏灯明暗，忍顾长亭，多少VBA人，暗夜中，悄声寻梦，盼却天明，怎无凭！

这几句词是我借鉴过来的对VBA人员的写照，正如一位朋友说的那样：学vba之前蛮悠闲的，学之后就没时间悠闲了。确实，还是很精确的比喻，当你会了一门手艺，你就有了可以被利用的价值，这种价值的反作用就是自己价值的提高。愿每位VBA人员都有这样的价值吧！

懒惰是很奇怪的东西，它使你以为那是安逸，是休息，是福气;但实际上它所给你的是无聊，是倦怠，是消沉。不要懒惰，还是多学习些有用的知识吧，哪怕只是点滴。