请教一个VBA的小问题.~

直接写成:
ActiveSheet.Cells(Selection.Row, 4) = "早退合计0.5时"
不就行了。
而且——“在VBA里为当前行,第四列赋值时”，最好写成：
Cells(Activecell.Row, 4).Value = "早退合计0.5时"
如果这个“0.5”为变量，而且希望方便累计，最好是用自定义数字格式加入“早退合计”和“时”这两段文字！
Cells(Activecell.Row, 4).NumberFormatLocal = """早退合计""0.0""时"""
Cells(Activecell.Row, 4).Value = 0.5

我的宏是累计变量,但写入第四单元格的内容不一定只有"早退合计",如果有迟到,又会加上"迟到合计",所以会有点麻烦.请再赐教!~^-^

如果只有两种情况，可以将迟到设定为正值，而早退设定为负值。
Cells(Activecell.Row, 4).NumberFormatLocal = """迟到合计""0.0""时"";""早退合计""0.0""时"""
Cells(Activecell.Row, 4).Value = 0.5 
Cells(Activecell.Row + 1, 4).NumberFormatLocal = """迟到合计""0.0""时"";""早退合计""0.0""时"""
Cells(Activecell.Row + 1, 4).Value = -0.5 
但因为如果有人迟到又早退怎么办？因此见意把迟到和早退放在两格里。
如果真的非要放在一格！！那只要加一个判断的语句了：
(i即是变量）
If i < 1 Then
Cells(ActiveCell.Row, 4).Value = "早退合计0" & i & "时"
Else
Cells(ActiveCell.Row, 4).Value = "早退合计" & i & "时"
End If

看来还是没有简单的好方法,我现在暂时用IF判断如果小于半小时的就直接填上"迟到合计0.5小时",早退也是一样.
可到底什么原因有这种问题就真的不了解了.^-^