一个会计账的问题

关于 如附件，我想实现的功能是这样的：
1、把金额自动添加到后面的格中，且分成千、百、十、万等。我用公式倒是实现了，可是你也看到了，效果不好，该显示的0没有显示。
2、如果在项目中写上“小计”“月计”或“合计”后，能自动汇总当月的金额，也添加到后面的列中。最后的合计则计算此页的所有小计。
3、当A列出现“小计”“月计”“合计”这些字样时，该行的下画线自动变成红色。示例中是我手工画的。
这几个问题我处理不了，还请VBA高手们帮助一下，先谢谢了！的问题

“小计”,”合计”下划红线,用条件格式就可以了,不用VBA,用条件格式做,还可以防错,取消下面的红线。
那些小计和统计下面的合计数,可以用VBA来做。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target。
Column = 1 And Target。Count = 1 Then
If Target。Value = “小计” Then
Set rng = Columns(1)。Find(what:=”小计”, after:=Target, searchdirection:=xlPrevious, lookat:=xlWhole)
If rng Is Nothing Then
Target。
Offset(, 1) = Application。WorksheetFunction。Sum(Range(Cells(2, 2), Target。Offset(-1)。Offset(, 1)))
Else
Target。
Offset(, 1) = Application。WorksheetFunction。Sum((Range(rng。Offset(1), Target。Offset(-1)。Offset(, 1))))
End If
Set rng = Nothing
Else
If Target。
Value = “合计” Then
s = Application。WorksheetFunction。Sum(Range(Cells(2, 2), Target。Offset(-1)。Offset(, 1)))
Target。
Offset(, 1) = s / 2
Else
Exit Sub
End If
End If
Else
Exit Sub
End If
End Sub
。