用宏解决另类银行贷款单科目明细分户帐页的生成(金额分列)

hongyin

给你一个参考的吧，为了方便，可以在VBA中直接用函数的。

风和日月

hongyin 发表于 2011-9-7 08:46
给你一个参考的吧，为了方便，可以在VBA中直接用函数的。

谢谢老师提供，有一个问题，微调上下时产生个人表的变化的原理是怎样产生的，能否给个解释吗

风和日月

hongyin 发表于 2011-9-7 08:46
给你一个参考的吧，为了方便，可以在VBA中直接用函数的。

老师提供的是个很好的例子，我的贷款分户帐正是按照人事档案编写的，一表多用
可以反一个乡内往来的家庭人员信息和往来帐，利息收入帐，
请问老师，能否实现双面连续打印吗，

hongyin

别叫老师，我也不大通的{:soso_e110:}。也是边做边学的。
实现双面连续打印，有的打印机就有这个功能。用VBA做，较麻烦。偷懒的办法，Excel必备工具箱的“人工双面打印”功能。
http://blog.sina.com.cn/s/blog_5488e3a90100bam8.html

hongyin

风和日月 发表于 2011-9-7 09:07
谢谢老师提供，有一个问题，微调上下时产生个人表的变化的原理是怎样产生的，能否给个解释吗

[a1]为行号，增减就行。调用fill

风和日月

hongyin 发表于 2011-9-7 12:54
[a1]为行号，增减就行。调用fill

谢谢，谢谢了

风和日月

Private Sub CommandButton2_Click()
With Sheets("最终效果")
  Maxrow = 6
  Rwct = Sheets("单户明细汇总").Range("C65536").End(xlUp).Row
  For i = Maxrow To Rwct
   

     If Sheets("单户明细汇总").Cells(1 + i, 2) <> "" Then
        Cells(4, 1) = Right(Year(Sheets("单户明细汇总").Cells(7, 2)), 2) '年2位
        Cells(i, 1) = Month(Sheets("单户明细汇总").Cells(1 + i, 2))  '月2位
        Cells(i, 10) = Sheets("单户明细汇总").Cells(i - 4, 12) '利率
             End If
     If Sheets("单户明细汇总").Cells(1 + i, 2) <> "" Then
        Cells(i, 2) = Day(Sheets("单户明细汇总").Cells(6 + i, 2))  '日2位
        Cells(6, 4) = Right(Year(Sheets("单户明细汇总").Cells(2, 10)), 2) '年2位
        Cells(6, 5) = Month(Sheets("单户明细汇总").Cells(2, 10)) '月2位
        Cells(6, 6) = Day(Sheets("单户明细汇总").Cells(2, 10)) '日2位
        Cells(6, 7) = Right(Year(Sheets("单户明细汇总").Cells(2, 11)), 2) '年2位
        Cells(6, 8) = Month(Sheets("单户明细汇总").Cells(2, 11)) '月2位
        Cells(6, 9) = Day(Sheets("单户明细汇总").Cells(2, 11)) '日2位
              End If
     If Sheets("单户明细汇总").Cells(1 + i, 6) <> "" Then
         Cells(i, 29) = Right(Year(Sheets("单户明细汇总").Cells(1 + i, 6)), 2)  '年2位
                       End If
     If Sheets("单户明细汇总").Cells(1 + i, 6) <> "" Then
        Cells(i, 30) = Month(Sheets("单户明细汇总").Cells(1 + i, 6))  '月2位
                      End If
     If Sheets("单户明细汇总").Cells(1 + i, 6) <> "" Then
        Cells(i, 31) = Day(Sheets("单户明细汇总").Cells(1 + i, 6))  '日2位
                  End If
    If Sheets("单户明细汇总").Cells(i + 1, 4) <> "" And Abs(Val(Sheets("单户明细汇总").Cells(i + 1, 4))) >= 0 Then '借方金额分栏填充
       VaToBranch CDbl(Val(Sheets("单户明细汇总").Cells(i + 1, 4))), i, 11, 19
      
    End If
    If Sheets("单户明细汇总").Cells(i + 1, 5) <> "" And Abs(Val(Sheets("单户明细汇总").Cells(i + 1, 5))) >= 0 Then '贷方金额分栏填充
       VaToBranch CDbl(Val(Sheets("单户明细汇总").Cells(i + 1, 5))), i, 20, 28
      
    End If
    If Sheets("单户明细汇总").Cells(i + 1, 7) <> "" And Abs(Val(Sheets("单户明细汇总").Cells(i + 1, 7))) >= 0 Then '结存金额分栏填充
       VaToBranch CDbl(Val(Sheets("单户明细汇总").Cells(i + 1, 7))), i, 32, 40
        End If
    If Sheets("单户明细汇总").Cells(i + 1, 8) <> "" And Abs(Val(Sheets("单户明细汇总").Cells(i + 1, 8))) >= 0 Then '利息金额分栏填充
       VaToBranch CDbl(Val(Sheets("单户明细汇总").Cells(i + 1, 8))), i, 41, 47
      
    End If
  Next i
  End With
End Sub
这是金额分栏的代码，有老师帮忙吗，精简一下代码，谢谢