如何將"Sheet1"名稱更換成A-B-C-D

yueh0720

下載 (19.19 KB)

2010-9-9 11:53

如何將"Sheet1"名稱更換成A-B-C-D

jackdream

回復 1# yueh0720

像這樣?
Sheets("Sheet1").Name = "A-B-C-D"

huang40

看不懂咧 你的"-" 是 "dash" or "minus" 也分不清楚
1.如果A,B,C,D是固定的文字那就如上一樓所答
2.如果A,B,C,D 是可置換的文字 那就要看A,B,C,D前後有沒有空格  還是只是如你表上把A,B,C,D置中而已
3.如果A,B,C,D是數字那又不一樣
.
.
到底你要的是哪一種答案呢?

游獅

1. 将滑鼠指向 "Sheet1" 然后按滑鼠右键
2. 选择 "rename" (易名/更名/改名/换名)
3. 输入你要的"A-B-C-D"

yueh0720

是"dash"
A,B,C,D是可變數字和文字
在A,B,C,D欄位輸入我要的數字和文字後,"Sheet1" 自動產生變成A-B-C-D

Hsieh

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [B3:B6]) Is Nothing Then Exit Sub
   
3.   Me.Name = Join(Application.Transpose([B3:B6].Value), "-")
   
4. End Sub

複製代碼

huang40

回復 6# Hsieh


Hsieh大太強了

因為最近也碰到類似問題

也想順便請教

假設若是ABCD是前後有空白(space)的字串

要如何修正呢?

下載 (30.05 KB)

2010-9-10 07:30

Hsieh

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. If Intersect(Target, [B3:B6]) Is Nothing Then Exit Sub
   
4. 
   
5.   Me.Name = Replace(Join(Application.Transpose([B3:B6].Value), "-"), " ", "")
   
6. 
   
7. End Sub

複製代碼

yueh0720

不能使用ㄋ
1.在巨集名稱看不到 Worksheet_Change(ByVal Target As Range)
2.執行後會要求選擇巨集名稱,隨意選擇一個巨集名稱後執行"Sheet1"沒變更成A-B-C-D

oobird

哈哈，秀才遇到兵。
這是工作表事件，不會顯示在巨集表中。
把代碼貼在使用工作表的模組，不是在Module中
在b3:b6有輸入動作時自動運行！