用bva让一个单元格显示另一个单元格的修改日期,且能决定日期显示的格式

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
Cells(Target.Row, 6) = Now
End If
End If
End Sub
这是我在网上收的,日期的格式太详细,我想只显示月、日就可以了。右键单元格,设置单元格格式不行,能否在vba中就把日期的格式定义好。

3个回答

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
    Cells(Target.Row, 6).NumberFormatLocal = "yyyy-m-d" '年月日
    'Cells(Target.Row, 6).NumberFormatLocal = "m-d" '月日
    Cells(Target.Row, 6) = Now
End If
End If
End Sub
danielinbiti
danielinbiti 回复lxcyly2: ...怎么可能呢
5 年多之前 回复
lxcyly2
lxcyly2 回复danielinbiti: QQ不存在呀
5 年多之前 回复
danielinbiti
danielinbiti 回复lxcyly2: qq:3185341837 excel发我
5 年多之前 回复
lxcyly2
lxcyly2 我在d列输入0,f列出现时间,但时间是包含年月日,时分秒的,不是年月
5 年多之前 回复
danielinbiti
danielinbiti 回复lxcyly2: 代码直接复制过去就没问题,就直接能用
5 年多之前 回复
lxcyly2
lxcyly2 在帮我看下吧,谢谢了,有3个单引号,单引号不是要一对一对的吗?要不就不要注释了,把直接能用的弄好,我以复制就0k
5 年多之前 回复
danielinbiti
danielinbiti 回复lxcyly2: 双击D列后F列没反应?
5 年多之前 回复
lxcyly2
lxcyly2 回复danielinbiti: 你看我的截图
5 年多之前 回复
danielinbiti
danielinbiti 回复lxcyly2: 晕,单引号是注释
5 年多之前 回复
danielinbiti
danielinbiti 回复lxcyly2: excel2003,excel2007都试了没问题。双击sheet中第四列,第6列就有值了。
5 年多之前 回复
lxcyly2
lxcyly2 我对vba一点都不懂,不会检查,但至少你写的第一个年月日在单引号里,第二个月日单引号只有一半,是不是还有别的细节,比如空格,换行之类的不对?
5 年多之前 回复
lxcyly2
lxcyly2 我把你写的代码复制粘帖,可是不行啊
5 年多之前 回复

图片说明图片说明有截图你看,自动显示的时间还是年月日,时分秒,不是,月日

图片说明我想要的是 就像下半部那样出现时间,而不是像上半部那样

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐