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