VBA常用技巧代码解析

joe_xgp · 发表于 2009-4-29 17:02

谢谢袁版主，对不起，我不知道，我是新手，下次不会范这样的错误了。在这里我学到不少东西，很是感激！
因为每个示例均有解析，这对我们初学者来说，简直是太好了，辛苦了，大侠！！！

zjdh · 发表于 2009-4-29 17:46

求教版主
技巧130中，添加Spreadsheet控件，如何操作,找不着控件啊。
工具箱只有这些内容：

[ 本帖最后由 zjdh 于 2009-4-29 17:54 编辑 ]

一刀DD · 发表于 2009-4-29 18:50

太好的东西了。不过能否请楼主发快些，最好是能发包，俺想下载打印，当作入门的教材呢！！

vincent1417 · 发表于 2009-4-29 22:59

一下子发现这里很强大哈哈够我用的了

yuanzhuping · 发表于 2009-4-30 07:25

原帖由 zjdh 于 2009-4-29 17:46 发表
求教版主
技巧130中，添加Spreadsheet控件，如何操作,找不着控件啊。
工具箱只有这些内容：

在工具箱右击，选择附加控件，然后选择Spreadsheet控件。

yuanzhuping · 发表于 2009-4-30 09:57

技巧131 使用Listview控件
131-2 在Listview控件中使用复选框
在Listview控件中使用复选框，可以进行多重选择，示例代码如下：

#001 Private Sub UserForm_Initialize()
#002 Dim Itm As ListItem
#003 Dim r As Integer
#004 Dim c As Integer
#005 With ListView1
#006 .ColumnHeaders.Add , , "人员编号 ", 50, 0
#007 .ColumnHeaders.Add , , "技能工资 ", 50, 1
#008 .ColumnHeaders.Add , , "岗位工资 ", 50, 1
#009 .ColumnHeaders.Add , , "工龄工资 ", 50, 1
#010 .ColumnHeaders.Add , , "浮动工资 ", 50, 1
#011 .ColumnHeaders.Add , , "其他 ", 50, 1
#012 .ColumnHeaders.Add , , "应发合计", 50, 1
#013 .View = lvwReport
#014 .Gridlines = True
#015 .FullRowSelect = True
#016 .CheckBoxes = True
#017 For r = 2 To Sheet2.[A65536].End(xlUp).Row - 1
#018 Set Itm = .ListItems.Add()
#019 Itm.Text = Sheet2.Cells(r, 1)
#020 For c = 1 To 6
#021 Itm.SubItems(c) = Format(Sheet2.Cells(r, c + 1), "##,#,0.00")
#022 Next
#023 Next
#024 End With
#025 Set Itm = Nothing
#026 End Sub
#027 Private Sub CommandButton1_Click()
#028 Dim r As Integer
#029 Dim i As Integer
#030 Dim c As Integer
#031 r = Sheet1.[A65536].End(xlUp).Row
#032 If r > 1 Then Sheet1.Range("A2:G" & r) = ""
#033 With ListView1
#034 For i = 1 To .ListItems.Count
#035 If .ListItems(i).Checked = True Then
#036 Sheet1.Range("A65536").End(xlUp).Offset(1, 0) = .ListItems(i)
#037 For c = 1 To 6
#038 Sheet1.Cells(65536, c + 1).End(xlUp).Offset(1, 0) = .ListItems(i).SubItems(c)
#039 Next
#040 End If
#041 Next
#042 End With
#043 End Sub

复制代码

代码解析：
   第1行到第26行代码，用户窗体的Initialize事件过程，在窗体显示时将工作表中数据显示在Listview控件中，请参阅技巧131-1。
   其中第15行代码设置Listview控件的FullRowSelect属性为True，使用户可以选择整行。
   第16行代码设置Listview控件的CheckBoxes属性为True，使Listview控件在列表的每个项的旁边显示复选框。
   第27行到第43行代码，用户窗体中“保存”按钮的单击过程，将Listview控件中选中的项目写入到工作表中。
   第31、32行代码，删除工作表中原有的数据，
   第34、35行代码遍历Listview控件中所有的ListItem对象，判定其Checked值，如果为True，即说明其处于选中状态。
   第36行到第40行代码将Listview控件中选中的内容依次写入到工作表中。
   运行窗体，Listview控件显示工作表中的内容，单击“保存”按钮将如Listview控件中选中的内容依次写入到工作表中，如图所示。

yizhihua0206 · 发表于 2009-4-30 11:14

坚决支持袁版，正是我们所需求的，继续关注中！

入孝出悌 · 发表于 2009-4-30 11:16

太好了，谢谢！

wanl0418 · 发表于 2009-4-30 14:44

超级豪华经典牛贴！！！！！！！
继续关注！！！！！！！

yuanzhuping · 发表于 2009-4-30 16:38

技巧131       使用Listview控件
131-3 调整Listview控件的行距
   在使用Listview控件显示数据列表时，行距是由Listview控件所设置的字体大小决定的，无法自定义行距，即使调整了字体大小，行距还是很近。
   如果需要自定义Listview控件的行距，可以在窗体中添加一个ImageList控件，在ImageList控件中导入一张大小合适的空白图片，然后指定Listview控件的SmallIcons属性为ImageList控件中的图片，代码如下：

#001 Private Sub UserForm_Initialize()
#002 Dim Itm As ListItem
#003 Dim r As Integer
#004 Dim c As Integer
#005 Dim Img As ListImage
#006 With ListView1
#007 .ColumnHeaders.Add , , "人员编号 ", 50, 0
#008 .ColumnHeaders.Add , , "技能工资 ", 50, 1
#009 .ColumnHeaders.Add , , "岗位工资 ", 50, 1
#010 .ColumnHeaders.Add , , "工龄工资 ", 50, 1
#011 .ColumnHeaders.Add , , "浮动工资 ", 50, 1
#012 .ColumnHeaders.Add , , "其他 ", 50, 1
#013 .ColumnHeaders.Add , , "应发合计", 50, 1
#014 .View = lvwReport
#015 .Gridlines = True
#016 .FullRowSelect = True
#017 Set Img = ImageList1.ListImages.Add(, , LoadPicture(ThisWorkbook.Path & "" & "1×25.bmp"))
#018 .SmallIcons = ImageList1
#019 For r = 2 To Sheet1.[A65536].End(xlUp).Row - 1
#020 Set Itm = .ListItems.Add()
#021 Itm.Text = Space(2) & Sheet1.Cells(r, 1)
#022 For c = 1 To 6
#023 Itm.SubItems(c) = Format(Sheet1.Cells(r, c + 1), "##,#,0.00")
#024 Next
#025 Next
#026 End With
#027 Set Itm = Nothing
#028 Set Img = Nothing
#029 End Sub

复制代码

代码解析：
   用户窗体的Initialize事件过程，在窗体显示时将工作表中数据显示在Listview控件中并调整Listview控件的行距。
   第17行代码使用Add方法在ImageList控件中添加图片。ImageList控件是一个向其他控件提供图像的资料中心，它包含了一组ListImage对象即一组图像的集合，该集合中的每个对象都可以通过其索引或关键字被其他控件所引用，但控件本身并不能单独使用。
   在运行时给ImageList控件添加图片需要使用Add方法，语法如下：
Add(index,key,picture)
   参数index是可选的，整数，指定要插入的ListImage对象的位置。如果没有指定index，ListImage对象将被添加到ListImages集合的末尾。
   参数key是可选的，用来标识ListImage对象的唯一字符串。
   参数picture是必需的，指定欲添加到集合中的图片。
   也可以在设计时在ImageList控件中添加图片，这样就无需在文件夹中保留图片文件。在VBE中选择ImageList控件属性页中的“自定义”，在显示的“属性页”对话框中插入图片，如图所示。

第18行代码，指定Listview控件的SmallIcons属性为ImageList控件中的图片，使用图片来调整行距。
运行窗体，Listview控件显示工作表中的内容，调整Listview控件的行距，如图所示。

[ 本帖最后由 yuanzhuping 于 2009-4-30 16:40 编辑 ]

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第8部分控件与用户窗体

回复VBA常用技巧解析

第8部分控件与用户窗体

VBA常用技巧代码解析

第8部分 控件与用户窗体

回复VBA常用技巧解析

第8部分 控件与用户窗体

第8部分控件与用户窗体

第8部分控件与用户窗体