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

mycmyc

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

¦p§Ú·Q±N *  «ö¤@¤U «ö¶s3_Click   
±N   *   ¶Ç°e¨ì  ¥Ø«e´å¼Ð ªºÀx¦s®æ  
ÁÂÁÂ

Sub «ö¶s1_Click()
Set curs = Selection
curs.Text = "*"
  
End Sub
¤£¦æ    ½Ð«ü±Ð

mycmyc

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

mycmyc

¦^´_ 11# register313

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

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

ÁÂÁÂ

kobo

................  §Ú·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ªº¾Ç²ß

register313

¦^´_ 9# mycmyc

©Ò¿ï¾Ü¤§Àx¦s®æ¨ú±o¦P¤@¦CAÄ檺­È

1. Sub «ö¶s1_Click()
   
2.   ActiveCell = Cells(ActiveCell.Row, 1)
   
3. End Sub

½Æ»s¥N½X

mycmyc

¦^´_ 8# register313

If Range("$a" & Mid(ActiveCell.Address, 3, 3)).Value > 100 Then MsgBox "¿ù»~", 0 + 64

Range("$a" & Mid(ActiveCell.Address, 3, 3)).Value   ¥Î¦¹¨ú±o  AÄæ  ªº­È  

½Ð°Ý ¦³¤ò¯f¶Ü

mycmyc

¦^´_ 8# register313

ÁÂÁ ¹ï¤£°_ §Ú»¡¤£²M·¡  §Ú·Q­nªº¬O ÅܼÆ
¦p  ¦bE1  «h¨ú±o A 1 ­È
¦b G6  ¨ú±o A6  ­È
    ¦]¬°´å¼Ð  ¦b¥ô¦ó ¦a¤è  §Ú­n A¡H ªº­È

½Ð±Ð

register313

¦^´_ 6# mycmyc
   [A1]©ÎRANGE("A1")©ÎCELLS(1,1)      ³o´N¬OA1Àx¦s®æªº­È
  
  µ{¦¡¤¤¼g¨ì[A1]©ÎRANGE("A1")©ÎCELLS(1,1)    ´N¨ú±oA1Àx¦s®æªº­È

dino1978

¦^´_ 6# mycmyc

Private Sub CommandButton1_Click()

ActiveCell.Value = [A1]

End Sub

mycmyc

¦^´_ 5# register313
ÁÂÁ  §Ú¬O·Q ´å¼Ð¦b E1     ·Q¨ú±o  A1ªº­È  °µ­pºâ  ¤£¬O¼g¨ìE1