![](https://tingyucho.home.blog/wp-content/uploads/2021/07/image-88.png?w=543)
![](https://tingyucho.home.blog/wp-content/uploads/2021/07/image-98.png?w=457)
運用VBA撰寫簡單的判斷式與亂數
- 點選 插入 > 自訂表單,並用工具列建立標籤與按鈕
![](https://tingyucho.home.blog/wp-content/uploads/2021/07/image-95.png?w=814)
2. 雙擊按鈕兩下,開始編寫程式
公式為: If 判斷式 Then 符合判斷式結果 Else 不符合判斷式結果 End If
Rnd為亂數的語法,數值介於0到1的浮點小數,故必須使用Int語法將Rnd*10換算為整數
Label1.Caption為物件Lebel中Caption屬性,Caption為欄位顯示內容
![](https://tingyucho.home.blog/wp-content/uploads/2021/07/image-94.png?w=841)
2. 雙擊按鈕兩下,開始編寫程式
公式為: If 判斷式 Then 符合判斷式結果 Else 不符合判斷式結果 End If
Rnd為亂數的語法,數值介於0到1的浮點小數,故必須使用Int語法將Rnd*10換算為整數
Label1.Caption為物件Lebel中Caption屬性,Caption為欄位顯示內容
2. 使用工具列建立文字方格與按鈕
3. 點選按鈕,於測欄 屬性 的部分可以看到按鈕資訊,這裡可以更換按鈕顏色及字型
Caption為按鈕顯示文字
4. 雙擊欲設定公式按鈕,會出現框格如下,這時就可以開始編寫程式了
5. 首先先定義按鈕的意義,按下下拉選單會出現各個工具的名稱
6. 下公式
有關於VBA資料類型型態可以參考:微軟資料類型摘要
運算符號代表可以參考:微軟運算子摘要
Sub CommandButton1_Click()
Dim height as long
Dim weight as long
Dim BMI as long
height = TextBox1.text
weight = TextBox1.text
BMI= weitht / ((height * 0.01) ^ 2)
MsgBox (“BMI= ” &BMI)End Sub
使用錄製巨集的功能可以減少重複操作同樣設定的時間,加入按鈕之後更可以使整個操作更為簡單!
打開後選項列會出現下列選單:
2. 錄製巨集:先選取範例表格,點選 開發人員 > 錄製巨集
設定巨集名稱,或自由可加入快捷鍵,開始執行動作
3. 開始錄製後所有的動作都會被錄進巨集中,包括選取不同表格,設定完後按 停止錄製
4. 打開巨集後,可以看到剛剛錄製好的巨集
按編輯可以看到設定好的程式碼
5. 點選 插入 > 按鈕
在空白處劃出按鈕大小後選擇設定好的巨集
按鈕點選兩下可以修改名稱
之後只要點選要改變的其他表格後再按按鈕,就可以有一樣的效果了!
在使用Excel樞紐分析時,常常為需要加入其他表單的資料一起分析,這時候就需要建立各個表格之間的關聯,這個動作可以在分析時減少來回對照的時間,往後在拉表格的時候也可以那多重分析,讓資料變得更完整。
註1:以下資料為模擬練習用,無任何實質意義
註2:此方法僅適用Excel 2013版以後的,較舊版的可能要花時間找一下關聯在哪裡
2. 更改表格名稱
3. 點選 資料> 關聯
4. 新增表格之間的關聯,建立完成後按關閉
5. 插入樞紐分析表
6. 選擇 使用此活頁簿的資料模型
7. 在欄位上就可以看到三個表格內容了!
8. 如此一來就可以跨表格做更全面的分析了!
使用Excel公式自動帶入員工年資
只計算實際年資(滿)
公式:=YEAR(TODAY())-YEAR(B4)-IF(TODAY()>=DATE(YEAR(TODAY()),MONTH(B4),DAY(B4)),0,1)
計算年/月/日
公式:=DATEDIF(B4,TODAY(),”Y”)
公式:=DATEDIF(B4,TODAY(),”YM”)
公式:=DATEDIF(B4,TODAY(),”MD”)
篩選功能算是工作這幾年來最常用到的功能,除了可以快速找出符合需求的選項,若未來有版本不同時,也可以透過背景/字體顏色篩選功能做資料校對,是一個非常非常實用的功能喔!
1. 選取資料範圍,點選 資料>篩選
注意:此部分的資料範圍不得選取到報表標題,必須是個資料的分類項目
建立篩選後,表頭右方會出現倒三角形符號
2. 若要篩選”Allen”的個人報表,可以點選「員工姓名」旁的到三角形,將”Allen”勾選
3. 亦可使用儲存格顏色篩選
有時候資料很多很雜時,可以使用Excel快速將資料分組,透過快速建立小計功能,將資料系統性分組,增加易讀性,報表一下子就做完了!
註:以下資料為亂數資料,並不具任何真實意義
建立步驟:
2. 全選資料範圍,點選 資料>小計,選取以「地區」作為小計欄位,使用函數可依需求選擇。
結果如下:
全部展開為階層3
第2階為「地區」函數結果
3. 若要回復原始資料,可以到 資料>小計 內,點選全部清除