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中就把日期的格式定义好。
用bva让一个单元格显示另一个单元格的修改日期,且能决定日期显示的格式
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
3条回答
- danielinbiti 2015-05-06 09:07关注
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
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥20 删除和修改功能无法调用
- ¥15 kafka topic 所有分副本数修改
- ¥15 小程序中fit格式等运动数据文件怎样实现可视化?(包含心率信息))
- ¥15 如何利用mmdetection3d中的get_flops.py文件计算fcos3d方法的flops?
- ¥40 串口调试助手打开串口后,keil5的代码就停止了
- ¥15 电脑最近经常蓝屏,求大家看看哪的问题
- ¥60 高价有偿求java辅导。工程量较大,价格你定,联系确定辅导后将采纳你的答案。希望能给出完整详细代码,并能解释回答我关于代码的疑问疑问,代码要求如下,联系我会发文档
- ¥50 C++五子棋AI程序编写
- ¥30 求安卓设备利用一个typeC接口,同时实现向pc一边投屏一边上传数据的解决方案。
- ¥15 SQL Server analysis services 服务安装失败