創(chuàng)建向?qū)�樣式的�?shù)據(jù)輸入窗體

引言：本文來源于《Pro Excel VBA》的第4章的示例，主要為學(xué)習(xí)VBA用戶窗體提供參考。本文“超長”，但如果能夠仔細研讀，一定會有很豐富的收獲。

可以先下載示例文檔：

向?qū)�樣式的輸入是相當普遍的技術(shù)，用于幫助用戶輸入較多的或復(fù)雜的數(shù)據(jù)。向?qū)г试S將數(shù)據(jù)分成相互聯(lián)系的部分，通過按順序輸入數(shù)據(jù)的過程指導(dǎo)用戶。
示例工作簿名稱為HRWizard.xlsm，由2個工作表組成，名為EmpData的工作表為員工數(shù)據(jù)庫工作表，名為ListMgr的工作表包含在創(chuàng)建數(shù)據(jù)輸入窗體向?qū)�時使用的不同的列表。（其實還有一個名為UFormConfig的工作表，存放著向?qū)Р襟E的信息）

EmpData工作表被分成4部分：Personal、Address、Equipment、Access，如下列圖所示。

員工個人信息

員工地址信息

員工設(shè)備信息

員工訪問信息
下面的向?qū)Т绑w將引導(dǎo)用戶為新員工輸入信息。
布局向?qū)Т绑w
1、打開VBE，添加新用戶窗體。
2、將用戶窗體的高度設(shè)置為320，寬度為332。
3、將用戶窗體重命名為HRWizard。
4、在用戶窗體頂部添加標簽，將其Caption屬性設(shè)置為：MyCompany – HRWizard，設(shè)置字體為大尺寸，如18pt。
5、在用戶窗體中添加一個多頁控件。
6、設(shè)置該控件的Height屬性為216，Width屬性為270。
7、將其在用戶窗體中居中，在用戶窗體底部留出空間。
此時的用戶窗體如下圖所示。

由于有4個數(shù)據(jù)集合部分，需要再添加兩個頁。
1、在多頁控件頂部的選項卡中單擊右鍵。
2、在快捷菜單中選擇“新建頁”，如下圖所示。

3、重復(fù)上面的步驟。
此時的用戶窗體如下圖所示。

在用戶窗體中添加控件
在“Page1”中添加的控件如下表所示，與EmpData工作表中個人信息列標題一致。
表：HRWizard用戶窗體控件

在多頁控件的下方添加四個命令按鈕。

現(xiàn)在的用戶窗體和下圖相似。

在“Page2”中添加的控件如下表所示，與EmpData工作表中地址信息列標題一致。
表：Address選項卡控件設(shè)置

Page2如下圖所示。

在“Page3”中添加的控件如下表所示，與EmpData工作表中設(shè)備信息列標題一致。
表：設(shè)備選項卡控件設(shè)置

Page3如下圖所示。

在“Page4”中添加的控件如下表所示，與EmpData工作表中訪問信息列標題一致。
表：訪問選項卡控件設(shè)置

Page4如下圖所示。

至此，界面設(shè)計完成。
接下來，設(shè)置一些類來使用戶窗體工作。一開始，可能認為一個與數(shù)據(jù)記錄相聯(lián)系的類就滿足要求了，但我們將在定義類時分解功能區(qū)，設(shè)計一兩個類幫助定義向?qū)Р襟E。最終，將有一個靈活的向?qū)��?yīng)用程序，提供非常容易修改步驟的順序的能力，甚至添加一個步驟也相當簡單。
HRWizard類
由于正收集的某些員工信息將被傳遞給其它部門去處理，因此在自已的類中放置從每個屏幕中獲得的數(shù)據(jù)。也需要一個監(jiān)控向?qū)Р襟E的類，同時考慮一個幫助使用ListMgr工作表中數(shù)據(jù)填充列表的類。下表列出了每個類并描述了其功能。
表：HRWizard應(yīng)用程序類模塊

HRWizard商業(yè)對象
下面開始設(shè)計商業(yè)對象。這些類存儲每個對象的數(shù)據(jù)，包含每個對象的一些商業(yè)規(guī)則。
在工程中添加一個新的類模塊并將其命名為cPerson，再添加另外三個類模塊，分別將它們命名為cAddress、cEquipment和cAccess。cPerson對象包含一個cAddress對象、cEquipment對象、一個cAccess對象。要保持它們同步，對這四個商業(yè)對象類的每一個都添加一個ID屬性。
在每個類中，添加下列模塊級的聲明：

類	描述
cPerson	包含新記錄中的所有個人信息
cAddress	包含新記錄中的所有地址信息
cEquipment	包含新記錄中的所有設(shè)備信息
cAccess	包含新記錄中的所有訪問信息
cStep	包含向?qū)�每一步的配置�?/td>
cStepMgr	控制向?qū)У牟僮骷肮芾韈Step對象的集合
cListMgr	控制用戶窗體中填充組合框的列表
cHRData	從商業(yè)對象中將數(shù)據(jù)轉(zhuǎn)移到數(shù)據(jù)庫；將數(shù)據(jù)從數(shù)據(jù)庫發(fā)送到商業(yè)對象

Private m_lngID As Long Public Property Get ID() As Long ID = m_lngIDEnd Property Public Property Let ID(newID As Long) m_lngID = newIDEnd Property

現(xiàn)在，讓我們集中開發(fā)cPerson類。每個類實質(zhì)上對應(yīng)著先前我們設(shè)計的每一個界面。
在cPerson類中添加下列模塊級變量聲明：

Private m_sFName As StringPrivate m_sMidInit As StringPrivate m_sLName As StringPrivate m_dtDOB As DatePrivate m_sSSN As StringPrivate m_sJobTitle As StringPrivate m_sDepartment As StringPrivate m_sEmail As StringPrivate m_oAddress As cAddressPrivate m_oEquipment As cEquipmentPrivate m_oAccess As cAccess

注意，除了從屏幕設(shè)計中的數(shù)據(jù)輸入項外，還包括包含地址、設(shè)備和訪問信息的對象。
這里首先要做的是初始化cPerson類，設(shè)置一些默認值。在Class_Initialize事件中，添加下列代碼：

Private Sub Class_Initialize() m_lngID = RandomNumber(100000, 999999) Set m_oAddress = New cAddress Set m_oEquipment = New cEquipment Set m_oAccess = New cAccess SetObjectIDsEnd Sub

上述代碼中，設(shè)置了私有的ID變量m_lngID為隨機的6位數(shù)字，并初始化私有的商業(yè)對象變量。然后調(diào)用私有的函數(shù)SetObjectIDs設(shè)置所有四個商業(yè)對象的ID值為相同的值。添加下列代碼到cPerson類中生成隨機數(shù)字和同步ID字段：

Private Function RandomNumber(upper As Long, lower As Long) As Long '生成一個介于upper和lower之間的隨機數(shù) Randomize RandomNumber = Int((upper - lower + 1) * Rnd + lower)End Function Private Sub SetObjectIDs() m_oAddress.ID = m_lngID m_oEquipment.ID = m_lngID m_oAccess.ID = m_lngIDEnd Sub

在ID Property Let函數(shù)中添加對上面的過程的調(diào)用。這樣，如果手工對ID字段賦值，那么所有的商業(yè)對象都獲取這個新值。最終的ID Property Let過程代碼如下：

Public Property Let ID(newID As Long) m_lngID = newID SetObjectIDs '保持所有對象同步使用相同的IDEnd Property

cPerson類的剩余部分非常直觀。最終的cPerson類的代碼如下：

Property Get FName() As String FName = m_sFNameEnd Property Property Let FName(newFName As String) m_sFName = newFNameEnd Property Property Get MidInit() As String MidInit = m_sMidInitEnd Property Property Let MidInit(newMidInit As String) m_sMidInit = newMidInitEnd Property Property Get LName() As String LName = m_sLNameEnd Property Property Let LName(newLName As String) m_sLName = newLNameEnd Property Property Get DOB() As Date DOB = m_dtDOBEnd Property Property Let DOB(newDOB As Date) m_dtDOB = newDOBEnd Property Property Get SSN() As String SSN = m_sSSNEnd Property Property Let SSN(newSSN As String) m_sSSN = newSSNEnd Property Property Get JobTitle() As String JobTitle = m_sJobTitleEnd Property Property Let JobTitle(newJobTitle As String) m_sJobTitle = newJobTitleEnd Property Property Get Department() As String Department = m_sDepartmentEnd Property Property Let Department(newDepartment As String) m_sDepartment = newDepartmentEnd Property Property Get Email() As String Email = m_sEmailEnd Property Property Let Email(newEmail As String) m_sEmail = newEmailEnd Property Property Get Address() As cAddress Set Address = m_oAddressEnd Property Property Set Address(newAddress As cAddress) Set m_oAddress = newAddressEnd Property Property Get Equipment() As cEquipment Set Equipment = m_oEquipmentEnd Property Property Set Equipment(newEquipment As cEquipment) Set m_oEquipment = newEquipmentEnd Property Property Get Access() As cAccess Set Access = m_oAccessEnd Property Property Set Access(newAccess As cAccess) Set m_oAccess = newAccessEnd Property

至此，已經(jīng)完成Person數(shù)據(jù)元素的添加，以及3個對象類屬性。同時，想要添加一個屬性，返回員工的全名。下面的代碼在cPerson中添加只讀的FullName屬性：

Property Get FullName() As String Dim sReturn As String Dim blnMidInit As Boolean  blnMidInit = Len(m_sMidInit & "") > 0  If blnMidInit Then sReturn = m_sFName & " " & m_sMidInit & " " & m_sLName Else sReturn = m_sFName & " " & m_sLName End If  FullName = sReturnEnd Property

這就是我們所需要的cPerson類。
下面列出其它3個類的代碼。
cAddress類：

Private m_lngID As LongPrivate m_sStreetAddress As StringPrivate m_sStreetAddress2 As StringPrivate m_sCity As StringPrivate m_sState As StringPrivate m_sZipCode As StringPrivate m_sPhoneNumber As StringPrivate m_sCellPhone As String Public Property Get ID() As Long ID = m_lngIDEnd Property Public Property Let ID(newID As Long) m_lngID = newIDEnd Property Public Property Get StreetAddress() As String StreetAddress = m_sStreetAddressEnd Property Public Property Let StreetAddress(newAddress As String) m_sStreetAddress = newAddressEnd Property Public Property Get StreetAddress2() As String StreetAddress2 = m_sStreetAddress2End Property Public Property Let StreetAddress2(newAddress2 As String) m_sStreetAddress2 = newAddress2End Property Public Property Get City() As String City = m_sCityEnd Property Public Property Let City(newCity As String) m_sCity = newCityEnd Property Public Property Get State() As String State = m_sStateEnd Property Public Property Let State(newState As String) m_sState = newStateEnd Property Public Property Get ZipCode() As String ZipCode = m_sZipCodeEnd Property Public Property Let ZipCode(newZipCode As String) m_sZipCode = newZipCodeEnd Property Public Property Get PhoneNumber() As String PhoneNumber = m_sPhoneNumberEnd Property Public Property Let PhoneNumber(newPhoneNumber As String) m_sPhoneNumber = newPhoneNumberEnd Property Public Property Get CellPhone() As String CellPhone = m_sCellPhoneEnd Property Public Property Let CellPhone(newCellPhone As String) m_sCellPhone = newCellPhoneEnd Property

cEquipment類：

Private m_lngID As LongPrivate m_sPCType As StringPrivate m_sPhoneType As StringPrivate m_sLocation As StringPrivate m_sFaxYN As String Public Property Get ID() As Long ID = m_lngIDEnd Property Public Property Let ID(newID As Long) m_lngID = newIDEnd Property Public Property Get PCType() As String PCType = m_sPCTypeEnd Property Public Property Let PCType(newPCType As String) m_sPCType = newPCTypeEnd Property Public Property Get PhoneType() As String PhoneType = m_sPhoneTypeEnd Property Public Property Let PhoneType(newPhoneType As String) m_sPhoneType = newPhoneTypeEnd Property Public Property Get Location() As String Location = m_sLocationEnd Property Public Property Let Location(newLocation As String) m_sLocation = newLocationEnd Property Public Property Get FaxYN() As String FaxYN = m_sFaxYNEnd Property Public Property Let FaxYN(newFaxYN As String) m_sFaxYN = newFaxYNEnd Property

cAccess類：

Private m_lngID As LongPrivate m_sBuilding As StringPrivate m_iNetworkLevel As IntegerPrivate m_sRemoteYN As StringPrivate m_sParkingSpot As String Public Property Get ID() As Long ID = m_lngIDEnd Property Public Property Let ID(newID As Long) m_lngID = newIDEnd Property Public Property Get Building() As String Building = m_sBuildingEnd Property Public Property Let Building(newBuilding As String) m_sBuilding = newBuildingEnd Property Public Property Get NetworkLevel() As Integer NetworkLevel = m_iNetworkLevelEnd Property Public Property Let NetworkLevel(newNetworkLevel As Integer) m_iNetworkLevel = newNetworkLevelEnd Property Public Property Get RemoteYN() As String RemoteYN = m_sRemoteYNEnd Property Public Property Let RemoteYN(newRemoteYN As String) m_sRemoteYN = newRemoteYNEnd Property Public Property Get ParkingSpot() As String ParkingSpot = m_sParkingSpotEnd Property Public Property Let ParkingSpot(newParkingSpot As String) m_sParkingSpot = newParkingSpotEnd Property

管理列表
在HRWizard用戶窗體中輸入的一些數(shù)據(jù)是通過組合框控件顯示給用戶的。HRWizard工作簿文件包含一個名為ListMgr的工作表，其中包含每個列表的數(shù)據(jù)。這些數(shù)據(jù)存儲在ListMgr工作表的命名區(qū)域。
cListManager類包含的函數(shù)可以從這些命名區(qū)域中填充組合框，同時也有一個將列表綁定到VBA Collection對象的方法。
插入一個新的類模塊，將其命名為cListManager，在其中添加下面兩個方法：

Public Sub BindListToRange(ListRangeName As String, TheCombo As MSForms.ComboBox) TheCombo.RowSource = ListRangeNameEnd Sub Public Sub BindListToCollection(TheCollection As Collection, TheCombo As MSForms.ComboBox) Dim iNumItems As Integer Dim i As Integer iNumItems = TheCollection.Count For i = 1 To iNumItems TheCombo.AddItem TheCollection(i) Next iEnd Sub

BindListToRange方法接受區(qū)域名稱字符串值和ComboBox對象，設(shè)置組合框的RowSource屬性為命名區(qū)域。BindListToCollection方法簡單地遍歷集合并調(diào)用組合框的AddItem方法。
數(shù)據(jù)類
數(shù)據(jù)類被命名為cHRData，這是一個專門為HRWizard應(yīng)用程序設(shè)計的類。
插入一個新的類模塊，將其命名為cHRData。在其中添加下面的模塊級變量、一個屬性和一個方法。

Private m_oWorksheet As WorksheetPrivate m_lngNewRowNum As LongPrivate m_oEmployee As cPersonPrivate m_oXL As cExcelUtils Public Property Get Worksheet() As Worksheet Set Worksheet = m_oWorksheetEnd Property Public Property Set Worksheet(newWorksheet As Worksheet) Set m_oWorksheet = newWorksheetEnd Property Public Function SaveEmployee(Employee As cPerson) As Boolean Dim blnReturn As Boolean  If m_oWorksheet Is Nothing Then GoTo Exit_Function End If  m_lngNewRowNum = m_oXL.FindEmptyRow(m_oWorksheet) Set m_oEmployee = Employee  SaveEmpData SaveAddressData SaveEquipmentData SaveAccessData Exit_Function: SaveEmployee = blnReturn Exit FunctionEnd Function

添加下列類初始化和清理代碼：

Private Sub Class_Initialize() Set m_oXL = New cExcelUtilsEnd Sub Private Sub Class_Terminate() Set m_oXL = NothingEnd Sub

Worksheet屬性讓我們定義工作簿中存儲數(shù)據(jù)的地方。當傳遞cPerson對象時SaveEmployee方法為我們做一些事情：

Public Function SaveEmployee(Employee As cPerson) As Boolean

檢查是否設(shè)置了Worksheet屬性，以便知道在哪里保存數(shù)據(jù)：

If m_oWorksheet Is Nothing Then GoTo Exit_Function End If

使用cExcelUtils對象找到第一個空行：

m_lngNewRowNum = m_oXL.FindEmptyRow(m_oWorksheet)

接下來，將傳遞給該方法的cPerson對象賦值給私有的用于不同的保存函數(shù)的模塊級cPerson對象：

Set m_oEmployee = Employee

最后，觸發(fā)一些保存函數(shù)，每個數(shù)據(jù)對象一個：

SaveEmpData SaveAddressData SaveEquipmentData SaveAccessData

Save方法簡單地將存儲在cPerson對象（及其內(nèi)部的數(shù)據(jù)對象）中的數(shù)據(jù)轉(zhuǎn)換到EmpData工作表中的單元格。在cHRData類模塊中添加下列Save方法：

Private Sub SaveEmpData() With m_oWorksheet .Cells(m_lngNewRowNum, 1).Value = m_oEmployee.ID .Cells(m_lngNewRowNum, 2).Value = m_oEmployee.FName .Cells(m_lngNewRowNum, 3).Value = m_oEmployee.MidInit .Cells(m_lngNewRowNum, 4).Value = m_oEmployee.LName .Cells(m_lngNewRowNum, 5).Value = m_oEmployee.DOB .Cells(m_lngNewRowNum, 6).Value = m_oEmployee.SSN .Cells(m_lngNewRowNum, 7).Value = m_oEmployee.JobTitle .Cells(m_lngNewRowNum, 8).Value = m_oEmployee.Department .Cells(m_lngNewRowNum, 9).Value = m_oEmployee.Email End WithEnd Sub Private Sub SaveAddressData() With m_oWorksheet .Cells(m_lngNewRowNum, 10).Value = m_oEmployee.Address.StreetAddress .Cells(m_lngNewRowNum, 11).Value = m_oEmployee.Address.StreetAddress2 .Cells(m_lngNewRowNum, 12).Value = m_oEmployee.Address.City .Cells(m_lngNewRowNum, 13).Value = m_oEmployee.Address.State .Cells(m_lngNewRowNum, 14).Value = m_oEmployee.Address.ZipCode .Cells(m_lngNewRowNum, 15).Value = m_oEmployee.Address.PhoneNumber .Cells(m_lngNewRowNum, 16).Value = m_oEmployee.Address.CellPhone End WithEnd Sub Private Sub SaveEquipmentData() With m_oWorksheet .Cells(m_lngNewRowNum, 17).Value = m_oEmployee.Equipment.PCType .Cells(m_lngNewRowNum, 18).Value = m_oEmployee.Equipment.PhoneType .Cells(m_lngNewRowNum, 19).Value = m_oEmployee.Equipment.Location .Cells(m_lngNewRowNum, 20).Value = m_oEmployee.Equipment.FaxYN End WithEnd Sub Private Sub SaveAccessData() With m_oWorksheet .Cells(m_lngNewRowNum, 21).Value = m_oEmployee.Access.Building .Cells(m_lngNewRowNum, 22).Value = m_oEmployee.Access.NetworkLevel .Cells(m_lngNewRowNum, 23).Value = m_oEmployee.Access.RemoteYN .Cells(m_lngNewRowNum, 24).Value = m_oEmployee.Access.ParkingSpot End WithEnd Sub

注意，用于獲取cPerson對象的內(nèi)部的Address、Equipment、Access對象數(shù)據(jù)的語法：

m_oEmployee.Address.StreetAddressm_oEmployee.Equipment.PCTypem_oEmployee.Access.Building

在一個對象里使用另一個對象可以靈活地分類對象中的信息。
管理向?qū)?/strong>
創(chuàng)建兩個類來幫助管理向?qū)��?yīng)用程序。第一個非常簡單，包含每步的配置數(shù)據(jù)，接著創(chuàng)建一個類，包含這些“向?qū)Р襟E”對象的集合，管理向?qū)н^程的操作。
插入一個新的類模塊，將其命名為cStep，添加下列代碼：

Private m_iOrder As IntegerPrivate m_iPage As IntegerPrivate m_sCaption As String Public Property Get Order() As Integer Order = m_iOrderEnd Property Public Property Let Order(newOrder As Integer) m_iOrder = newOrderEnd Property Public Property Get Page() As Integer Page = m_iPageEnd Property Public Property Let Page(newPage As Integer) m_iPage = newPageEnd Property Public Property Get Caption() As String Caption = m_sCaptionEnd Property Public Property Let Caption(newCaption As String) m_sCaption = newCaptionEnd Property

HRWizard.xlms工作簿包含一個名為UFormConfig的工作表，該工作表包含向?qū)е忻總�步驟的信息。在這里，可以修改步驟的順序或者插入一個新步驟。
下表列出了cStep類的屬性及其描述。
表：cStep屬性

下面，設(shè)置一個類來管理向?qū)е械牟襟E。在這個類中，將創(chuàng)建cStep對象的集合，用于追蹤我們在處理過程中的哪一步以及共有多少步。
插入一個新的類模塊，將其命名為cStepManager，添加下列模塊級的變量聲明：

類	描述
Order	包含向?qū)�處理的順序里步驟的位置
Page	包含與多頁控件中相應(yīng)的頁面一致的頁號
Caption	顯示在當前活動頁控件中的文本

Dim m_oStep As cStepDim m_iNumSettings As IntegerDim m_iNumSteps As IntegerDim m_iCurrentPage As IntegerDim m_iPreviousPage As IntegerDim m_iNextPage As IntegerDim WithEvents m_oPreviousButton As MSForms.CommandButtonDim WithEvents m_oNextButton As MSForms.CommandButtonDim m_oWorksheet As Worksheet

通過接下來的一些Integer變量，cStep對象m_oStep用于填充向?qū)Р襟E的集合。告訴有多少步驟，每步有多少屬性，基于用戶在向?qū)У奈恢米粉櫘斍啊⑾乱粋�、前一個步驟。
接下來，有兩個設(shè)置為MSForms.CommandButton對象類型的變量，它們被聲明為WithEvents。我們讓cStepManager類維護這些按鈕的狀態(tài)。WithEvents聲明來捕獲它們的Click事件，并在類里面執(zhí)行操作。使用Click事件基于用戶在向?qū)е械奈恢脹Q定是否啟用按鈕。
在cStepManager中添加下面的代碼：

Public Property Get NumberOfSettings() As Integer NumberOfSettings = m_iNumSettingsEnd Property Public Property Let NumberOfSettings(newNum As Integer) m_iNumSettings = newNumEnd Property '工作表屬性:獲取/設(shè)置包含步驟信息的工作表Public Property Get Worksheet() As Worksheet Set Worksheet = m_oWorksheetEnd Property Public Property Set Worksheet(newWorksheet As Worksheet) Set m_oWorksheet = newWorksheetEnd Property Public Property Get CurrentPage() As Integer CurrentPage = m_iCurrentPageEnd Property Public Property Let CurrentPage(newPage As Integer) m_iCurrentPage = newPageEnd Property Public Property Get PreviousPage() As Integer PreviousPage = m_iCurrentPage - 1End Property Public Property Get NextPage() As Integer NextPage = m_iCurrentPage + 1End Property Public Property Set PreviousButton(newPreviousBtn As MSForms.CommandButton) Set m_oPreviousButton = newPreviousBtnEnd Property Public Property Set NextButton(newNextBtn As MSForms.CommandButton) Set m_oNextButton = newNextBtnEnd Property

下表列出了cStepManager類的屬性及其描述。
表：cStepManager屬性

需要在類中添加更多的屬性。下面的只讀屬性包含cStep對象的集合，包含向?qū)У拿恳徊降男畔ⅰ?br/>PageSettings屬性存儲該集合，使用HRWizard用戶窗體后臺的客戶端代碼返回一個Collection對象。
PageSettings屬性的代碼如下：

類	描述
NumberOfSettings	包含步驟配置工作表UFormConfig中的列數(shù)
Worksheet	告訴類到哪里查找向?qū)У拿坎降男畔?/td>
CurrentPage	在向?qū)е写鎯Ξ斍安襟E的值
PreviousPage	基于CurrentPage屬性計算；返回向?qū)е星耙徊襟E的值
NextPage	基于CurrentPage屬性計算；返回向?qū)е邢乱徊襟E的值
PreviousButton	存儲用戶窗體中導(dǎo)航到向?qū)У那耙徊降陌粹o的指針
NextButton	存儲用戶窗體中導(dǎo)航到向?qū)У暮笠徊降陌粹o的指針

Public Property Get PageSettings() As Collection Dim colReturn As Collection Dim numrows As Integer Dim row As Integer Dim col As Integer Dim sKey As String  Set colReturn = New Collection  numrows = m_oWorksheet.Cells(Rows.Count, 1).End(xlUp).row  For row = 2 To numrows Set m_oStep = New cStep For col = 1 To m_iNumSettings Select Case col Case 1 m_oStep.Order = m_oWorksheet.Cells(row, col).Value sKey = CStr(m_oStep.Order) Case 2 m_oStep.Page = m_oWorksheet.Cells(row, col).Value Case 3 m_oStep.Caption = m_oWorksheet.Cells(row, col).Value End Select Next col colReturn.Add m_oStep, sKey Next row  m_iNumSteps = colReturn.Count Set PageSettings = colReturnEnd Property

我們首先做的是獲取工作表中已使用的區(qū)域的行數(shù)：

注意，雖然Excel的Worksheet對象有Rows.Count方法，但是在這里不能使用(m_oWorksheet.Rows.Count)。這將返回工作表中的總行數(shù)，這樣不僅提供不正確的值，而且也會使Integer變量溢出。
接下來，循環(huán)填充cStep對象集合，代碼如下：

上述代碼中，首先做的是實例化一個新的cStep對象，然后移到內(nèi)部循環(huán)遍歷配置工作表中的列，將它們賦給內(nèi)部的cStep對象的相應(yīng)屬性。這段代碼運行前，已經(jīng)通過NumberOfSettings屬性設(shè)置m_iNumSettings值。
最后，將cStep對象添加到內(nèi)部的集合colReturn中，在該集合中傳遞Order值作為主鍵。
注意，在外部循環(huán)中的第一行代碼，Set m_oStep=New cStep，是重要的。如果忽略該代碼，那么集合中將以四個相同的cStep對象結(jié)束（全部都包含從工作表中讀取的最后一個配置項中的數(shù)據(jù)）。這是因為m_oStep對象引用仍然是當前引用，所以每次調(diào)用時都會修改任何已存在的實例。通過使用New關(guān)鍵字，創(chuàng)建新的、單獨的對象實例。
最后，設(shè)置內(nèi)部的m_iNumSteps變量，用來追蹤前一個和下一個可用的命令按鈕，并且最終返回集合：

現(xiàn)在，將注意力轉(zhuǎn)向PreviousButton屬性和NextButton屬性。記得這些屬性的內(nèi)置變量被聲明為WithEvents。當聲明一個對象時使用WithEvents時，可以通過VB代碼窗口的對象框訪問該對象的事件代碼，如下圖所示。

從對象框中選擇m_oNextButton和m_oPreviousButton，在類模塊中插入事件處理代碼塊，并在其中添加代碼如下：

這段代碼基于cStepManager類的NextPage或PreviousPage屬性控制每個按鈕是否啟用。當該類首次在客戶端代碼中被創(chuàng)建時，再添加一個方法初始化按鈕：

到現(xiàn)在為止，我們已經(jīng)創(chuàng)建了相當數(shù)量的代碼，全都存儲在跨越許多類模塊的對象中。通過劃分功能，使維護代碼的工作非常容易。如果需要綁定列表到目前還沒有處理的數(shù)據(jù)源，只需在cListManage類中添加一個新方法。如果需要在數(shù)據(jù)處理過程中添加一個屏幕界面，則在多頁控件中設(shè)計一個新頁面，創(chuàng)建一個新類去存儲屏幕信息，并在配置表中添加一行。
在添加完所有的類模塊并編寫好代碼后，工程資源管理器中的類模塊文件夾應(yīng)該如下圖所示。

編寫HRWizard用戶窗體代碼
現(xiàn)在，我們已經(jīng)完成了最艱難的工作。是到將對象放進HRWizard用戶窗體里并使這些對象工作的時候了。
打開HRWizard用戶窗體代碼窗口，添加下列模塊級的變量聲明：

雖然我們創(chuàng)建了9個分開的類模塊來運行我們的應(yīng)用程序，但是許多類都是通過在聲明部分列出來內(nèi)部使用。使用cPeason類收集新員工的數(shù)據(jù)，使用cListManager類來填充HRWizard用戶窗體中不同的組合框，使用cStepManager類決定何時且按什么順序顯示哪個屏幕，并控制導(dǎo)航命令按鈕的可用性。最后，使用標準的VBA　Collection對象，用于存儲cStepManager對象的PageSettings集合。
初始化應(yīng)用程序
在HRWizard用戶窗體的Initialize事件中，將初始化自定義的對象并添加代碼來設(shè)置向?qū)А⒘斜砗惋@示用戶窗體。
在UserForm_Initialize事件中添加下列代碼：

下面，創(chuàng)建三個Init函數(shù)，分別設(shè)置向?qū)�、列表管理器和用戶窗體對象。
初始化向?qū)?/em>
在用戶窗體代碼窗口添加新的子程序，將其命名為InitWizard，并添加下列代碼：

上述代碼完成下列工作：

• 告訴cStepManager對象在哪里找到配置數(shù)據(jù)

  Set .Worksheet = Sheets("UFormConfig")

• 告訴cStepManager對象獲取數(shù)據(jù)的列數(shù)

  .NumberOfSettings = 3

• 放置頁設(shè)置到集合里

  Set m_colSteps = .PageSettings

• 設(shè)置導(dǎo)航按鈕

  Set .PreviousButton = Me.cmdPreviousSet .NextButton = Me.cmdNext

• 設(shè)置當前頁

  .CurrentPage = MultiPage1.Value + 1

因為多頁控件的Page集合基于0，所以使用多頁控件的Value屬性加1來設(shè)置CurrentPage屬性。
在初始化用戶窗體之前，必須設(shè)置cStepManager對象，因為該用戶窗體使用PageSettings集合來設(shè)置它自已。
初始化組合框
下一步是將組合框綁定到它們各自的列表。該列表被存儲在ListMgr工作表中。
插入一個新的子程序，并將其命名為InitLists，添加下列代碼：

同樣，上述代碼也非常簡單，它們?yōu)閼?yīng)用程序中的每個列表調(diào)用cListManager對象的BindListToRange方法。
初始化用戶窗體
在設(shè)置應(yīng)用程序中的最后一步是初始化用戶窗體自身。創(chuàng)建一個名為InitForm的新子程序，并添加下列代碼：

這里，設(shè)置多頁控件的Value屬性為PageSetting集合(m_colSteps)的項目(其鍵值為1)，并設(shè)置其標題：

記住，我們傳遞Order屬性的值作為鍵值，這使得它非常容易去判斷要移動至哪頁。當設(shè)置多頁控件的Value屬性時，正使用相對應(yīng)的值激活該頁。在這里，該值為1.
然后調(diào)用m_oWizard對象的HandleControls方法初始化導(dǎo)航按鈕為正確的設(shè)置：

接下來，隱藏除第一頁外的所有頁：

記住，多頁控件的Page集合是基于0的，因此通過以1開始循環(huán)計數(shù)器，保持該頁面可見。
此時，可以運行用戶窗體。
1、在VBE中，雙擊工程資源管理器窗口的用戶窗體。
2、單擊標準工具欄中的“運行子過程/用戶窗體”按鈕或者按F5鍵，如下圖所示。

注意，下圖中在選項卡中出現(xiàn)的標題，并且前一步按鈕被禁用。

再看看Department組合框，綁定Departments命名區(qū)域到該組合框。

3、通過單擊右上方的X按鈕，停止用戶窗體的運行。
給用戶窗體添加導(dǎo)航
導(dǎo)航按鈕在向?qū)��?yīng)用程序中具有移動步驟的任務(wù)。但它們也需要放置每個屏幕中的數(shù)據(jù)到其在用戶窗體的cPerson對象里的位置的能力。
在cmdNext_Click中添加下列代碼：

在向?qū)е幸频较乱徊街�前首先需要做的是，保留在當前用戶窗體中輸入的值。StoreData方法決定用戶處于哪一步并基于該位置調(diào)用正確的存儲方法，代碼如下所示：

上述代碼中的存儲方法的代碼如下：

這段代碼簡單地從屏幕中接收數(shù)據(jù)，并將其放置在cPerson里的相應(yīng)的對象中。
接下來，確定下一頁。（記住，多頁集合是基于0的，因此從Order屬性中減1以獲得下一頁的值）

然后，調(diào)用ShowNextPage方法，告訴它我們想移動的方式：

ShowNextPage方法的代碼如下：

這個方法查找CurrentPage屬性的值，基于傳遞給該方法的Direction參數(shù)加或減1。
cmdPrevious按鈕的Click事件看起來非常相似：

唯一的差別是傳遞關(guān)鍵字down到ShowNextPage方法以便向用戶移動到合適的方向。
下面，添加最后一個事件處理來幫助我們使用導(dǎo)航。無論何時改變多頁控件中的頁面，控件的Change事件被觸發(fā)。我們使用事件去捕捉當前頁面的值，并將其存儲在m_oWizard對象的CurrentPage屬性中。
添加下面的代碼到MultiPage1控件的Change事件：

現(xiàn)在，讓我們來試試導(dǎo)航的工作。
1、在設(shè)計視圖下打開用戶窗體，單擊標準工具欄中的“運行子程序/用戶窗體”按鈕或按F5鍵。
2、打開用戶窗體后，單擊下一步按鈕移動到向?qū)е械牡诙��?已在配置工作表中定義)，應(yīng)該是Address屏幕。注意到兩個導(dǎo)航按鈕現(xiàn)在都能用了，如下圖所示。

3、單擊前一步按鈕導(dǎo)航回到Personal屏幕，此時前一步按鈕不再是活動的了。
4、單擊下一步按鈕直至最后一個屏幕(已在配置工作表中定義)，應(yīng)該是NetWork Access屏幕，此時下一步按鈕不再能夠使用，如下圖所示。

5、通過單擊右上方的X按鈕，停止用戶窗體的運行。
保存員工記錄
至此，我們已經(jīng)做了大量的工作，獲得了一些完美干凈的功能從自定義對象提供給用戶窗體。唯一沒有做的就是將數(shù)據(jù)保存到EmpData工作表。
一般來說，可以創(chuàng)建一個子程序，將其命名如SaveData()，將從cmdSave_Click事件中調(diào)用該程序，但是cHRData類已經(jīng)具有了SaveEmployee方法。我們可以直接從cmdSave_Click中調(diào)用而不需要再創(chuàng)建保存函數(shù)。
在cmdSave_Click事件中插入下列代碼：

在設(shè)置Worksheet屬性之后，以便于cHRData對象知道在哪里保存數(shù)據(jù)，調(diào)用SaveEmployee方法，傳遞m_oEmployee對象，那里包含要保存的所有數(shù)據(jù)。
清理
我們幾乎已經(jīng)獲得了一個完整的應(yīng)用程序。下面讓我們添加Cancel按鈕的代碼并在用戶窗體的Terminate事件中放置清理代碼。
在cmdCancel按鈕的Click事件中添加下面的代碼行：

這行代碼簡單地卸載用戶窗體而不保存任何數(shù)據(jù)。
現(xiàn)在我們清除HRWizard用戶窗體使用的對象。在UserForm_Terminate事件處理中添加下列代碼：

下面再添加一個簡單的函數(shù)用來打開向?qū)Т绑w。在VBE中，添加一個標準模塊，在其中添加下列代碼：

測試HRWizard應(yīng)用程序
測試時間到了！我們在向?qū)е械拿恳黄聊恢休斎霐?shù)據(jù)，并將其保存到EmpData工作表中。
從Excel工作簿中，從宏對話框中運行StartWizard子程序，如下圖所示。

下圖中顯示了一些簡單的輸入值以及在EmpData工作表中保存的數(shù)據(jù)。

學(xué)習(xí)小結(jié)

• 學(xué)習(xí)優(yōu)秀的示例是一種好的學(xué)習(xí)方法。不僅能夠開闊視野，而且能夠?qū)W到好的編程習(xí)慣和好的技巧，并且在實踐中借鑒他人的做法，能夠增加經(jīng)驗，少走彎路。
• 輸入時時常編譯代碼，及時找出一些錯誤，例如變量名拼寫錯誤、過程名相同、缺少End With等。
• 如果調(diào)試總是有錯，但總是覺得是對的，就是總是找不出錯誤在哪兒，累了，休息一會，做點別的事兒，再回來。不要覺得自已沒錯，既然程序運行有錯，那一定是有錯。休息一下，換換腦筋，就會發(fā)現(xiàn)并改正錯誤了。
• 示例中建立起了自已的對象層次模型。
• 通過使用類，可以更好地組織和管理代碼。雖然編寫類模塊可能會花費一些時間，但這些努力絕對是值得的。并且，很多類都可以在其它地方重復(fù)使用。