宏與VBA：

宏與VBA:

目標：錄製並執行宏、使用系統自帶的VBA製作簡單的系統

宏：是由一系列的菜單選項和操作指令組成的、用於完成特定任務的指令集合。是使用VBA語言編寫出的一段程序，是一系列命令的函數。

作用：使頻繁執行的動作自動化

VBA：微軟公司開發出來在其桌面應用程序中執行通用的自動化任務的編程語言，主要用於擴展Windows的應用程式功能，尤其是office軟件。

打開文件，在編輯欄上方彈出一個警告“安全警告：宏已被禁用”，單擊按鈕，彈出“Microsoft Office 安全選項”--啓用此內容

• 啓用或禁用宏

有時會有宏病毒存在，所以使用有宏的工作簿時必須小心謹慎。可有條件地啓用或禁用宏

• 設置安全等級：

開發工具—宏安全性（會彈出“信任中心”）--宏設置—自己設置—確定

• 安全警報

打開office文檔時，信任中心會檢查有關數字簽名中的項目。當檢測到任何一項有問題時，消息欄會顯示安全警報，如“宏已被禁用”。

如果點擊消息欄上的“選項”—彈出“Microsoft office 安全選項”對話框—選擇啓用此內容/保持宏爲禁止狀態

• 錄製宏

就是將操作過程記錄下來，保存，以便重複使用。步驟：

開發工具—代碼組—錄製宏(彈出“錄製新宏”對話框)—宏名：自設，快捷鍵：自設，若想加shift再加字母，就要按住shift輸入字母—Enter—確定—錄製開始，直接操作即可。操作完畢後—開發工具—停止錄製

• 執行宏

使用“宏”對話框執行

選中要進行操作的單元格—開發工具—宏—選擇要使用的宏—執行

• 使用快捷鍵執行
• 編輯宏

可打開visual Basic編輯器，對錄製的宏所對應的代碼進行編輯。步驟：

開發工具—宏—選中要編輯的宏—編輯(彈出“Microsoft visual Basic”)編輯器窗口中可以根據需要修改代碼—運行—運行子過程/用戶窗體

 

例子：設計工資系統管理界面

1. 製作界面系統。不詳述     如 給Excel表設計背景：頁面佈局—背景—插入圖片
2. 添加控件：以實現表格之間的切換 

• 準備：八個表：“銷售提成發放標準”、“銷售提成”、“回款標準”、“回款績效”、“工齡獎”、“工資明細表”、“人員檔案”
• 在“人員檔案”表中--開發工具—控件—插入—ActiveX控件組中的“命令按鈕(ActiveX控件)”—繪製出按鈕—選中按鈕—開發工具—控件—屬性—按字母序—彈出的屬性框中都是這個按鈕的屬性對應的值，可修改相應的內容，如：寬高，字體，字體大小，按鈕顏色，標題，其中caption表示按鈕上顯示的字。這裏將caption修改爲“人員檔案”，別的自己修改
• 複製出六個命令按鈕，分別將caption修改爲“銷售提成發放標準”、“銷售提成”、“回款標準”、“回款績效”、“工齡獎”、“工資明細表”，並適當調整別的屬性—關閉“屬性”對話框。
• 選中任一個按鈕—開發工具—控件—查看代碼(彈出Microsoft Visual Basic for Applications – 宏_工資管理系統。xlsm)編輯窗口—在代碼區域輸入以下代碼：

Private Sub CommandButton1_Click()

     Sheets("人員檔案").Select

End Sub

Private Sub CommandButton2_Click()

     Sheets("回款績效").Select

End Sub

Private Sub CommandButton3_Click()

    Sheets("回款標準").Select

End Sub

Private Sub CommandButton4_Click()

    Sheets("銷售提成").Select

End Sub

Private Sub CommandButton5_Click()

    Sheets("銷售提成發放標準").Select

End Sub

Private Sub CommandButton6_Click()

    Sheets("工資明細表").Select

End Sub

Private Sub CommandButton7_Click()

    Sheets("工齡獎").Select

       End Sub

• 輸入代碼後，單擊“關閉”按鈕，返回到“人員檔案”表中
• 在“人員檔案”表中再次畫出一個命令按鈕，設置caption爲“返回系統界面”—在另外7個表中也添加一個“返回系統界面”控件按鈕。
• 打開代碼編輯窗口—分別爲所有表裏的每個“返回系統界面”控件按鈕添加代碼：

       Private Sub CommandButton8_Click()

     Sheets("系統界面").Select

       End Sub

• 開發工具—設計模式  退出設計模式狀態。
• 此時即可鏈接到工作表“系統界面”中，同時，單擊系統界面中的各個按鈕就會切換到相應的工作表中。如圖：設計系統登錄窗體：

爲了限定查看權利，可設置系統登錄窗口，用戶只有輸入正確的用戶名和密碼之後纔可以進入該系統。

步驟：

• 在工作表“系統界面”中—開發工具—代碼組—Visual Basic—彈出界面” Microsoft Visual Basic for Applications – 宏_工資管理系統.xlsm”編輯器窗口：
• 在代碼編輯器窗口中的如圖位置 雙擊ThisWorkbook：--在右側的區域顯示如下界面：
• 輸入以下代碼：

Private Sub Workbook_Open()

Dim m As String

Dim n As String

Do Until m = "xiaobaihuazhuangpin"

m = InputBox("歡迎進入本系統，請輸入正確的用戶名", "登錄", "")

If m = "xiaobaihuazhuangpin" Then

    Do Until n = "123456"

    n = InputBox("請輸入密碼", "密碼", "")

    If n = "123456" Then

        Sheets("系統界面").Select

    Else

        MsgBox "您輸入的密碼有誤，請重輸！", vbOKOnly, "登錄錯誤"

    End If

Loop

Else

    MsgBox "您輸入的用戶名有誤，請重新輸入！", vbOKOnly, "登錄錯誤"

End If

Loop

End Sub

對應代碼顯示如下：

  

• 輸入完畢，單擊工具欄中的“保存”—關閉代碼編輯器窗口—關閉工作簿
• 重新打開工作簿，這時會彈出“登錄”對話框--輸入用戶名：shangpins,密碼：123456—確定  即可進入工作簿