VBA講義  - Ch01. Excel 2003的實例操作

實例1: 按命令鈕產生Sheet

步驟

1. 先在桌面新增一個 Excel 的檔案 , 改名為 exam1.xls

2. 雙按該檔, 打開它

3. 如下圖, 在 檢視 / 工具列 / Visual Basic 按下, 就會產生一個新的工具列

4. Visual Basic 工作列說明 (如下)

  • VB編輯器: 按下後, 會產生一個程式視寫, 是撰寫程式的所在
  • 工具箱: 產生工具箱控制列, 內有各種控制元件
  • 設計狀態/執行狀態: 凹下去是設計狀態 , 凸起來是執行狀態。
    • 設計狀態: 用來撰寫程式、修改程式
    • 執行狀態: 用來執行程式

5. 產生一個命令鈕 : 在工具箱的命令鈕上按一下(凹下), 在空白處用拖曳的技巧展開出一個長方形

6. 撰寫程式碼 : 雙按 "新產生的命令鈕", 會開啟一個VB編輯器視窗, 在紅色框框中填入程式碼,

例如: Workbooks(1).Sheets.Add

7. 執行程式 : 讓 Visual Basic 工作列 "設計狀態/執行狀態"鈕 : 呈現凸起(執行狀態)。才能按下"新產生的命令鈕"

8. 觀看程式執行的結果

9. 存檔 並 結束 Excel

 

實例2: 巨集與安全性 討論

步驟

1. 重新開啟 該檔案

雙按該檔, 打開它

2.Excel 視窗會出現

這是因為程式和巨集是相同的, Excel 預設是不允許執行巨集, 所以, 我們要修改安全性。

3. 修改安全性: 按下 Visual Basic 工作列 "安全性"鈕

會出現 請改為"中"

4. 結束 Excel

5. 重新開啟 該檔案

雙按該檔, 打開它, 會出現以下視窗

6. 可以按下我們所產生的命令鈕了。

實例3: 計算圓面積的函式

步驟

1. 先在桌面新增一個 Excel 的檔案 , 改名為 exam2.xls

2. 雙按該檔, 打開它

3. 如下圖, 在 檢視 / 工具列 / Visual Basic 按下, 就會產生一個新的工具列

4. 打開VB編輯器: 按下 Visual Basic 工作列 "VB編輯器"鈕

5. 產生一個新的模組 :

6. 撰寫程式碼 : 填入以下程式碼

Public Function rarea(r)
rarea = r * r * 3.1416
End Function
  第1行: 函式開始, 定義rarea函數, 輸入值是半徑r
  第2行: 傳回值為 rarea, 其計算方式是為r * r * 3.1416
  第3行: 函式結束

 

7. 執行程式 : 在儲存格A1填入10, 在儲存格B1填入=rarea(A1)

8. 觀看程式執行的結果

9. 存檔 並 結束 Excel