VBA常用技巧代码解析

yuanzhuping

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

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

复制代码

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

1. #001  Private Sub MultiPage1_Change()
   
2. #002      If MultiPage1.SelectedItem.Index > 0 Then
   
3. #003          MsgBox "欢迎来到" & MultiPage1.SelectedItem.Caption & "版块!"
   
4. #004      End If
   
5. #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

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

luanyu6688

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

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

yangdianmei

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

levone

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

msconfig98

非常感谢版主

每天学习一点

ykx042907

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

ykx042907

请问各位大师：本人想将"主生产排程"工作表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

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

lee788

学习学习学习