VBA：工作表 名字 命名 (SHEETS(XXX).NAME)

 簡單例子簡單分享

另外一篇教學中提到新增工作表

今天也會用到歐，但我們先來看看NAME這屬性，此一屬性可以透過等號(=)來取得跟設定歐

A=SHEETS(1).NAME

A變數中透過等號取得等號右手邊的第一張工作表的名稱屬性。

P.S SHEETS(1)表示第一張工作表的意思

相反：SHEETS(1).NAME=A

第一張工作表名稱設定為A變數的儲存結果(A可能儲存1 也可以是文字，但有符號會出現NAME屬性的物件錯誤)

透過儲存格方式命名工作表：

SHEETS(1).NAME=SHEETS(1).RANGE("A1")

執行此行後，即可以將A1儲存格的資料當作名稱用來重新寫入資料來重新設定NAME屬性了。

很簡單吧!!!

組合一下新增工作表的方法做應用

    sheets.Add AFTER:=sheets(sheets.Count)

    sheets(sheets.Count).Name = Sheets("工作表1").Range("F5")

先新增一張工作表到最後的位置，然後根據工作表1的F5儲存格用來重新命名最後一張工作表名稱。

簡單分享。