¦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

JOSH

Dear ª©¥D
½Ð°Ý­Y¥u­n¨ú³æ¤@Àx¦s®æ¡A
­n«ç»ò¤U
ÁÂÁÂ

yueh0720

Á¤F,¥H¬°subµ{§Ç³£¬O¦³¦W¤l¥¨¶° À³¸Ó³£·|¦b¥¨¶°ªí¤¤Åã¥Ü =  ="

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

yueh0720

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

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

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. 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

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

´å·à

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