[µo°Ý] ²¤ÆCommandButton

c1203364

Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Range("N3") = Date
End Sub
Private Sub CommandButton2_Click()
CommandButton2.Enabled = False
Range("N4") = Date
End Sub
¤@ª½¨ì
Private Sub CommandButton98_Click()
CommandButton98.Enabled = False
Range("N100") = Date
End Sub
½Ð°Ý¦³¿ìªk²¤Æ¶Ü?ÁÂÁ¤j¤j­Ì

owen06

¦^´_ 1# c1203364


    ½Ð°Ý§A³]³o»ò¦hªº«ö¶s¡A¥Øªº¬°¦ó¡H¯à§_´y­z¤@¤U§A·Q­n¹F¦¨ªº¥\¯à¡H

c1203364

·í¦P¨Æ¶ñ¼g¸ê®Æ§¹¦¨,´N«ö¯Ã°O¿ý¤é´Á,¥Î¨Ó­pºâ³B²z®É¶¡

owen06

¦^´_ 4# c1203364


    ·Q½Ð°Ýªº¬O¡A½Ð°Ý§A³oªñ100­Ó«ö¶s¡A§A·Q­n²¤Æ¦¨¤°»ò¼Ëªº¤è¦¡¡H
    ¬O­n«ö¤U¤@­Ó«ö¶s¡A´N¯à­þ¨ÇÀx¦s®æ²£¥Í¤°»òµ²ªG¡AÁÙ¬O¨ä¥L«ç»ò¼Ëªººc·Q¡A
    ¬O§_¯à±Ô­z¤@¤U¡H

c1203364

Private Sub CommandButton_Click()
On Error Resume Next
Dim i As Integer
For i = 3 To 100
If CommandButton & i = False Then
Cells(i, 10) = Date
End If
Next
End Sub
¦Û¤v¶Ã¼gªº,·QÅý¤j®a¤F¸Ñ,¤j·§´N¬O³o¼Ëªº¼Ò¦¡,ÁÂÁÂ

linyancheng

¤j·§ª¾¹D§Aªº·N«ä¡A¦ý¤£«Ü²M·¡¡A©Ò¥H¥i¯à¥Î³o¨â­Ó¤èªk¤§¤@¡G
¤@¡B¥u¥Î¤@­Ó«ö¶s¡A¦A¥[¥t¤@­Ó±ø¥ó¨Ó°õ¦æ¡C
¤G¡B¨Ï¥Îª«¥óÃþ§O¼Ò²Õ¡A¥u­n³]©w¤@¦¸¨Æ¥ó(Sub CommandButton_Click)¡A¤£¬O¥Î´`Àô¡C

³o´N¬O¥Îª«¥óÃþ§O¼Ò²Õ¼gªº¡A©Ò¦³ªº«ö¶s¥u¼g¤F¤@¦¸¨Æ¥ó¡A¦Ó¥B«ö¶s¬O¡u°õ¦æ¶¥¬q¡v¤~³Ð«Øªº¡G
http://forum.twbts.com/thread-13114-1-1.html
§A¥i¥H°Ñ¦Ò¤@¤U¡A¬ã¨s¤@¤Uª«¥óÃþ§O¼Ò²Õ¡C