VBA 关于自动显示日期??

zc_wjp

问题如下：
       原来功能：所有的表上在A列不为空时，则在B列中自动填入当天的日期；代码如下
'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'If Target.Column = 1 Then
  '  If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
'    If Target.Value = "" Then Target.Offset(0, 1) = ""
'End If
'End Sub
以上这样只要在A列输入非空值就可以实现，但是我如果我只想在sheet1的表上实现这个功能，并把代码改为这样：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
    If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
    If Target.Value = "" Then Target.Offset(0, 1) = ""
End If
End Sub
则在A列输入时并不会马上在B列中自动显示日期，而要在输入后再一次单击A列才会显示出来，请问这样要怎么修改代码呢，如果我想在C列上再添加一个时间并且把C列隐藏起来要怎么实现呢。
请哪位高手帮忙小弟啊 刚入门不太懂

alzeng

Workbook_SheetChange事件和Worksheet_SelectionChange事件是不同的。

zc_wjp

我知道啊就是因为不太清楚怎么改才发出来问的呀

alzeng

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
    If Target.Value = "" Then Target.Offset(0, 1) = ""
End If
End Sub

zc_wjp

谢谢啊  能不能解释解释  有什么区别

alzeng

SelectChange事件是在选择区域发生变化时触发，Change事件是在区域数值发生变化后触发。

alzeng

从字面上你也应该看出来它们的大概不同了，^_^