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¤]§ìªº¨ì |