ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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


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

¦^´_ 1# yueh0720

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

TOP

¬Ý¤£À´«¨ §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?

TOP

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

Untitled.png (22.4 KB)

Untitled.png

Untitled2.png (11.46 KB)

Untitled2.png

TOP

¬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

TOP

  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


Hsieh¤j¤Ó±j¤F

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

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

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

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

TOP

  1. Private Sub Worksheet_Change(ByVal Target As Range)

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

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

  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD