¦p¦ó±N"Sheet1"¦WºÙ§ó´«¦¨A-B-C-D

yueh0720

¤U¸ü (19.19 KB)

2010-9-9 11:53

¦p¦ó±N"Sheet1"¦WºÙ§ó´«¦¨A-B-C-D

jackdream

¦^´_ 1# yueh0720

¹³³o¼Ë?
Sheets("Sheet1").Name = "A-B-C-D"

huang40

¬Ý¤£À´«¨ §Aªº"-" ¬O "dash" or "minus" ¤]¤À¤£²M·¡
1.¦pªGA,B,C,D¬O©T©wªº¤å¦r¨º´N¦p¤W¤@¼Ó©Òµª
2.¦pªGA,B,C,D ¬O¥i¸m´«ªº¤å¦r ¨º´N­n¬ÝA,B,C,D«e«á¦³¨S¦³ªÅ®æ  ÁÙ¬O¥u¬O¦p§Aªí¤W§âA,B,C,D¸m¤¤¦Ó¤w
3.¦pªGA,B,C,D¬O¼Æ¦r¨º¤S¤£¤@¼Ë
.
.
¨ì©³§A­nªº¬O­þ¤@ºØµª®×©O?

´å·à

1. 将·Æ¹««ü¦V "Sheet1" µM¦Z«ö·Æ¹«¥k键
2. 选择 "rename" (©ö¦W/§ó¦W/§ï¦W/换¦W)
3. 输¤J§A­nªº"A-B-C-D"

yueh0720

¬O"dash"
A,B,C,D¬O¥iÅܼƦr©M¤å¦r
¦bA,B,C,DÄæ¦ì¿é¤J§Ú­nªº¼Æ¦r©M¤å¦r«á,"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

½Æ»s¥N½X

huang40

¦^´_ 6# Hsieh


Hsieh¤j¤Ó±j¤F

¦]¬°³Ìªñ¤]¸I¨ìÃþ¦ü°ÝÃD

¤]·Q¶¶«K½Ð±Ð

°²³]­Y¬OABCD¬O«e«á¦³ªÅ¥Õ(space)ªº¦r¦ê

­n¦p¦ó­×¥¿©O?

¤U¸ü (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

½Æ»s¥N½X

yueh0720

¤£¯à¨Ï¥Î£z
1.¦b¥¨¶°¦WºÙ¬Ý¤£¨ì Worksheet_Change(ByVal Target As Range)
2.°õ¦æ«á·|­n¨D¿ï¾Ü¥¨¶°¦WºÙ,ÀH·N¿ï¾Ü¤@­Ó¥¨¶°¦WºÙ«á°õ¦æ"Sheet1"¨SÅܧó¦¨A-B-C-D

oobird

«¢«¢¡A¨q¤~¹J¨ì§L¡C
³o¬O¤u§@ªí¨Æ¥ó¡A¤£·|Åã¥Ü¦b¥¨¶°ªí¤¤¡C
§â¥N½X¶K¦b¨Ï¥Î¤u§@ªíªº¼Ò²Õ¡A¤£¬O¦bModule¤¤
¦bb3:b6¦³¿é¤J°Ê§@®É¦Û°Ê¹B¦æ¡I