类似这种命令:
=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
在D1单元格输入=TODAY()
选择C列,在“数据”选项下的“数据有效性”中,选择“序列”,数据来源输入=$D$1
然后B列修改后,在C列的下拉列表中,选择一下,即可生成不随系统日期变化的当时日期。追问
选择C列,在“数据”选项下的“数据有效性”中,选择“序列”,数据来源输入=$D$1
然后B列修改后,在C列的下拉列表中,选择一下,即可生成不随系统日期变化的当时日期。追问
可以,最好能直接用修改判定,自动填写
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2016-01-23
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追问
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本回答被提问者采纳
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本回答被提问者采纳