Question

excel 2007若指定单元格被修改，自动填写日期到另一指定单元格，且次日打开日期不变

类似这种命令：
=if(iserror(=SUM(B3)/(B3+L3))),"",(=SUM(B3)/(B3+L3)))
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2 And Target.Value <> "" ThenTarget.Offset(0, -1) = Format(Date, "yyyy.m.d")End If
End Sub

Answer 1

在D1单元格输入=TODAY()
选择C列，在“数据”选项下的“数据有效性”中，选择“序列”，数据来源输入=$D$1
然后B列修改后，在C列的下拉列表中，选择一下，即可生成不随系统日期变化的当时日期。

追问

可以，最好能直接用修改判定，自动填写

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And And Target.Row = 3 AND Target.Value <> "" Then
Target.Offset(-2, 0) = Format(Date, "yyyy.m.d")
End If
End Sub

追问

不知道是不是我电脑的问题，没效果啊，我用的office2007

追答

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row = 3 And Target.Value <> "" Then
        Target.Offset(-2, 0) = Format(Date, "yyyy.m.d")
    End If
End Sub