- ©«¤l
- 37
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 41
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-7
- ³Ì«áµn¿ý
- 2018-2-10
|
................ §Ú·Qnªº¬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ªº¾Ç²ß |
|