Excle Vba 时间的赋值

答案:2 悬赏:50 手机版

解决时间 2021-01-23 06:18

提问者网友：椧運幽默
2021-01-22 12:02

希望实现的功能：
第一步，用一个按钮，给一个单元格赋时间。
如：
Private Sub CommandButton302_Click()
Sheets(4).Cells(11, 1) = "6:30"
End Sub

第二步，用另一个按钮，给这个单元格加4小时。
如：
Private Sub CommandButton303_Click()
Sheets(4).Cells(11, 1) = Sheets(4).Cells(11, 1) + 4
End Sub

问题一
该单元格Sheets(4).Cells(11, 1)，显示的永远是12：00（1/1/1900 12:00AM）。如何才能显示 6:30 AM？

问题二
如何实现+4后，显示10:30 AM?

谢谢。

最佳答案

五星知识达人网友：忘川信使
2021-01-22 12:56

时间数据赋值要用“#”号：
Sheets(4).Cells(11, 1) = #6:30:0#

时间的加减也需要用“#”符号
Sheets(4).Cells(11, 1) = Sheets(4).Cells(11, 1) + #4:0:0#

全部回答

1楼网友：神也偏爱
2021-01-22 14:10

改为sheet1.cells(activecell.row, 12).value = "" 一般来说，赋值空值不使用null 使用"" ，英文输入法下的双引号，注意中间没有空格， null一般用来描述变量或对象为空，只是用来描述，不能用来赋值

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息