VBA常用技巧代码解析

cherry555

如何用工作表事件编程，使选中一个单元格后，该单元格的值自动加一

cherry555

可以用循环语句实现选中多个工作表吗？

yuanzhuping

原帖由 cherry555 于 2009-4-18 16:52 发表
如何用工作表事件编程，使选中一个单元格后，该单元格的值自动加一

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target = Target + 1
End Sub

yuanzhuping

原帖由 cherry555 于 2009-4-18 17:16 发表
可以用循环语句实现选中多个工作表吗？

http://club.excelhome.net/viewth ... ;page=11#pid2535231

yuanzhuping

技巧125         使用TabStrip控件
       使用TabStrip控件，可以在用户窗体中的同一区域定义多个数据页面，也就是说使用TabStrip控件可以使用户窗体中的同一组控件根据TabStrip控件所选择的页面具有不同的功能，而不必像多页控件那样需要在每个页面中放置相同的控件。
       在示例的窗体中使用一个图像控件和一个标签控件，根据TabStrip控件所选择的页面来显示相应城市的图片和标签控件的题注。
       步骤1，在窗体中添加一个TabStrip控件，默认情况下，一个TabStrip控件包含两个页面，所以需要在TabStrip控件上右键单击，在显示的右键菜单中选择“新建页”继续添加三个页面。因为TabStrip控件不像多页控件具有分页的属性窗口，所以需要在显示的右键菜单中选择“重命名”将页面分别重命名为各城市的名称。
       步骤2，在TabStrip控件上添加一个Image控件和一个Label控件，调整为合适的大小。
       步骤3，双击窗体写入下面的代码：

1. #001  Private Sub TabStrip1_Change()
   
2. #002      Dim FilPath As String
   
3. #003      FilPath = ThisWorkbook.Path & "" & TabStrip1.SelectedItem.Caption & ".jpg"
   
4. #004      Image1.Picture = LoadPicture(FilPath)
   
5. #005      Label1.Caption = TabStrip1.SelectedItem.Caption & "欢迎您!"
   
6. #006  End Sub
   
7. #007  Private Sub UserForm_Initialize()
   
8. #008      TabStrip1.Value = 0
   
9. #009  End Sub

复制代码

代码解析：
       第1行到第6行代码，TabStrip控件的Change事件过程，根据TabStrip控件所选择的页面来显示相应城市的图片和标签控件的题注。
       第3行代码设置Image控件需加载图片的完整路径，使用SelectedItem属性返回TabStrip控件当前选中页面的Caption属性，即窗体中所选城市的名称，将图片的完整路径设置为保存在同一目录中已命名为所选城市的图片。
       第4行代码为Image控件加载图片。Picture 属性指定显示在对象上的位图，语法如下：
object.Picture = LoadPicture( pathname )
       参数expression是必需的，一个有效的对象。
       参数pathname是必需的，一个图片文件的完整路径。
       第5行代码设置标签控件的题注为窗体中所选城市的名称和“欢迎您!”。
       第7行到第9行代码窗体的Initialize事件过程，为了使窗体显示时TabStrip控件显示第一页，将其Value设置为零 ( 0 )。
       运行窗体，选择不同的标签将显示不同城市的图片，如图所示。

       如果将TabStrip控件的Style属性设置为1则在标签条中显示的是按钮而不是标签，如图所示。


[ 本帖最后由 yuanzhuping 于 2009-4-19 22:38 编辑 ]

hhzjxss

谢谢版主，辛苦了！

hhzjxss

已经全部下载了，谢谢版主了！

期待后面的部分出来！

wmhlwx

拜读中，谢谢斑竹。

金色童子

受教了,谢谢斑竹。
同时也在纳闷:斑竹的功夫是怎么练就的呀???

ljl008

辛苦版主了，学习！