BA EXCEL的窗体是程序面向对象编程的具体体现，是提供给用户的使用的“用户界面”，窗体的设计类似于网页的设计，简单、实用、美观等都是设计者要考虑的因素。

在VBE操作界面菜单中点击【插入】，选择【用户窗体】插入窗体。用鼠标点击窗体弹出【工具箱】窗体，其中标准控件如下图：

一、窗体间相互调用

1、窗体设计

首先，在VBA管理界面中插入3个窗体。

• 窗体1为欢迎窗体
• 主窗体2中添加1个命令按钮
• 子窗体3中添加1个命令按钮

窗体1-欢迎窗体属性表如下：

注：按表设计窗体和标签属性

窗体2-主窗体属性表如下：

窗体3-子窗体属性表如下：

2、窗体视图

设计完成欢迎窗体本身和标签的属性后，运行窗体（点击三角形按钮或按F5键），效果图如下：

注：标签字体、颜色等属性需要修改。特别是标签的BoderStyle属性需要设置为0（使得标签无背景）

主窗体视图如下：

子窗体视图如下：

3、窗体加载事件

鼠标双击欢迎窗体打开【代码】窗口，在窗体的Activate事件中编写代码如下：

注：窗体运行激发Activate事件。事件中第2行代码可动态加载窗体背景图片，第3行代码中窗体打开5秒后调用过程CloseSplash（关闭该窗体）

在工程中插入一个模块，在模块中编写中过程CloseSplash代码如下：

Private Sub CloseSplash()
Unload frmSplash
frmMain.Show
End Sub

注：过程中第2行代码卸载欢迎窗体，第3行代码显示主窗体

主窗体的“调用子窗体”命令按钮（名称为cmdCallSub）的Click事件代码如下：

Private Sub cmdCallSub_Click()
frmMain.Hide
frmSub.Show
End Sub

注：事件中第2行代码隐藏主窗体，第3行代码显示子窗体

子窗体的“返回主窗体”命令按钮（名称为cmdCallMain）的Click事件代码如下：

Private Sub cmdCallMain_Click()
Unload Me
frmMain.Show
End Sub

注：事件中第2行代码卸载子窗体，第3行代码显示子窗体

最后，鼠标双击【工程】中【ThisWorkbook】对象，选用【WorkBook】的Open事件，如图：

【WorkBook】对象的Open事件代码如下：

Private Sub Workbook_Open()
frmSplash.Show
End Sub

注：打开EXCEL文档时显示欢迎窗体

这样，每次打开打开EXCEL文档时显示欢迎窗体时，首先显示欢迎窗体，5秒后自动进入主窗体；在主窗体中点击“调用子窗体”命令按钮，隐藏主窗体并显示子窗体；在子窗体中点击“返回主窗体”命令按钮，卸载子窗体并显示主窗体。从而实现了一个简单的系统框架。

二、标准控件运用

2、文字框设计

文字框主要用来接收用户输入信息，也可以用来显示信息供用户修改。文字框控件可接收用户输入的文本、数字、单元格引用或格式等数据。

I、文字框常用属性

• EnterKeyBehavior：设置文字框中按下Enter键的效果，和MultiLine属性同时设为True时，Enter键可以实现换行，否则将按Tab键功能顺序跳转到下一个对象；
• MaxLength：设置文字框中能够输入字符的最大数量。默认为0，表示输入字符没有数量限制；
• MultiLine：设置文字框能否接受和显示多行文本。属性值为True显示多行文本，False只容纳单行文本；
• PasswordChar：文字框中字符显示为“*”，用于密码口令输入；
• ScrollBars：设置文字框是否有垂直或水平滚动条；
• Text：设置或返回文字框中内容，与Value属性相同。

II、文字框常用方法

• Copy：将文本框中选中的文本复制到剪贴板；
• Cut：将文本框中选中的文本移动到剪贴板；
• Paste：把剪贴板上的文本粘贴到文本框中。

III、文字框常用事件

• AfterUpdate：更改文本框中数据后触发该事件；
• BeforeUpdate：文本框中数据被改变之前触发该事件。事件参数Cancel设置为True,焦点仍然停留在文字框上，并且AfterUpdate事件和Exit事件都不会发生；
• Change：文字框中数据发生变化后触发该事件；
• Enter：通过鼠标或Tab键进入文字框（成为焦点）时触发该事件；
• Exit：离开文字框（成为焦点）时触发该事件。

IV、文字框运用实例 - 信息注册

文字框及窗体属性表如下：

按属性表设计的文字框窗体效果图如下：

按面向对象程序设计思路，分布为不同文本框设计相应代码。

• 为【出生年月】文本框的BeforeUpdate事件编写检查代码，用来检查输入的日期格式是否正确。代码如下：

Private Sub txtBirthday_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(txtBirthday.Value) Then
  MsgBox "请输入正确的出生日期！", , "提示"
  txtBirthday.SelStart=0
  txtBirthday.SelLength=Len(txtBirthday.Value)
  Cancel=True
End If
End Sub

注：如果在【出生年月】文本框中输入错误的日期格式，将弹出错误提示窗口，文本框中错误文本被自动全选。正确的日期格式如，1997-12-24、1997/12/24、12、24、1997等

• 为【登记】命令按钮的Click事件编写代码，将窗体中用户输入的文本框内容添加到工作表中。代码如下：

Private Sub cmdSave_Click()
If txtName.Value="" Then
  MsgBox "请输入员工姓名！", , "提示"
  txtName.SetFocus
  Exit Sub
End If
  setData                 'setData为自定义过程
End Sub

• 在【模块1】编写setData自定义过程代码如下：

Public Sub setData()
Dim intRow As Integer
intRow=Sheet1.Range("A1").CurrentRegion.Rows.Count  '获取已有数据行
intRow=intRow + 1                                   '计算出新行（数据录入行）
Sheet1.Cells(intRow, 1)=frmInput.txtName.Value
If frmInput.optMan Then
  Sheet1.Cells(intRow, 2)="男"
Else
  Sheet1.Cells(intRow, 2)="女"
End If
Sheet1.Cells(intRow, 3)=frmInput.txtNation.Value
Sheet1.Cells(intRow, 4)=frmInput.txtBirthday.Value
Sheet1.Cells(intRow, 5).NumberFormatLocal="@"       '设置单元格为文本格式
Sheet1.Cells(intRow, 5)=frmInput.txtID.Value
Sheet1.Cells(intRow, 6).NumberFormatLocal="@"
Sheet1.Cells(intRow, 6)=frmInput.txtPhone.Value
Sheet1.Cells(intRow, 7)=frmInput.txtAddress.Value
Sheet1.Cells(intRow, 8)=frmInput.txtMemo.Value
End Sub

注：如果工作表记录为空，第1次执行过程从第2行起记录用户输入数据，第1行为预留表头

• 为【关闭】命令按钮的Click事件编写代码如下：

Private Sub cmdClose_Click()
Unload Me   '卸载窗体
End Sub

按要求完成文字框设计与运用步骤，运行后可以按设计要求按行录入数据，即完成了一个简单的信息录入系统。当然，一个实用的信息录入系统还需要更多、更严格的文本框数据校验、重复记录校验等。

2、复选框设计

复选框用来表示一个特点的状态是选定还是清除，在程序中为用户提供从两种方案中任选其一的操作。复选框可以彼此独立工作，用户可以同时选择多个复选框（即多选选择情况下使用复选框）

I、复选框常用属性和事件

除了共有的属性外，复选框有如下几个特殊属性。

• Picture：为复选框指定一个图片；
• Value：设置或返回复选框的选择状态。当选中复选框时，该属性为True、反之为False；
• TripleState：决定用户能否为复选框指定Null状态。该属性为True时可以在3个状态（True、False、Null）中选择,反之在2个状态（True、False）中选择。

复选框最常用的事件是Click（鼠标点击事件），用户选中复选框时其属性Value值变为True。程序运行时，如果使用代码改变复选框的Value属性值也会发生Click事件。

II、复选框运用实例 - 设置EXCEL选项

窗体及复选框属性表如下：

按属性表设计的复选框窗体效果图如下：

鼠标双击用户窗体进入【代码】窗口，为窗体的Initialize（初始化）事件编写代码获取EXCEL中的相关选项值，并使用该值初始化用户窗体中的各复选框。代码如下：

Private Sub UserForm_Initialize()
With ActiveWorkbook.Windows(1)
  chkDridLines.Value=.DisplayGridlines
  chkHeadings.Value=.DisplayHeadings
  chkRuler.Value=.DisplayRuler
  chkHScrollBar.Value=.DisplayHorizontalScrollBar
  chkVScrollBar.Value=.DisplayVerticalScrollBar
  chkTabs.Value=.DisplayWorkbookTabs
End With
End Sub

当用户设置不同复选框的值后，单击【确定】按钮，即可以根据复选框中的值来修改EXCEL中的相关选项。代码如下：

Private Sub cmdOK_Click()
With ActiveWorkbook.Windows(1)
  .DisplayGridlines=chkDridLines.Value
  .DisplayHeadings=chkHeadings.Value
  .DisplayRuler=chkRuler.Value
  .DisplayHorizontalScrollBar=chkHScrollBar.Value
  .DisplayVerticalScrollBar=chkVScrollBar.Value
  .DisplayWorkbookTabs=chkTabs.Value
End With
End Sub

窗体中【放弃】按钮代码如下：

Private Sub cmdCancel_Click()
Unload Me   '卸载窗体
End Sub

3、选项按钮设计

选项按钮控件即网页或其它编程语言中的单选按钮。通常选项按钮是分组的，在一组选项按钮中只有一个处于选中或按下状态。

I、选项按钮常用属性和事件

除了共有的属性外，选项按钮有如下几个特殊属性。

• GroupName：创建一个互相排斥的选项按钮控件组；
• Picture：为选项按钮指定一个图片；
• Value：设置或返回选项按钮的选择状态。当选中选项按钮时，该属性为True、反之为False；
• TripleState：决定用户能否为选项按钮指定Null状态。该属性为True时可以在3个状态（True、False、Null）中选择,反之在2个状态（True、False）中选择。

和复选框相同，选项按钮最常用的事件也是Click（鼠标点击事件），用户选中选项按钮时其属性Value值变为True。程序运行时，如果使用代码改变选项按钮的Value属性值也会发生Click事件。

II、选项按钮运用实例 - 设置窗体字号和颜色

向用户窗体添加1个标签控件、1个多行文字控件、2个框架控件和8个选项按钮控件，并设置各控件的属性值如下表：

按属性表设计的选项按钮窗体效果图如下：

为【确定】命令按钮Click事件编写处理代码如下：

Private Sub cmdSetStyle_Click()
Dim cc As Control
For Each cc In Me.Controls    '遍历窗体控件
  'If UCase(TypeName(cc))="TEXTBOX" Then cc.Text="如果为文本框"
  If UCase(TypeName(cc))="OPTIONBUTTON" Then     '如果为选项按钮   
    If cc.Value And cc.GroupName="gName1" Then frmFontsize.txtFont.Font.Size=CInt(cc.Caption)
    If cc.Value And cc.GroupName="gName2" Then    '按钮选中且为第2组
      If cc.Caption="黑色" Then frmFontsize.txtFont.ForeColor=vbBlack
      If cc.Caption="红色" Then frmFontsize.txtFont.ForeColor=vbRed
      If cc.Caption="绿色" Then frmFontsize.txtFont.ForeColor=vbGreen
      If cc.Caption="黄色" Then frmFontsize.txtFont.ForeColor=vbYellow
    End If
  End If
Next
End Sub

注：代码遍历窗体所有控件，并通过判断属性值设置文本框中字体和颜色

4、列表框设计

列表框主要用来显示项目列表。当项目总数超过列表框控件高度时，列表框会自动添加垂直滚动条，用户可以从列表框中选择一项或多项数据选项。

I、列表框常用属性

列表框显示多行文本，并且每行文本是一个可以独立处理的项。其特有属性如下：

• ColumnCount：设置列表框显示的列数；
• ColumnHeads：设置是否显示列表框的列标题；
• ColumnWidths：指定列表框各列的宽度；
• List：获取或设置列表框中列表项的内容（通过List(下标值)）；
• ListCount：表示列表框中的列表项数量；
• ListIndex：返回列表框中选中选项的序号；
• MultiSelect：是否允许列表框进行多项；
• Selected：表示列表框中各个列表项是否被选中，为数组。

注：当MultiSelect属性设置为Extended或Simple，必须用列表框的Selected属性确定选定条目

II、列表框常用方法

• AddItem：增加列表项。一般格式，
  [对象名].AddItem[项字符串][.索引值]
  其中，项字符串用双引号""界定，索引值从0开始；
• RemoveItem：移除列表项。一般格式，
  [对象名].RemoveItem[索引值]
  其中，索引值是必须的，表示欲删除哪一项；
• Clear：清除列表中所有内容。

III、列表框运用实例 - 列表框间移动数据

• 向用户窗体添加2个列表框控件、8个命令按钮和2个标签控件。设置各控件的属性值如下表：

• 用户窗体显示效果如下：

• 在户窗体的Initialize事件中编写代码用于从工作表添加数据到列表框。

Private Sub UserForm_Initialize()
Dim r As Range, i As Integer
With ActiveWorkbook.Worksheets("sheet1")
  i=.Range("A1").End(xlDown).Row            '已有数据行数
  Set r=.Range(Cells(2, 1), Cells(i, 1))    '获取已有数据引用
End With
For i=1 To r.Rows.Count                     '添加数据到列表框
  lstLeft.AddItem r(i)
Next i
If lstLeft.ListCount >=1 Then
  cmdToRight.Enabled=True
  cmdToRightAll.Enabled=True
Else
  cmdToLeft.Enabled=False
  cmdToLeftAll.Enabled=False
End If
cmdToLeft.Enabled=False
cmdToLeftAll.Enabled=False
End Sub

在运行这段代码前，先在工作表sheet1中录入数据，如图：

并运行代码后效果如下图：

• 点击命令按钮 >>（cmdToRightAll），将左侧数据项全部移至右侧列表框中。

Private Sub cmdToRightAll_Click()
Do While lstLeft.ListCount > 0        '循环处理所有数据项
  lstRight.AddItem lstLeft.List(0)    '添加列表框中的第1项
  lstLeft.RemoveItem 0                '删除左侧列表框第1项
Loop
If lstRight.ListCount > 0 Then
  cmdToLeft.Enabled=True
  cmdToLeftAll.Enabled=True
End If
cmdToRight.Enabled=False
cmdToRightAll.Enabled=False
End Sub

• 点击命令按钮 <<（cmdToLeftAll），将右侧数据项全部移至左侧列表框中。

Private Sub cmdToLeftAll_Click()
Do While lstRight.ListCount > 0
  lstLeft.AddItem lstRight.List(0)
  lstRight.RemoveItem 0
Loop
If lstLeft.ListCount > 0 Then
  cmdToRight.Enabled=True
  cmdToRightAll.Enabled=True
End If
cmdToLeft.Enabled=False
cmdToLeftAll.Enabled=False
End Sub

• 点击命令按钮 >（cmdToRight），将左侧选中数据项移至右侧列表框中。

Private Sub cmdToRight_Click()
If lstLeft.ListIndex >=0 Then
  lstRight.AddItem lstLeft.Text          '右侧列表框增加新数据项
  lstLeft.RemoveItem lstLeft.ListIndex   '删除左侧列表框选中项
End If
If lstRight.ListCount > 0 Then
  cmdToLeft.Enabled=True
  cmdToLeftAll.Enabled=True
End If
If lstLeft.ListCount > 0 Then
  cmdToRight.Enabled=True
  cmdToRightAll.Enabled=True
Else
  cmdToRight.Enabled=False
  cmdToRightAll.Enabled=False
End If
End Sub

注：应先选中左侧某数据项，然后再点击单项右移按钮

• 点击命令按钮 <（cmdToLeft），将右侧选中数据项移至左侧列表框中。

Private Sub cmdToLeft_Click()
If lstRight.ListIndex >=0 Then
  lstLeft.AddItem lstRight.Text            '左侧列表框增加新数据项
  lstRight.RemoveItem lstRight.ListIndex   '删除右侧列表框选中项
End If
If lstLeft.ListCount > 0 Then
  cmdToRight.Enabled=True
  cmdToRightAll.Enabled=True
End If
If lstRight.ListCount > 0 Then
  cmdToLeft.Enabled=True
  cmdToLeftAll.Enabled=True
Else
  cmdToLeft.Enabled=False
  cmdToLeftAll.Enabled=False
End If
End Sub

注：应先选中右侧某数据项，然后再点击单项左移按钮

• 点击命令按钮【添加图书】，将用户通过对话框输入的书名添加到左侧列表框中。

Private Sub cmdAdd_Click()
Dim str As String
str=InputBox("请输入向列表框添加的新书名：")
If Trim(str) <> "" Then lstLeft.AddItem str
End Sub

Private Sub cmdDel_Click()
If lstLeft.ListIndex >=0 Then
 lstLeft.RemoveItem lstLeft.ListIndex
End If
End Sub

Private Sub cmdDel_Click()
If lstLeft.ListIndex >=0 Then
 lstLeft.RemoveItem lstLeft.ListIndex
End If
End Sub

Private Sub cmdClose_Click()
Unload frmList
End Sub

5、复合框设计

复合框将文本框和列表框的特性结合在一起，即可以在该控件中的文本框部分输入文字信息，也可以在控件的列表框部分选择某项信息。

I、复合框常用属性

• ListRows：指定复合框的下拉列表中显示的最大行数。如果列表中的题目数超出了ListRows属性的值，则在复合框的列表框部分的右边出现滚动条；
• Style：该属性设置复合框的两种形式。FmStyleDropDownCombo下拉式复合框、值为0，它可可输入编辑区和下拉式列表组成，用户即可由编辑区输入内容，也从下拉列表中选择信息。FmStyleDropDownList下拉式列表框、值为2，用户只能从列表中选择信息；
• Text：用于返回在列表中选择的文本或在编辑区中输入的文本，也可在窗体设计时设定。

II、复合框常用事件和方法

和列表框类似，复合框也使用AddItem、RemoveItem等方法。根据复合框的类型不同，复合框所响应的事件也有所不同。当复合框的Style属性值为0或2时，能够响应Click和Dropdown事件，当tyle属性值为0时还可以接收Change事件。

III、复合框运用实例 - 电脑配置信息

• 向用户窗体添加5个标签控件、1个文本框控件、4个复合框控件和2个命令按钮控件。设置各控件的属性值如下表：

• 用户窗体显示效果如下：

• 在户窗体的Initialize事件中编写代码用于从工作表添加数据到列表框。

Private Sub UserForm_Initialize()
With cmbCPU
  .AddItem "QX6850 3.0GHz"
  .AddItem "QX6800 3.93GHz"
  .AddItem "QX6700 2.66GHz"
  .AddItem "X7800 2.6GHz"
  .AddItem "QX6450 2.6GHz"
  .AddItem "QX6250 3.4GHz"
  .AddItem "QX2850 3.6GHz"
  .AddItem "QX5870 3.8GHz"
  .AddItem "QX9150 3.23GHz"
  .AddItem "QX4250 3.13GHz"
  .Text=.List(0)
End With
With cmbMem
  .AddItem "512M"
  .AddItem "1G"
  .AddItem "2G"
  .AddItem "3G"
  .AddItem "4G"
  .Text=.List(0)
End With
With cmbHDD
  .AddItem "80G"
  .AddItem "120G"
  .AddItem "160G"
  .AddItem "250G"
  .Text=.List(0)
End With
With cmbDisp
  .AddItem "CTR 19寸"
  .AddItem "CTR 21寸"
  .AddItem "LCD 17寸"
  .AddItem "LCD 19寸"
  .AddItem "LCD 22寸"
  .Text=.List(0)
End With
End Sub

• 点击【确定】按钮，可在左侧文本框中显示计算机配置列表。该按钮Click事件代码如下：

Private Sub cmdAdd_Click()
Dim str As String
str="CPU: " & cmbCPU.Value & Chr(13)    'Chr(13)表示换行
str=str & "内存: " & cmbMem.Value & Chr(13)
str=str & "硬盘: " & cmbHDD.Value & Chr(13)
str=str & "显示器: " & cmbDisp.Value
txtComputer.Value=str
End Sub

6、滚动条设计

滚动条分为横向和纵向滚动条，它是可以放在窗体中的独立控件。通过将已放置在窗体中滚动条进行水平或垂直拖动来调整其它对象的属性值。

I、滚动条常用属性

• LargeChange：当用户点击滚动条区域时返回Value属性值的改变量；
• SmallChange：当用户点击滚动条箭头时返回Value属性值的改变量；
• Max：当滚动框处于底部或最右位置时，返回滚动条Value属性值的的最大设置值；
• Mim：当滚动框处于顶部或最左位置时，返回滚动条Value属性值的的最小设置值；
• Value：滚动条的当前位置，其返回值介于Min和Max之间，包括这两个值。Max为32767、Min为0。

注：Min和Max得属性值范围是?32768～32767?32768～32767，默认值

II、滚动条常用事件

• Change：滚动滚动框或通过代码改变Value值时触发该事件；
• Scroll：滚动框被重新定位，或按水平或垂直方向滚动时发生该事件。

注：Change是滚动完成后触发，Scroll是在滚动过程中触发

III、滚动条运用实例 - 显示工作表比例

• 向用户窗体添加2个框架框控件、3个滚动条控件、1个文本框控件和1个命令按钮控件。设置各控件的属性值如下表：

• 用户窗体显示效果如下：

• 在户窗体的Initialize事件中编写代码设置滚动条的初始值。

Private Sub UserForm_Initialize()
txtZoom.Value=ActiveWindow.Zoom            '文本框显示当前比例
With scbZoom
  .Min=10
  .Max=400
  .SmallChange=1
  .LargeChange=10
  .Value=ActiveWindow.Zoom
End With
With scbH
  .Min=1
  .Max=ActiveSheet.Cells.Columns.Count     '最大列数
  .SmallChange=1
  .LargeChange=10
  .Value=ActiveWindow.ScrollColumn         '当前列
End With
With scbV
  .Min=1
  .Max=ActiveSheet.Cells.Rows.Count        '最大行数
  .SmallChange=1
  .LargeChange=10
  .Value=ActiveWindow.ScrollRow            '当前行
End With
End Sub

• 为缩放工作表框架中滚动条的Change事件编写代码对当前窗口进行缩放。

Private Sub scbZoom_Change()
With ActiveWindow
  .Zoom=scbZoom.Value       '用滚动条的值设置当前窗口的缩放
  txtZoom.Text=.Zoom        '设置文本框的值
  .ScrollColumn=scbH.Value  '最左边的列号
  .ScrollRow=scbV.Value     '最顶端的行号
End With
End Sub

• 为窗体右侧滚动工作表框架中水平滚动条的Change事件编写代码。

Private Sub scbH_Change()
ActiveWindow.ScrollColumn=scbH.Value
End Sub

7、旋转按钮设计

旋转按钮控件主要用来输入一定范围内的整数值，一般将旋转按钮和文本框结合起来使用。点击旋转按钮只会更改旋转按钮的值，还需要编写代码修改与之结合的文本框的值。

I、旋转按钮常用属性

• SmallChange：点击旋转按钮箭头时的改变量；
• Max：旋转按钮上限值；
• Mim：旋转按钮上限值；
• Value：旋转按钮当前值。

II、旋转按钮常用事件

旋转按钮控件的Value属性值改变时，将触发Change事件，一般在该事件中编写代码来控制Value属性值，并应用的与之关联的文本框中。另外，当点击旋转按钮的上箭头（↑）和下箭头（↓ ）时触发SpinUp和SpinDown事件。

III、旋转按钮运用 - 修改日期和时间

• 向用户窗体添加8个标签控件、3个滚动条控件、6个文本框控件、6个旋转按钮控件和2个命令按钮控件。设置各控件的属性值如下表：

• 用户窗体显示效果如下：

• 在户窗体的Initialize事件中编写代码获取系统当前日期和时间，然后分别显示在相应文本框中，并根据当前的值初始化各旋转按钮的值。

Private Sub UserForm_Initialize()
txtYear.Value=Year(Date)
txtMonth.Value=Month(Date)
txtDay.Value=Day(Date)
txtHour.Value=Hour(Time)
txtMinute.Value=Minute(Time)
txtSecond.Value=Second(Time)
End Sub

在日期设置过程中，需要为反映天数的文本框（txtDay）设置最大天数。

• 对文本框（txtDay）的Change事件编程设置最大天数。

Private Sub txtDay_Change()
Dim dTemp As Date
dTemp=DateSerial(txtYear.Value, txtMonth.Value + 1, 1)
spbDay.Max=Day(dTemp - 1)
MsgBox spbDay.Max
End Sub

• 点击旋转按钮的上箭头（↑）触发SpinUp事件代码。

Private Sub spbYear_SpinUp()
txtYear.Value=txtYear.Value + spbYear.SmallChange
End Sub

• 点击旋转按钮的下箭头（↓）触发SpinDown事件代码。

Private Sub spbYear_SpinDown()
txtYear.Value=txtYear.Value - spbYear.SmallChange
End Sub

注：窗体中其它旋转按钮处理代码相同，这里不再一一列出

8、多页设计

多页控件可以中窗体中显示一系列不同的页面，在处理可以划分为不同类别的大量信息时很有用。利用多页控件能够将相关数据组织在一起显示出来。

I、多页控件的常用属性

多页控件对象为MultiPage，在该控件中还有一个子对象Page。在窗体中点击多页控件对象时，将选中当前的Page对象。Page对象类似一个独立的窗体，每个Page对象都包括自己一套独立的控件。

A. MultiPage对象属性

• MultiRow：设置控件是否有多行标签，当MultiRow属性值为True时标签分行显示，为False时，标签将在一行中显示，右侧将出现左右滚动箭头；
• Value：标识当前激活页，0表示第1页。通过该属性可获得当前激活页，也可通过给Value属性赋值来激活对应页。

B. Page对象属性

• ScrollBars：设置页面是否有垂直或水平滚动条（取值为FmScrollBarsNone：不显示滚动条、FmScrollBarsHorizontal：显示水平滚动条、FmScrollBarsVertical：显示垂直滚动条、FmScrollBarsBoth：同时显示垂直和水平滚动条）；
• TransitionEffect：设置从一页转换成另一页时所用的可视效果；
• TransitionPeriod：以毫秒为单位定义一个页面过渡效果的历时长度。

II、多页控件的常用事件

多页控件支持Click等事件，其常用事件是Change事件。当用户选择不同页（改变Value属性值）时触发Change事件，此时Value属值为新激活页的序号。

III、多页运用 - 报名登记

向用户窗体添加1个多页控件和2个命令按钮（这里命令按钮属性设置从略），将控件分为2页，每页属性分别进行设置。注意，如果需要2页以上的多页时，用鼠标右键登记多页控件上方（多页标签右边无标签部分）。

• 第1页【基本信息】页包括3个文本框和2个单选按钮控件：

• 第2页【家庭信息】页包括4个文本框控件：

注：多页控件不同页面中控件不能同名

• 用户窗体显示效果如下：

• 点击窗体【保存】按钮，分别从多页控件各个分页中的控件获得用户数据，然后将数据保存在指定工作表中。

Private Sub cmdSave_Click()
Dim r As Integer
If txtName.Value="" Then
  MsgBox "请输入学生姓名！", vbCritical + vbOKOnly
  Exit Sub
End If
With Worksheets("sheet2")
  r=.UsedRange.Rows.Count + 1 '定位添加数据的行
  .Cells(r, 1)=txtName.Value
  If optMan.Value Then
    .Cells(r, 2)="男"
  Else
    .Cells(r, 2)="女"
  End If
  .Cells(r, 3)=txtAge.Value
  .Cells(r, 4)=txtAddress.Value
  .Cells(r, 5)=txtFName.Value
  .Cells(r, 6)=txtFPhone.Value
  .Cells(r, 7)=txtFUnit.Value
  .Cells(r, 8)=txtFAddress.Value
End With
End Sub

注：在向工作表录入数据前，可按分页标签提示在sheet2第1行输入标题

创建自定义窗体对话框（用户界面设计）是运用VBA EXCEL设计数据管理系统的基础，是用户开发数据管理系统的入口和控制中枢。

介
HTML 是什么？
htyper text markup language 即超文本标记语言。
超文本: 就是指页面内可以包含图片、链接，甚至音乐、程序等非文字元素。
标记语言: 标记（标签）构成的语言。
什么是标签:
是由一对尖括号包裹的单词构成 例如: <html> *所有标签中的单词不可能以数字开头.
标签不区分大小写.<html> 和 <HTML>. 推荐使用小写.
标签分为两部分: 开始标签<a> 和 结束标签</a>. 两个标签之间的部分 我们叫做标签体.
有些标签功能比较简单.使用一个标签即可.这种标签叫做自闭和标签.例如: <br/><hr/><input/><img/>
标签可以嵌套.但是不能交叉嵌套. <a><b></a></b>
标签的属性:
通常是以键值对形式出现的. 例如 name="nick"
属性只能出现在开始标签 或 自闭和标签中.
属性名字全部小写. *属性值必须使用双引号或单引号包裹 例如 name="nick"
如果属性值和属性名完全一样.直接写属性名即可. 例如 readonly
HTML5基本结构:
将HTML4中的DTD定义为如下结构即可，其他不变。
<!DOCTYPE HTML>
HTML5支持的两种指定页面使用的字符集的方式:
使用Content-Type指定字符集
<meta http-equiv="Content-Type" content="text/html ;charset=UTF-8"/>
直接使用charset指定字符集
<meta charset="UTF-8">
<head> 标签
<title>
<title>Title</title>
<base/>
标签为页面上的所有链接规定默认地址或默认目标。
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>Title</title>
<base href="http://p_w_picpaths.cnblogs.com/cnblogs_com/suoning/845162/"/>
<base target="_blank" />
</head>
<body>
<img src="o_s.png" alt="图片加载失败。。。"/>
<a href="http://cnblogs.com/suoning/">nick blogs</a>
</body>
</html>
# 上面这段代码中，<img>标签的src属性是一个相对路径，因为<head>中通过base标签设置了链接的默认地址，
所以img的src实际的地址是“http://p_w_picpaths.cnblogs.com/cnblogs_com/suoning/845162/o_s.png”。
同样的，<a>中只是指定了href，并未指定target属性，所以也会使用base中设置的target属性的值。
<link/>
引用外部文档，常见于引用外部样式。重要属性有三个：rel、href、type。
rel 规定文档与被链接文档之间的关系。
rel="dns-prefetch" 预先解析缓存文档中使用的域名，目的是为了提高网页访问速度。使用场景：在一个网页频繁使用其他域名资源时。
rel="shortcut icon"或rel="icon" 在收藏和标题栏上用于显示的图标。示例：<link rel="icon" href="http://p_w_picpaths.cnblogs.com/cnblogs_com/suoning/845162/o_s.png">。注意：IE浏览器只支持ico格式，为了兼容IE，图片文件采用ico格式。
rel="stylesheet" 引用外部样式表。
rel="nofollow" 用于指示搜索引擎不要追踪（爬虫抓取），减少垃圾链接。用于<a>标签，使用场景：网页不被信任或是不希望呗搜索引擎录入的网站。
href 资源的路径（相对路径/绝对路径）。
type 规定被连接文档的MIME类型，用于明确文件的打开方式。例如：.ico文件 p_w_picpath/x-icon。
<meta/>
定义关于HTML文档的元数据。 重要的属性有三个：http-equiv、name、content
http-equiv 把content属性值关联到http头部。
Content-Type（浏览器接受的文档类型，一般是text/html）
refresh（网页刷新，以秒为单位）
expires（设定网页到期时间，一旦过期，必须到服务器上重传）
<meta http-equiv="Content-Type" content="text/html ;charset=UTF-8"/>
<meta http-equiv="Refresh" content="2">
<meta http-equiv="Refresh" content="2;URL=https://www.baidu.com">
<meta http-equiv="expires" content="6 Jun 2016"/>
name 把content属性关联到一个名称。
keywords（搜索关键字，用于搜索引擎抓取信息的显示）
description（搜索到网站后显示的网页内容简描述）
author（站点制作者信息）
generator（用以说明生成工具）
name也可以根据特定的功能自定义，在新浪网中有使用360认证和搜狐认证（<meta name="360-site-verification"content="63349**********"/>、<meta name="sogou_site_verification"content="BVI*******"/>）。
<meta name="keywords" content="搜索关键字">
<meta name="description" content="简要描述">
<meta name="author" content="http://cnblogs.com/suoning">
<meta name="generator" content="用以说明生成工具">
content 定义与http-equiv或name属性相关的元信息，是必要的属性。
<body> 标签
1、块级标签和内联标签
块级标签：<p><h1><table><ol><ul><form><div>
内联标签：<a><input><img><sub><sup><textarea><span>
block（块）元素的特点
① 总是在新行上开始；
② 高度，行高以及外边距和内边距都可控制；
③ 宽度缺省是它的容器的100%，除非设定一个宽度。
④ 它可以容纳内联元素和其他块元素
inline（内联）元素的特点
① 和其他元素都在一行上；
② 高，行高及外边距和内边距不可改变；
③ 宽度就是它的文字或图片的宽度，不可改变
④ 内联元素只能容纳文本或者其他内联元素
对行内元素，需要注意如下
设置宽度width 无效。
设置高度height 无效，可以通过line-height来设置。
设置margin 只有左右margin有效，上下无效。
设置padding 只有左右padding有效，上下则无效。注意元素范围是增大了，但是对元素周围的内容是没影响的。
2、基本标签
<h1>~<h6> 标题标签.
<p>: 段落标签. 包裹的内容被换行.并且也上下内容之间有一行空白.
　　　　style="text-indent: 2em"可以设置样式为首行缩进两个字符。
　　　　<blockquote></blockquote>可以用来设置整个段落的缩进。
<b> <strong>: 加粗标签.
<strike>: 为文字加上一条中线.
<u>: 文字下方加下划线.
<em> <i>: 文字变成斜体.
<sup>和<sub>: 上角标 和 下角标.
<br>:换行.
<hr>:水平线.
<div>
块级标签。块级标签常用于布局，行级标签常用语显示内容。
　　 div的显示通常使用id或class来标识。id为唯一的标签标识，class为标签的类标识。
　　 div的大小是由内容来决定的，默认情况下，高度由内容的高度决定，宽度适应屏幕。
　　 可以容纳其他元素，是一个容器。
<span>
3、特殊符号
　　> >
　　< <
　　 空格
　 " 引号
　　© 版权符号
特殊符号 符号码
" " ;
& & ;
< < ;
> > ;
© ;
® ;
± ± ;
× × ;
§ § ;
¢ ;
¥ ;
· · ;
&euro ;
£ ;
&trade ;

4、<a> 超链接标签(锚标签)
重要属性有三个：href、target、name
href 超链接地址：可以是Web上任意资源，包括图片，网页，样式，脚本文件等。href="#"时，表示被链接页面就是当前页面。
target 文档打开时要显示的目标位置，属性值一般有：_blank（新窗口中打开）、_self（默认，在超链接所在的容器中打开）、_parent（在超链接的父容器中打开）、_top（整个容器中打开）、name（框架名称）。
name 锚记名称。作用：跳转到文档的某个地方。返回首页。
# 跳转网页
<a href="http://cnblogs.com/suoning" target="_blank">Nick Blogs</a>
# 跳转锚记书签名称
<a name="top"><h3>Top！</h3></a>
<div style="height: 800px"></div>
<a href="#top">top</a>
1.标签最简式
<a href="mailto:xxx@xx.com">邮件联系</a>
2.标签帮你填抄送地址
<a href="mailto:xxx@xx.com?cc=xxxx@xx.com">邮件联系</a>
3.标签帮你填暗送地址
<a href="mailto:xxx@xx.com?bcc=xxxx@xx.com">邮件联系</a>
4.暗,抄
<a href="xxxxx@xx.com">邮件联系</a>
5.标签帮你填主题
<a href="mailto:xxx@xx.com?subject=这是主题">邮件联系</a>
6.填邮件内容
<a href="mailto:xxx@xx.com?body=这是内容">邮件联系</a>
7.多址发送
<a href="mailto:xxx@xx.com,xxxx@xx.com">邮件联系</a>
# http://shang.qq.com/v3/widget.html
<a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=630571017&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:630571017:51" alt="点击这里给我发消息" title="点击这里给我发消息"/></a>
<a href="tencent://message/?uin=630571017" target="_blank"><img style="border:0px;" src=http://wpa.qq.com/pa?p=1:707321921:13></a>
# 更多图片地址如下：
# http://wpa.qq.com/pa?p=1:707321921:1
# http://wpa.qq.com/pa?p=1:707321921:2
# http://wpa.qq.com/pa?p=1:707321921:3
# http://wpa.qq.com/pa?p=1:707321921:4
# http://wpa.qq.com/pa?p=1:707321921:5
# http://wpa.qq.com/pa?p=1:707321921:6
# http://wpa.qq.com/pa?p=1:707321921:7
# http://wpa.qq.com/pa?p=1:707321921:8
# http://wpa.qq.com/pa?p=1:707321921:9
# http://wpa.qq.com/pa?p=1:707321921:10
# http://wpa.qq.com/pa?p=1:707321921:11
# http://wpa.qq.com/pa?p=1:707321921:12
# http://wpa.qq.com/pa?p=1:707321921:13
5、<img> 图形标签
行级标签，用来显示图片。
重要属性有：src、title、alt、width、height、align。
src 图片地址。
title 鼠标悬浮在图片上的文字。
alt 图片找不到时要替换的文字。如果图片资源使用的是外网资源，则不会显示要替换的文字。如果使用的是本网站的资源（相对路径给出），则找不到图片时会显示替换的文字，并保留图片设置的宽高结构。
align 图片周围文字的垂直对齐情况。常用的属性值有：top（与图片的顶部对齐）、middle（与图片的中部对齐）、bottom（默认，与图片的底部对齐）。
width 图片的宽
height 图片的高 (宽高两个属性只用一个会自动等比缩放.)
<img src="http://p_w_picpaths.cnblogs.com/cnblogs_com/suoning/845162/o_ns.png" alt="图片加载失败。。。" title="The knife girl, kiss"/>
6、列表标签　
<ul> :无序列表标签
<li>:列表中的每一项.
<ol> :有序列表标签
<li>:列表中的每一项.
<li>主要的属性有：type、value两个:
type指明项目的类型，属性值有：A，a，I，i，1，disc（实心圆），square（实心正方形），circle（空心圆）。
value表示序号值从几开始。
<dl> 定义列表
<dt> 列表标题
<dd> 列表项
<ur>
<li type="circle">A</li>
<li type="1">B</li>
<li type="1">C</li>
</ur>
<ol>
<li value="3">3</li>
<li>4</li>
</ol>
<dl>
<dt><i>标题</i></dt>
<dd>第一项</dd>
<dd>第二项</dd>
<dd>第三项</dd>
</dl>
　　
7、<table> 表格标签
<table border="1">
<thead>
<tr>
<th>序号</th>
<th>姓名</th>
</tr>
</thead>
<tbody>
<tr>
<th>1.</th>
<td>nick</td>
</tr>
<tr>
<th>2.</th>
<td>jenny</td>
</tr>
</tbody>
</table>
<table> 表格标签
border:（表格边框）
align（水平对齐方式）
bgcolor（背景颜色）
cellpadding（内边距，单元格与内容之间的距离）
cellspacing（外边距，单元格的间距，设置为0时，表格变为实线表格）
width（表格的宽度，可以用%或者像素，最好通过css来设置长宽）
<caption> 表格的标题
<tr> 表格的数据行，table row
<th> 表格的表头名称，与<td>不同在于文字采用加粗居中的形式显示，table head cell
<td> 单元格，用来显示表格内容，table data cell
<thead> 表格头部，使结构更加分明
<tbody> 表格主体部分，使结构更加分明
rowspan 单元格竖跨多少行，作用在th或者td上
colspan 单元格横跨多少列（即合并单元格），作用在th或者td上
<table>
<caption>xxxxxxxxxx</caption>
<thead>
<tr>
<th>序号</th>
<th>姓名</th>
<th>年龄</th>
<th>女神</th>
</tr>
</thead>
<tbody>
<tr>
<th>1.</th>
<td>nick</td>
<td>18</td>
<td>可可西</td>
</tr>
<tr>
<th>2.</th>
<td>jenny</td>
<td>21</td>
<td>nick!!!</td>
</tr>
</tbody>
</table>
8、<form>表单标签
表单属性
HTML 表单用于接收不同类型的用户输入，用户提交表单时向服务器传输数据，从而实现用户与Web服务器的交互。表单标签, 要提交的所有内容都应该在该标签中。
属性：action、method、enctype
action 表单要提交的地址，用于处理表单的内容（一般是提交字典到后台的一个接口，这个接口是java写成的，提交到这个接口后后台就知道如何处理这些数据了）。
method 提交的方法，默认是get方式提交。
get: 1.提交的键值对.放在地址栏中url后面. 2.安全性相对较差. 3.对提交内容的长度有限制.
post:1.提交的键值对不在地址栏. 2.安全性相对较高. 3.对提交内容的长度理论上无限制.
enctype 对表单数据进行编码，默认都是要编码的。格式为：application/x-www-form-urlencoded（表单默认的编码格式，表单发送前对所有字符进行编码。编码规则：空格转换为“+”号，特殊符号转换为ASC HEX值）。提交普通的文本内容到服务器就可以采用这种默认的编码方式。当你需要提交的是一个文件时，编码就需要采用另一种格式：multipart/form-data（不对字符编码，文件上传时使用）。text/plain（是一种纯文本编码，空格转换为“+”号，但是不对特殊字符进行编码）。
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>Title</title>
</head>
<body>
<form action="https://www.baidu.com/s">
<input type="text" name="wd">
<input type="submit" value="百度一下">
</form>
</body>
</html>
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>Title</title>
</head>
<body>
<form action="https://www.sogou.com/web">
<input type="text" name="query">
<input type="submit" value="搜狗搜索">
</form>
</body>
</html>
表单元素
<input> type 属性：
text 文本框输入（默认text文本框类型）。
autocomplete（自动完成输入的内容，要求表单元素要有name属性才有自动完成的效果，off表示自动完成不可用，on表示自动完成可用）
disabled（设置或者获取控件的状态，默认是false即可用，等于true时不可用，不能输入内容）
　　　　password 密码框。（以下属性text和password共有）
size（指定表单元素的初始宽度。当type为text或password时，表单元素的大小以字符为单位，对于其他元素，宽度以像素为单位）
maxlength（type为text或password时，表示输入的最大字符数），有利于防止sql的注入攻击
readonly 只读.　
　　　　　　placeholder 框内预置内容(灰色)，写上内容时才消失
radio 单选按钮。属性：
name（将name的值设置为相同值，才表示一组数据，才能实现单选功能）
value（必须要写，提交到服务器的key值，实际开发过程中value一般是编号）
checked（是否被选中的状态）
checkbox 复选框。
name（名字一定要一样一样的，才表示是一组数据，添加到同一value值列表提交到服务器）
value（必须要写，提交到服务器的key值，实际开发过程中value一般是编号）
checked（是否被选中的状态）
file 文件域，上传文件（不同的浏览器表现形式不同）
　　　　submit 提交按钮。用于提交表单。
　　　　reset 重置按钮。清空表单的输入，恢复到表单默认的状态。
button 普通按钮。一般结合javascript使用。
　　　　p_w_picpath 图片按钮，用来提交表单，与submit是一样的效果。
src（图片路径）
　　　　hidden 隐藏字段。
value（隐藏的内容）
　　　　color 颜色标签。value指定颜色值（采用#十六进制数表示）。
　　　　date 日期。value值指定默认的日期，格式为****-**-**（年月日）。
　　　　datetime-local 显示本地时间，value值指定默认的时间，格式为2016-05-20T11:10:10（年月日T时分秒）。
　　　　number 数字向上或者向下滑动。可以填数字然后向上或者向下选择不同的值。
　　　　range 滑动标签。min（指定最小值）、max（指定最大值）、value（指定当前默认值）。
　　　　week 每年的周数。value指定哪一年第几周，格式为2016-W25（2016年第25周）。
<textarea> 文本域标签。默认表现形式是可以输入很多行文本的文本框。
name （表单提交项的key）
　　　　cols（设置文本域宽度）
rows（设置文本域高度，即行数）
<select> 下拉框标签。使用时要结合<option>子标签一起使用。
name:表单提交项的key
size：选项个数
multiple：多选
<option> 下拉选中的每一项
value（表单提交项的值）
selected（selected下拉选默认被选中）
<optgroup>为每一项加上分组
<label> 把元素与文本结合起来
友好设计：不只是选中复选框才能选中并打钩，要求点击对应的文字也能选中该复选框。
这种情况下要用到<label>标签的for属性（设置或获取给定标签对象指定到的对象，值=另一个元素的id号即可）
<label for="name">姓名</label>
<input id="name" type="text">
<fieldset> 对表单中的相关元素进行分组
<fieldset>
<legend>温馨提示</legend>
<div align="middle">不要忘记点赞哦==</div>
</fieldset>
value: 表单提交项的值
对于不同的输入类型，value 属性的用法也不同：
type="button", "reset", "submit" - 定义按钮上的显示的文本
type="text", "password", "hidden" - 定义输入字段的初始值
type="checkbox", "radio", "p_w_picpath" - 定义与输入相关联的值
框架
<frameset> 框架
用来划分窗体，不能放在<body>中，否则没有效果。
cols （纵向分割页面。其数值表示方法有三种：“30%、30（或者30px）、*”；数值的个数代表分成的视窗数目且数值之间用“,”隔开。“30%”表示该框架区域占全部浏览器页面区域的30%；“30”表示该区域横向宽度为30像素；“*”表示该区域占用余下页面空间。例如：cols="25%,200,*" 表示将页面分为三部分，左面部分占页面30%，中间横向宽度为200像素，页面余下的作为右面部分。）
rows（横向分割页面。属性和cols一样）
frameborder（设置是否显示框架边框。设定值只有0、1；0 表示不要边框，1 表示要显示边框）
border（框架之间的距离，一般设置为0）
bordercolor（边框的颜色）
framespacing（设置框架与框架间的保留的空白距离）
<frameset cols="40%,*,*"> 第一个框架占整个浏览器窗口的40%,剩下的空间平均分配给另外两个框架。
<frameset cols="*,*,*,*"> 浏览器窗口等分为四部分。
<iframe> 框架
元素会创建包含另外一个文档的内联框架（即行内框架）
name （设置框架名称。此为必须设置的属性）
src （设置此框架要显示的网页名称或路径。此为必须设置的属性）
scrolling （设置是否要显示滚动条。设定值为auto, yes, no）
bordercolor （设置框架的边框颜色）
frameborder （设置是否显示框架边框。设定值只有0、1；0 表示不要边框，1 表示要显示边框）
noresize （设置框架大小是否能手动调节）
marginwidth （设置框架边界和其中内容之间的宽度）
marginhight （设置框架边界和其中内容之间的高度）
width（设置框架宽度）
height （设置框架高度）