VBA常用技巧代码解析

cherry555 · 发表于 2009-4-18 16:52

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

cherry555 · 发表于 2009-4-18 17:16

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

yuanzhuping · 发表于 2009-4-18 23:07

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

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

yuanzhuping · 发表于 2009-4-18 23:10

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

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

yuanzhuping · 发表于 2009-4-18 23:16

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

#001 Private Sub TabStrip1_Change()
#002 Dim FilPath As String
#003 FilPath = ThisWorkbook.Path & "" & TabStrip1.SelectedItem.Caption & ".jpg"
#004 Image1.Picture = LoadPicture(FilPath)
#005 Label1.Caption = TabStrip1.SelectedItem.Caption & "欢迎您!"
#006 End Sub
#007 Private Sub UserForm_Initialize()
#008 TabStrip1.Value = 0
#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 · 发表于 2009-4-19 02:35

谢谢版主，辛苦了！

hhzjxss · 发表于 2009-4-19 08:58

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

期待后面的部分出来！

wmhlwx · 发表于 2009-4-19 11:18

拜读中，谢谢斑竹。

金色童子 · 发表于 2009-4-19 11:46

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

ljl008 · 发表于 2009-4-19 20:13

辛苦版主了，学习！

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

VBA常用技巧代码解析

菜鸟求助

再问一个~

第8部分控件与用户窗体

受教了,谢谢斑竹。

VBA常用技巧代码解析

菜鸟求助

再问一个~

第8部分 控件与用户窗体

受教了,谢谢斑竹。

第8部分控件与用户窗体