VBA常用技巧代码解析

yuanzhuping · 发表于 2009-4-15 16:11

技巧123 使用多页控件
   在处理可以划分为不同类别的大量信息时可以使用多页控件。例如，在示例中，多页控件的第一页用于显示欢迎信息，另三页显示其他信息。利用多页控件能够将相关信息组织在一起显示出来，同时又能够随时访问整条记录。
   多页控件中的每个页面都是一个窗体，含有自己的控件，并且可以有唯一的布局。一般情况下，多页控件中的页面都有标签，以便让用户选择单个页面。
   在窗体中使用多页控件时，往往希望窗体显示时能显示特定的页面，比如每次打开窗体时先显示第一页的欢迎信息，除了在VBE中选择多页控件的第一页后保存外，还可以通过设置多页控件的Value属性来实现，如下面的代码所示。

#001 Private Sub UserForm_Initialize()
#002 MultiPage1.Value = 0
#003 End Sub

复制代码

代码解析：
   窗体的Initialize事件，在窗体显示时选择多页控件的第一页。
   控件的Value属性定义某给定的控件的状态或内容，对于多页控件标识当前激活页。Value属性是多页控件的默认属性，该属性返回当前活动页面的索引编号（位于多页控件的Pages集合中），零 ( 0 ) 表示是第一页，最大值比总页数少一。
   多页控件的默认事件是Change事件，示例中使用消息框显示当前活动页面的Caption属性，代码如下：

#001 Private Sub MultiPage1_Change()
#002 If MultiPage1.SelectedItem.Index > 0 Then
#003 MsgBox "欢迎来到" & MultiPage1.SelectedItem.Caption & "版块!"
#004 End If
#005 End Sub

复制代码

代码解析：
   MultiPage1_Change过程根据当前活动页面是否是第一页，如果不是则使用消息框显示当前活动页面的Caption属性。
   应用于Page对象的Index属性指Pages集合中Page对象的位置，语法如下：
object.Index [= Integer]
   参数object是必需的，一个有效对象。
   参数Integer是可选的，当前选定的Page对象的索引。
   Index 属性指定了标签出现的顺序，改变Index属性的值将改变多页控件中页面的顺序，第一页的索引值是0，第二页的索引值是 1，依此类推。
   应用于多页控件的SelectedItem属性返回当前选中的Page对象，SelectedItem属性是只读的，用SelectedItem属性可对当前选中的Page对象进行可编程控制。
   运行窗体，多页控件显示第一页的欢迎信息，当选择其他页面时显示提示信息，如图所示。

qiaofeng519 · 发表于 2009-4-15 20:22

到了这里我才知道自己要学的东西太多了,真的是什么也不懂!!

luanyu6688 · 发表于 2009-4-15 22:04

请问yuanzhuping 楼主，我的这个窗体怎么修改呢，请你帮忙

http://club.excelhome.net/thread-422238-1-1.html

yangdianmei · 发表于 2009-4-15 22:19

我现在每天都要来这个版块,学习当天版主先生的新作.

levone · 发表于 2009-4-16 00:54

第一次连续折磨鼠标按钮和滚轮一个多小时！

msconfig98 · 发表于 2009-4-16 02:06

非常感谢版主

每天学习一点

ykx042907 · 发表于 2009-4-16 09:06

声明变量类型时，声明为INTEGER、LONG、STRING等类型，有何技巧？即何时声明为INTEGER、LONG、STRING等类型呢？有何区别？

ykx042907 · 发表于 2009-4-16 09:16

请问各位大师：本人想将"主生产排程"工作表A列的空格删除，现录制的代码意思是说：在A列右边插入一空列，设公式为=TRIM(A2),向下填充,改为"自动计算(因本人默认的是手动计算)。再粘贴为数值.然后,设A2=B2,向下填充到最后一个非空单元格,粘贴为数值。最后，删除B列!
Sub 消除空格()
Dim rng As Integer
rng = [a65536].End(xlUp).Row
Sheets("主生产排程").Select
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("A:B").Select
Selection.NumberFormatLocal = "G/通用格式"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B" & rng)
Range("B:B").Select
Calculate
Columns("B:B").Select
'Range("B5").Activate
Application.Run "PERSONAL.XLSB!选择性粘贴"
Range("A2").Select
'Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+RC[1]"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A" & rng)
Range("A:A").Select
Calculate
Selection.End(xlDown).Select
Columns("A:A").Select
'Range("A21145").Activate
Application.Run "PERSONAL.XLSB!选择性粘贴"
Columns("B:B").Select
'Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
End Sub

ykx042907 · 发表于 2009-4-16 09:25

各位大师：你们好！
764楼的问题是：其代码运行到rng = [a65536].End(xlUp).Row时，就会出错！

lee788 · 发表于 2009-4-16 11:34

学习学习学习

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

VBA常用技巧代码解析

第8部分控件与用户窗体

请问

删除空格事宜

关于764楼的问题

评分

VBA常用技巧代码解析

第8部分 控件与用户窗体

请问

删除空格事宜

关于764楼的问题

评分

第8部分控件与用户窗体