打開VBA編輯器，按Alt+F11，然后雙擊你要改名的那個(gè)工作表名字，在右邊代碼窗口寫入Worksheet_SelectionChange事件，再加一句Me.Name=Me.Range(A3).Value，這樣每次點(diǎn)那個(gè)表的時(shí)候就會自動按A3的內(nèi)容改名，但注意別讓A3為空或者重復(fù)表名，否則會彈錯(cuò)誤，最好前面加個(gè)If判斷一下Range(A3).Value<>andIsError(Evaluate(=Sheet&Range(A3).Value))=False這種條件
-
-
在VBA編輯器里插入一個(gè)模塊，然后寫上SubRenameSheet()，接著寫ActiveSheet.Name=ActiveSheet.Range(A3).Value，保存運(yùn)行就行，不過要注意當(dāng)前激活的工作表才是被改名的那個(gè)，如果你要改別的表，得先指定具體工作表名稱，不然容易出錯(cuò)，還有就是名字不能包含/?*這些特殊字符
-
其實(shí)這個(gè)挺簡單的，你可以在VBA里寫個(gè)宏，比如用Worksheets(Sheet1).Name=Range(A3).Value這種方式，前提是A3有內(nèi)容而且不和其他表重名，不然會報(bào)錯(cuò)，記得加個(gè)錯(cuò)誤處理判斷一下，比如用OnErrorResumeNext或者提前檢查名字是否重復(fù)，我之前也遇到過重命名失敗的情況，基本都是因?yàn)槊譀_突或者A3是空的
-
我建議你用一個(gè)通用的子程序來處理，比如寫一個(gè)SubRenameToA3()，里面先定義變量Setws=ThisWorkbook.Sheets(你的表名)，然后判斷A3有沒有值，如果有就嘗試改名，像ws.Name=Trim(ws.Range(A3).Value)，Trim是為了去掉空格避免無效字符，還要加上錯(cuò)誤捕獲語句防止程序崩潰，畢竟Excel對工作表命名規(guī)則挺嚴(yán)的，比如長度不能超過31個(gè)字符，也不能和已有表同名
-
MsgBox改名失敗，可能是因?yàn)锳3為空、名字重復(fù)或包含非法字符！EndSub，把你的工作表名稱換成實(shí)際名字就行了，這個(gè)帶報(bào)錯(cuò)提示，方便排查問題，我自己經(jīng)常這么寫，實(shí)用又不容易崩
最新回答 更多>
相關(guān)問答
- 手機(jī)屏幕太大,玩游戲花屏,有什么解決方法
- 臭氧消毒和紫外線消毒哪個(gè)更好?
- 榮耀手機(jī)怎么投屏到惠普電腦
- 視力最好的動物是什么動物？
- 北京舊車對換和補(bǔ)貼政策最高多少元?
- ipad2為什么會自動下載游戲啊?我在關(guān)機(jī)后,但好像網(wǎng)絡(luò)沒有關(guān),第二天打開ipad會發(fā)現(xiàn)有很多游戲在桌面上
- 15樓16樓哪個(gè)來自樓層好？
- PS相片的提線
- ps腫么在畫布上插入原圖
- 網(wǎng)頁如何轉(zhuǎn)換成PPT
- 淘寶腫么添加微信付款方式
- 華為C8650手機(jī)新?lián)Q的屏幕為何屏幕變暗了？
- 開汽車4s店要什么條件？？？
- 歐洲美元的定義是什么？
- EXO的吳世勛和鹿晗 誰更帥啊？？？