lxcyly2
lxcyly2
采纳率50%
2015-05-06 08:49

用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条回答

  • danielinbiti danielinbiti 6年前
     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
    
    点赞 评论 复制链接分享
  • lxcyly2 lxcyly2 6年前

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

    点赞 评论 复制链接分享
  • lxcyly2 lxcyly2 6年前

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

    点赞 评论 复制链接分享

相关推荐