[µo°Ý] ¥i§_±N«öÁä«e¼Æ­ÓÀx¦s®æ¶K¦Ü¥t¤@¬¡­¶¡I¡]¥H¸Ñ¨M¡^

louts

¤U¸ü (154.58 KB)
¬¡­¶Ã¯¡]1¡^

2012-4-20 08:36

¤U¸ü (152.48 KB)
¬¡­¶Ã¯¡]2¡^

2012-4-20 08:35

½Ð°Ý¦U¦ì¥ý¶i¡G
                 ¦pªG­n±N¬¡­¶Ã¯²Ä¤@¦Cªº¼Æ­È¡]¥u¶K¤W­È¡^¶K¨ì²Ä¤G¬¡­¶Ã¯¡]ÃC¦â¹ïÀ³¦ì¸m¡^¡® ¬¡­¶Ã¯²Ä¤G¦Cªº¼Æ­È¡]¥u¶K¤W­È¡^¶K¨ì²Ä¤G¬¡­¶Ã¯¡]ÃC¦â¹ïÀ³¦ì¸m¡^¡C
½Ð°Ý¡y«ö¶s¤@¡z¸ò¡y«ö¶s¤G¡z¬O§_¥i¥H¦@¥Î¦P¤@¥¨¶°¡A¦]Àɮצ@¦³¦³¥|¦Ê¦h¦C¬G·Q½Ð±Ð¬O§_¦³§ó¾A¤Á¤è¦¡¡A¦p¦ó¼¶¼g¡AÁÂÁ¦U¦ì¡C

mark15jill

¦pªG¥u³æ¯Â ½Æ»s ­Èªº¸Ü
¥i¥H¥Î °j°é + ·s¼W¬¡­¶Ã¯
¦ý¬O¤£ª¾¹D±z¬O§_¬O¤@¦¸­n¤j¶q ÁÙ¬O ¤À§O

louts

¦^´_ 2# mark15jill

ÁÂÁ±zªº¦^ÂÐ...
§Úªº»Ý¨D¥u¬O§â­È©«¨ì¯S©wÀx¦s®æ¡AµM«á¶i¦æ¸ê®Æ¤ñ¹ï¡C©Ò¥H¬¡­¶Ã¯¡]¤@¡^¨C¤@¦Cªº­È³£¬O­n¶K¨ì¬¡­¶Ã¯¡]¤G¡^ªº¨º¤C­ÓÀx¦s®æ¡A·íµM¶K¤W­È«e·|¥ý²M°£«e­±ªº¸ê®Æ¡C

ÁÂÁ±z

Hsieh

¦^´_ 3# louts


   §Aªº°Ê§@¬O¨C¤@¦Cªº«ö¶s¥u±N¸Ó¦Cªº­È¶K¨ì²Ä¤G¬¡­¶Ã¯ªº7­ÓÀx¦s®æ§a

¤U¸ü (147.73 KB)

2012-4-20 14:12

louts

¦^´_ 4# Hsieh


¬Oªº§Úªº»Ý­nªº®ÄªG¥u¦³³o¼Ë ÁÂÁ±zªO¥D...

louts

¦^´_ 4# Hsieh

1. Sub «ö¶s1_Click()
   
2. Dim a As Range
   
3. Set a = ActiveSheet.Shapes(Application.Caller).TopLeftCell
   
4. r = a.Row
   
5. Windows(2).ActiveSheet.[A1].Resize(, 4) = Cells(r, 1).Resize(, 4).Value
   
6. Windows(2).ActiveSheet.[B2].Resize(, 3) = Cells(r, 5).Resize(, 3).Value
   
7. End Sub

½Æ»s¥N½X

¤U¸ü (92.49 KB)

2012-4-20 17:46

ÁÂÁªO¥D¡A¦ý°õ¦æ®É·|Åã¥Ü¡y°õ¦æ¶¥¬q¿ù»~'9':°}¦C¯Á¤Þ¶W¥X½d³ò¡z¤£ª¾­þ­Ó¦a¤è¦³»~·Ð½Ð«ü¾É¡C

Hsieh

¦^´_ 6# louts
¨â­ÓÀÉ®×¥²¶·¥Î¦P¤@­ÓEXCEL¶}±Ò¤~¦æ

louts

¦^´_ 7# Hsieh

ÁÂÁ±zªºµªÂÐ...§Úªº¬O¦P¤@­ÓÀɮרâ­Ó¤£¦Pªº¬¡­¶...¤@­Ó¬O¡y¬¡­¶1¡z¤@­Ó¬O¡y¬¡­¶2¡zÁÂÁ±z¡C

register313

¦^´_ 8# louts

1. Sub «ö¶s1_Click()
   
2. Dim a As Range
   
3. Set a = Sheets("1").Shapes(Application.Caller).TopLeftCell
   
4. r = a.Row
   
5. Sheets("2").[A1].Resize(, 4) = Sheets("1").Cells(r, 1).Resize(, 4).Value
   
6. Sheets("2").[B2].Resize(, 3) = Sheets("1").Cells(r, 5).Resize(, 3).Value
   
7. End Sub

½Æ»s¥N½X

ÀÉ®×(¬¡­¶Ã¯)¦WºÙ => ·s¼WMicrosoft Excel ¤u§@ªí (2).xls
¤u§@ªí¦WºÙ       => 1  »P  2

louts

¦^´_ 9# register313

ÁÂÁ±z...³o¥¿¬O§Ú»Ý­nªº¥\¯à¡C