EXCEL用VBA建一個另存為按鈕?

Tags: 按鈕, 內容,

我在工作中經常要處理EXCEL表格,有一批表格只要更改1、2處內容,然後要不停的另存為以更改後的內容為文件名命名的新表格,比方說:更改內容“DD123”“WW145”,然後要另存為“DD123-WW145.xls”。要不斷的重複、不斷的重複、不斷的重複,我的生命就在這樣重複之中慢慢被耗光。

還好我是個懶人,一個真正的懶人是不會讓生命就此無意義的流失的,於是改造就此開始,跟我來吧。

因為家裡沒裝微軟的office,就用WPS代替吧。

EXCEL用VBA建一個另存為按鈕

EXCEL用VBA建一個另存為按鈕

工具/原料

微軟的office或者WPS

方法/步驟

首先我們為excel添加一個按鈕。

EXCEL用VBA建一個另存為按鈕

然後把按鈕名稱改為“另存為”。

EXCEL用VBA建一個另存為按鈕

然後雙擊這個按鈕,進行這個按鈕的代碼編寫。開始和結尾已經自動寫好了。

EXCEL用VBA建一個另存為按鈕

在代碼的開始和結尾之間插入我們要用的代碼,我把代碼也寫一下吧,方便複製。

-------------------以下是代碼-----------------------------------

'已B3單元格-C3單元格內容為文件名另存一份到當前目錄下

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Range("B3") & "-" & Range("C3").Value & ".xls"

'保存活動的工作簿

ActiveWorkbook.Save

-------------------以上是代碼-----------------------------------

已英文單引號開頭的內容是註釋,不參與代碼運行。

EXCEL用VBA建一個另存為按鈕

WPS和微軟的office還是有一定的區別的,工作上我完全使用office,推薦用新一點的版本,不要再用2003了,雖然經典但畢竟時代在進步。

編輯好按鈕的代碼WPS需要按“退出設計”才能運行。

EXCEL用VBA建一個另存為按鈕

然後就可以了,改一個內容,按一下另存為,我使用過程中,效率提升在50%以上,配合一些別的代碼,效率輕輕鬆鬆翻倍。

EXCEL用VBA建一個另存為按鈕

注意事項

office的版本不同,代碼並不一定能通用,我是已office2013為基礎設計的代碼。

相關問題答案