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

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

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

½Ð°Ý ¦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
¤£¦æ    ½Ð«ü±Ð
HI

Sub «ö¶s1_Click()
Set curs = Selection
curs.Value = "*"

End Sub
OK
¥¿½T¶Ü¡H
HI

TOP

Sub «ö¶s1_Click()
      ActiveCell.Value = "*"
End Sub
§A¤]¥i¥H§Q¥Î¿ý»s¥¨¶°ªº¤èªk¨ú±oµ{¦¡½X
¦h¦h¿ý»sªº¥¨¶°¨Ã¬ã¨s,±N¥i¥[³t§Aªº¾Ç²ß

TOP

¦^´_ 3# kobo

ÁÂÁ  ¦b½Ð°Ý¤@¤U  §Úªº´å¼Ð¦b E1    ­n¨ú±o  A1 ­È  ¸Ó«ç»ò°µ©O
HI

TOP

¦^´_ 4# mycmyc
  1. Sub «ö¶s1_Click()
  2.     [E1] = [A1]
  3. End Sub
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 6# mycmyc

Private Sub CommandButton1_Click()

ActiveCell.Value = [A1]

End Sub

TOP

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

TOP

¦^´_ 8# register313

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

½Ð±Ð
HI

TOP

¦^´_ 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¶Ü
HI

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD