ExcleVba时间的赋值

希望实现的功能：
第一步，用一个按钮，给一个单元格赋时间。
如：
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?

谢谢。

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

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

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