Board logo

標題: 如何將"Sheet1"名稱更換成A-B-C-D [打印本頁]
作者: yueh0720    時間: 2010-9-9 11:55     標題: 如何將"Sheet1"名稱更換成A-B-C-D

[attach]2745[/attach]
如何將"Sheet1"名稱更換成A-B-C-D
作者: jackdream    時間: 2010-9-9 12:06

回復 1# yueh0720

像這樣?
Sheets("Sheet1").Name = "A-B-C-D"
作者: huang40    時間: 2010-9-9 14:18

看不懂咧 你的"-" 是 "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是數字那又不一樣
.
.
到底你要的是哪一種答案呢?
作者: 游獅    時間: 2010-9-9 14:56

1. 将滑鼠指向 "Sheet1" 然后按滑鼠右键
2. 选择 "rename" (易名/更名/改名/换名)
3. 输入你要的"A-B-C-D"
作者: yueh0720    時間: 2010-9-9 20:34

是"dash"
A,B,C,D是可變數字和文字
在A,B,C,D欄位輸入我要的數字和文字後,"Sheet1" 自動產生變成A-B-C-D
作者: Hsieh    時間: 2010-9-9 21:06

  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    時間: 2010-9-10 07:30

回復 6# Hsieh


Hsieh大太強了

因為最近也碰到類似問題

也想順便請教

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

要如何修正呢?
[attach]2755[/attach]
作者: Hsieh    時間: 2010-9-10 08:28

  1. Private Sub Worksheet_Change(ByVal Target As Range)

  3. If Intersect(Target, [B3:B6]) Is Nothing Then Exit Sub

  5.   Me.Name = Replace(Join(Application.Transpose([B3:B6].Value), "-"), " ", "")

  7. End Sub
複製代碼
作者: yueh0720    時間: 2010-9-10 09:02

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

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

謝了,以為sub程序都是有名子巨集 應該都會在巨集表中顯示 =  ="
作者: JOSH    時間: 2011-4-18 22:06

Dear 版主
請問若只要取單一儲存格，
要怎麼下
謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)