如題,
小弟想要在工作表上 建立一個按鈕,其功能是依據當下簡易日期(EX:1090930為檔名)並另存新檔
還請各位前輩教我一下,如何撰寫VBA
個人積分：1064分
文章編號：79247133
個人積分：0分
文章編號：79247250
個人積分：395分
文章編號：79249822
mcmm4238 wrote:
請問這些代碼要複製到(恕刪)
我想網路上應該有不少資源可參考，包括影片。
還是幫您簡單做個圖片流程說明(我用的是2010版，但應該不會差太多)：
1.找到[選項](應該在檔案功能表內)->自訂功能區，把[開發人員]區塊打勾，確定：
2.在功能表找到[開發人員]區塊，點第一個或[檢視程式碼]，可打開VBA編輯視窗(Excel內按Alt+F11，也可打開該視窗)
3.在VAB編輯視窗，點功能表[插入]-->模組，可新增訂模組：
4.將以下程式碼加到該模組：
Sub save_new()
path_f = "d:\" '預設路徑，請自行更改
ActiveWorkbook.SaveAs path_f & Format(Now, "YYYY") - 1911 & Format(Now, "mmdd"), xlExcel8
End Sub
5.接著回到Excel視窗，選功能表[開發人員]-->[插入]-->選擇第1個按鈕圖示，準備新增按鈕：
6.這時滑鼠變成可拖曳狀態，請拉出一個小方塊(左鍵，拉好放開就可完成。)
7.放開完成，畫面自動進入巨集指定，請選剛在VBA視窗建立的巨集，確定：
8.按鈕完成。這時建議點選標題文字做修改：
9.修改後，滑鼠點擊旁邊空白儲存格即可。恭喜完成第一個VBA按鈕~~接著用滑鼠點擊該按鈕，就會執行存檔功能。按第2次，因為檔案已存在，所以會出現提醒視窗：
~~以上，就等樓主自行實作看看囉。
mcmm4238 wrote:
我想要指定的另存路徑為C:\桌面\to
抱歉，剛才看到~~請樓主自行更改囉。(記得to資料夾要先建立。程式碼指定路徑時，to後面要加上「\」。c:\桌面\to\)
Der，misser1
