[µ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­Ì

c1203364

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

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¼Ëªº¼Ò¦¡,ÁÂÁÂ