目前分類：VBA (43)
- Aug 18 Tue 2020 22:59
[VBA] 常用程式碼系列10-計算跑這個巨集指令經過多少時間
- Aug 15 Sat 2020 00:50
[VBA] 常用程式碼系列09-加快巨集執行速度
[說明]
當你寫的程式碼跑一次要等上許久時，可試著在程式碼第一行與最後一行加上下面的程式碼，黑天使寫的聚集執行一次要40幾秒，加上後縮成20秒左右，非常有感覺。
[程式碼]
Sub JS() '加快巨集執行速度
- Aug 09 Sun 2020 23:57
[VBA] 常用程式碼系列08-取得使用者名稱
- Aug 08 Sat 2020 00:59
[VBA] 常用程式碼系列07-關閉活頁簿或某工作表的列印功能
[說明]
因為某些因素需關閉活頁簿或某工作表的列印功能
[程式碼]
Private Sub Workbook_BeforePrint(Cancel As Boolean) '列印之前所執行的動作
- Aug 02 Sun 2020 19:16
[VBA] 常用程式碼系列06-自動設定列印範圍，並將資料設定於同一頁內並預覽列印
- Jul 30 Thu 2020 00:12
[VBA] 常用程式碼系列05-依據儲存格內資料行數自動設置列高並在依倍數加大
[說明]
依據儲存格內資料行數，先自動設置列高，但因某些因素，使用者還想再加大列高，但不想人工調整，故寫這簡易的程式碼，來讓使用者依需求將列高依倍數加大
[程式碼]
Sub JS() '依據儲存格內資料行數自動設置列高並在依倍數加大
- Jul 25 Sat 2020 07:24
[VBA] 常用程式碼系列04-重複資料比對，刪除後排序
- Jul 19 Sun 2020 01:32
[VBA] 常用程式碼系列03-搜尋特定文字後，若未搜尋到就執行某指令
[說明]
若直接錄製「搜尋」的巨集，執行後會發現「搜尋不到」時，會跳出錯誤，故為了防止這樣的錯誤發生，使用此程式碼讓程式針對「搜尋到」與「未搜尋到」可各別執行所屬的程式碼，讓「搜尋不到」的錯誤去除。
[程式碼]
Sub JS() '搜尋特定文字後若未搜尋到就執行某指令
- Jul 18 Sat 2020 23:46
[VBA] 常用程式碼系列02-FOR的尾數等於最後一列的列數
- Jul 17 Fri 2020 21:31
[VBA] 常用程式碼系列01-儲存後自動備份到指定位置
[說明]
當儲存檔案時想在另外一個路徑儲存備份，又或者在使用者執行某個指令時可從後端直接儲存備份。
[程式碼]
Sub JS() '存檔後自動備份到指定路徑
- Jul 29 Sat 2017 23:26
[VBA] Excel無法重新命名、刪除、新增工作表
- Jul 07 Thu 2016 22:52
[VBA] 依分數自動下評語(Select Case的運用)
- Jun 26 Sun 2016 11:54
[VBA] 表單內的下拉式選單如何設定使用?
自訂表單內可插入一個控制項 [下拉式方塊] ，這個控制項，可以讓使用者在輸入資料時，可以直接進行選取預設好的選項，提高輸入的效率，也可以降地輸入的錯誤率，而小編這邊就來向大家介紹，如何設定這個 [下拉式方塊] 選單。
這邊介紹兩種方式，一種是直接從工作表中的儲存格進行設定，另一種是透過程式的方式進行設定。
[選單依工作表中儲存格內容]
首先在ComboBox的屬性視窗內尋找 RowSource 的選項，於該選項內輸入剛剛設計於工作表內的區域範圍，只可以直接輸入，無法使用選取的，本範例則是輸入 工作表1!A2:A13 。如下圖所示。
- May 24 Tue 2016 22:22
[VBA] 用FOR迴圈寫九九乘法表(二)[被乘數、乘數、符號、答案都在不同欄，且不同被乘數間會空一欄]
學校老師在教FOR迴圈時，有時會請人寫九九乘法表，而九九乘法表有很多種撰寫方式，所以這邊會分幾個單元持續介紹。
這邊就來分享一下九九乘法表的程式撰寫。
[被乘數、乘數、符號、答案都在不同欄，且不同被乘數間會空一欄]
- May 24 Tue 2016 22:22
[VBA] 用FOR迴圈寫九九乘法表(三)[類似矩陣方式將被乘數、乘數寫在最左欄與第一類，乘積顯示在中間]
學校老師在教FOR迴圈時，有時會請人寫九九乘法表，而九九乘法表有很多種撰寫方式，所以這邊會分幾個單元持續介紹。 這邊就來分享一下九九乘法表的程式撰寫。
[類似矩陣方式將被乘數、乘數寫在最左欄與第一類，乘積顯示在中間]
- May 24 Tue 2016 22:22
[VBA] 用FOR迴圈寫九九乘法表(一)[被乘數、乘數、答案在同一儲存格]
學校老師在教FOR迴圈時，有時會請大家寫九九乘法表，而九九乘法表有很多種撰寫法ㄈ，所以這邊會分幾個單元持續介紹。
這邊就來分享一下九九乘法表的程式撰寫。
[被乘數、乘數、答案在同一儲存格]
[插入模組]
- May 21 Sat 2016 08:00
[VBA] 把表格內特定數值、符號、文字一次全部刪除(FOR、IF)
如下表格，若透過人工將0全部刪除，是需要一些時間的。
若資料量大到200列50欄，扣掉第一列的抬頭與第一欄的說明，資料高達9750筆，逐筆去刪除是要花非常久的時間，甚至可能誤刪資料。
所以有人提出要怎麼快速的把數值0刪除，黑天使這邊立用VBA寫了幾行程式碼，來完成這個需求，以下就來跟各位分享。
- May 01 Sun 2016 02:00
[VBA] 如何設計一個可以輸入資料的視窗
如何用VBA設計出一個可以輸入的資料視窗，畫面如下，當按下 [輸入資料] 的按鈕時，會出現一個 [輸入資料視窗]，然後於輸入視窗內輸入資料，之後按下送出資料，資料會直接出現在A欄的最下面一行。
這邊先介紹單一資料的輸入法，待各位若熟悉之後，可自行練習，增加 文字方塊，並修改程式碼，就可以一次輸入多筆資料了。
[製作一個輸入資料視窗]
- Mar 31 Thu 2016 07:36
[VBA] 依輸入的月份自動判定季度，並會自動變色的圖案
[有很多種解決問題的方法，這邊只是提供一個我知道的，並不代表是最佳的]
[文章的內容都是黑天使自修與工作上製作表格時經驗，並撰寫文章出來跟大家分享，如需轉貼或轉寄，請留下連結至原始文章並留言告知。謝謝。]
[運用說明]
很多公司的產品會使用顏色管理進行標示，如第一季進貨的產品在標籤上會使用綠色標示，第二季進貨的產品，顏色則回變成紫色以此類推，當然如果有規模的公司作業系統又自動有這個功能，但如果公司內部是使用Excel進行標籤製作，就只能自己標註顏色，有時因為操作人員的不同，選取的顏色也會深淺不一，所以這邊要教大家的是，使用程式碼讓系統判定進貨日期的季度，並將顏色自動變色。
[使用函數]
- Mar 29 Tue 2016 22:26
[VBA] 如何用Excel指定一個區間，然後隨機抽出不重複的六個號碼
[有很多種解決問題的方法，這邊只是提供一個我知道的，並不代表是最佳的]
[使用函數]
A.RANDBETWEEN(XXX,XXX)= RANDBETWEEN=(最小值,最大值)
函數說明:在最小值與最大值間隨機號碼產生一個號碼
B.COUNTIF(XXX,XXX)= COUNTIF(範圍,目標)
