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

在D1单元格输入=TODAY()
选择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

追问

不知道是不是我电脑的问题,没效果啊,我用的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

本回答被提问者采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网