在EXCEL表格中自动生成不变的日期,请帮忙改下VBA代码

来源：百度知道 编辑：UC知道 时间：2024/05/27 09:40:40
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" And Target.Column = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
Else
Exit Sub
End If
End Sub

如果我要在B列中有数据时,对应的A列里自动生成当天日期且不变,跟以上代码刚刚相反，请朋友在以上的VBA代码帮忙改下,谢谢!
太上太皇的提示：运行时错误'1004'：应用程序定义错误或对象定义错误；wencuan的，我删除B的数据如果重新打人数据，日期又变会今天了，我要的是该日期以后都不变了； qgrmdtj的全选清楚内容时提示：运行时错误'13':类型不匹配。晕了

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value <> "" Then Exit Sub
If Target.Column = 1 And Target.Value = "" _
And Target.Offset(0, 1).Value <> "" Then Exit Sub
If Target.Column = 1 And Target.Value = "" _
And Target.Offset(0, 1).Value = "" Then Exit Sub
If Target.Column = 2 And Target.Value <> "" _
And Target.Offset(0, -1).Value = "" Then
Target.Offset(0, -1).Value = Date
End If
End Sub
用这个试试，各种情况都考虑到了，代码有点复杂，
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Value <> "" Then Exit Sub
If Target.Column = 1 And Target.Value = "" _
And Target.Offset(0, 1).Value <> "" Then Exit Sub
If Target.Column = 1 And Target.Value = "&qu