[已解决]时间的VBA代码

安全网

比如在单元格内输入28，单元格就显示当前的月份和日期的值，4月28日，这个可以实现么

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-4-29 09:56

安全网 发表于 2016-4-29 08:42
如果是A列H列和Z列，该怎么修改代码

日期29.rar (12.01 KB, 下载次数: 38)

2016-4-29 09:56 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. m = Month(Now)
   
3. d = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
4. If Target.Value <= d And Target.Value >= 1 Then Target = m & "月" & Target.Value & "日"
   
5. End Sub

复制代码

七彩屋

日期.rar (11.32 KB, 下载次数: 5)

2016-4-28 17:13 上传

点击文件名下载附件

安全网

七彩屋 发表于 2016-4-28 17:13

能否设置几列的单元格才这样，还有输入一次修改就出现错误

七彩屋

安全网 发表于 2016-4-28 20:13
能否设置几列的单元格才这样，还有输入一次修改就出现错误

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
m = Month(Now)
d = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
x = Day(Target.Value) + 1
If Target.Value <= d And Target.Value >= 1 Then Target = m & "月" & x & "日"
End Sub

七彩屋

日期.rar (12.51 KB, 下载次数: 5)

2016-4-28 22:00 上传

点击文件名下载附件

安全网

七彩屋 发表于 2016-4-28 22:00

如果是A列H列和Z列，该怎么修改代码

七彩屋

安全网 发表于 2016-4-29 08:42
如果是A列H列和Z列，该怎么修改代码

日期29.rar (12.01 KB, 下载次数: 38)

2016-4-29 09:56 上传

点击文件名下载附件

安全网

七彩屋 发表于 2016-4-29 09:56

如果这列单元格部分单元格是输入数值，如果输入文字就提示出错，怎么设置了

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column = 1 Or Target.Column = 8 Or Target.Column = 26 Then
   
4. m = Month(Now)
   
5. d = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
6. If Target.Value <= d And Target.Value >= 1 Then Target = m & "月" & Day(Target.Value) + 1 & "日"
   
7. End If
   
8. End Sub

复制代码