请老师们完善一下VBA代码

caishensi

请高手完善下尚未完成的设置，谢谢！
1、按月增加入“本月合计”、“本年累计”两行,蓝色部份就是要增加的。
2、借贷栏的计算，负数为“贷”，正数为“借”，零为“平”。
3、设置单元格边框。

[ 本帖最后由 caishensi 于 2011-1-17 22:29 编辑 ]

caishensi

大家帮忙修改下代码：
Sub 计算()
    With Sheets("应付帐款明细帐")
    j = 7
    If .Cells(j, 11) = 0 Then
       .Cells(j, 10) = "平"
    ElseIf .Cells(j, 11) > 0 Then
       .Cells(j, 10) = "借"
    Else
        .Cells(j, 10) = "贷"
    End If
        j = j + 1
    End With
End Sub

要实现J 循环加1

jqg1959

先下载，后研究。