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

[µo°Ý] ½Ð°Ý ¦p¦ó«ö¤@¤U «ö¶s1_Click ±N¤@­Ó­È ¶Ç°e¨ì ¥Ø«e´å¼Ð ªºÀx¦s®æ

¦^´_ 9# mycmyc

©Ò¿ï¾Ü¤§Àx¦s®æ¨ú±o¦P¤@¦CAÄ檺­È
  1. Sub «ö¶s1_Click()
  2.   ActiveCell = Cells(ActiveCell.Row, 1)
  3. End Sub
½Æ»s¥N½X

TOP

................  §Ú·Q­nªº¬O ÅܼÆ
¦p  ¦bE1  «h¨ú±o A 1 ­È
¦b G6  ¨ú±o A6  ­È
    ¦]¬°´å¼Ð  ¦b¥ô¦ó ¦a¤è  §Ú­n A¡H ªº­È
------------------
§Aªº°ÝÃD¬O:´å¼Ð¦bE1 «h¨ú±oA1­È,¶ñ¤JE1;´å¼Ð¦bG6 «h¨ú±oA6­È,¶ñ¤JA6¶Ü?
¦bexcelªº³o»ò¦h®æ¤l¤¤
¤@±Æ¤@±ÆªºA,B,C,D,E...........­p256­ÓºÙ¬°Column
¤@¦C¤@¦Cªº1,2,3,4,5...........­p65536­ÓºÙ¬°Row
Sub «ö¶s1_Click()
      Dim r  'Row ªºÅܼÆ
    r=ActiveCell.Row '¨ú±o´å¼Ð©Ò¦b¦ì¸mªºRow
      ActiveCell.Value = Cells(r,"A") '©Î¬O  ActiveCell.Value = Cells(r,1)
End Sub
§A¤]¥i¥H§Q¥Î¿ý»s¥¨¶°ªº¤èªk¨ú±oµ{¦¡½X
¦h¦h¿ý»sªº¥¨¶°¨Ã¬ã¨s,±N¥i¥[³t§Aªº¾Ç²ß

TOP

¦^´_ 11# register313

·PÁ §Aªº«üÂI §¹¬üªº»yªk  

§Ú¥Î¤gªk·Ò¿û  

ÁÂÁÂ
HI

TOP

¦^´_ 12# kobo
    ÁÂÁ §Aªº¤èªk ¸ò¼Ó¤W¤@¼Ë ¦n
ÁÂÁ§A
HI

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD