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

[µo°Ý] Worksheet_Change ddeÅܰʪº­È§ì¤£¨ì ??

[µo°Ý] Worksheet_Change ddeÅܰʪº­È§ì¤£¨ì ??

Worksheet_Change ddeÅܰʪº­È§ì¤£¨ì ??
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F1").Address Then


Range("g65536").End(xlUp).Offset(1, 0) = Time
Range("g65536").End(xlUp).Offset(0, 1) = Target.Value
End If
End Sub
§Ú¦bF1§ó§ï¼Æ¦r³£§ìªº¨ì?§ï¬°§ìDDEªº¸ê®Æ §ì¤£¨ì(µLªkIJ°Ê) ??
¦pªG¥ÎWorksheet_Calculate¤]§ìªº¨ì

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD