VBA 新sheet為儲存格命名怎麼用

西瓜大大

西瓜大大
個人積分：14分
文章編號：69871677

14分

樓主

2018-08-27 0:00

各位大大安安

上網爬了好多文有類似的，但拿來改就是失敗....

懇請大大救救小弟

小弟有個名為網頁的sheet

A1-A5儲存格如下

4、5、7、3、8

(1)請問各位大大如果只新增一個sheet並命名為A1我該怎麼寫?

(2)請問各位大大如果新增5個sheet這5個sheet並命名該怎麼寫呢?

2018-08-27 0:00 發佈

文章關鍵字 VBA sheet 儲存格

唬唬生瘋

唬唬生瘋
個人積分：7442分
文章編號：69875977

7442分

2樓

2018-08-27 11:34

西瓜大大 wrote:
各位大大安安上網爬...(恕刪)

新增工作表並命名
Private Sub CommandButton1_Click()

SS = Worksheets.Count
Worksheets.Add after:=Worksheets(SS)
SSS = Worksheets.Count
Worksheets(SSS).Name = Worksheets(1).Cells(1, 1) '新工作表名稱等於第一個工作表A1值
End Sub

新增N個工作表並重新命名
Private Sub CommandButton2_Click()
ad = Worksheets(1).Cells(1, 2) '在第一個工作表B1位置填入要新增幾個工作表

For i = 1 To ad
SS = Worksheets.Count '取得目前工作表數
Worksheets.Add after:=Worksheets(SS) '新增工作表於最右
SSS = Worksheets.Count '更新工作表數
myvalue = InputBox("輸入工作表名稱", "工作表新增") '自行輸入工作表名稱
Worksheets(SSS).Name = myvalue
Next i
End Sub

Private Sub CommandButton3_Click()
For i = 1 To 5 '新增5個工作表，工作表名稱分別為第一個工作表A1～A5值
SS = Worksheets.Count
Worksheets.Add after:=Worksheets(SS)
SSS = Worksheets.Count
myvalue = Worksheets(1).Cells(i, 1)
Worksheets(SSS).Name = myvalue
Next i
End Sub

隨便亂寫沒有防呆功能

西瓜大大

西瓜大大
個人積分：14分
文章編號：69892430

14分

樓主

2018-08-28 13:50

感謝大大為我解答~

解決囉~~~~

從 APP 打開