利用VBA，计算，付息日时点的余额

575009525

求助，求助
如附件所示：




利用VBA
根据－－还本截止日[B列]－－和－－付息日期[I列]－－
计算，付息日时的，－－本金余额[M列]－－
ps：总金额在[P1]


感谢！

3190496160

既然是要计算利息，就应该有利率吧，但是，表格中并没有利率字段呀

fanyoulin

数据对不对自己判断，我看不出来。

zxsea_7426

......................................

zxsea_7426

575009525

3190496160 发表于 2023-5-29 11:16
既然是要计算利息，就应该有利率吧，但是，表格中并没有利率字段呀

大神：

利率在[P5]

我自己写了一个代码吧M列的本金余额给算出来了
（底部）

但是有个问题

这个付息金额计算时，可能！就分为2端了



一段是还本前的本金*利率
另一端是还本后的本金*利率



怎么根据C列和I列，判断这个，，，比较绕~~~~
































Sub AAAAA()



'将本金最后一期的时间放入利息中

For u = 4 To 6
    Cells(Cells(4, u + 6).End(xlDown).Row, u + 6) = Cells(Cells(4, u).End(xlDown).Row, u)
Next




Cells(2, 1) = "项目"
For y = 4 To UsedRange.Rows.Count
Cells(y, 1) = Cells(1, 3)
Next








' 第5行、第16列（P5）格式调整
Cells(5, 16).NumberFormatLocal = "0.000%"


'循环I列（第9列）,第4行到最大行
For k = 4 To Cells(4, 9).End(xlDown).Row

'让目标单元格 = 本金金额Cells(1, 16)
Cells(k, 9).Offset(0, 4) = Cells(1, 16)


    '循环C列第4行到最大行
     For i = 4 To Cells(4, 3).End(xlDown).Row
        
        '判断日期是否在还本日期之前
        If Cells(i, 3) < Cells(k, 9) Then
        
          Cells(k, 9).Offset(0, 4) = Cells(k, 9).Offset(0, 4) - Cells(i, 3).Offset(0, 4)
        
        End If
        
    Next
     Cells(k, 9).Offset(0, 4).NumberFormatLocal = "#,##0.00_ "
     
     
'     计算利息
    Cells(k, 9).Offset(0, 5) = Cells(k, 9).Offset(0, 4) * Cells(5, 16) / 4
   
    Cells(k, 9).Offset(0, 5).NumberFormatLocal = "#,##0.00_ "
Next






End Sub

575009525

zxsea_7426 发表于 2023-5-29 14:05

大神：

利率在[P5]

我自己写了一个代码吧M列的本金余额给算出来了
（底部）

但是有个问题

这个付息金额计算时，可能！就分为2端了



一段是还本前的本金*利率
另一端是还本后的本金*利率



怎么根据C列和I列，判断这个，，，比较绕~~~~
































Sub AAAAA()



'将本金最后一期的时间放入利息中

For u = 4 To 6
    Cells(Cells(4, u + 6).End(xlDown).Row, u + 6) = Cells(Cells(4, u).End(xlDown).Row, u)
Next




Cells(2, 1) = "项目"
For y = 4 To UsedRange.Rows.Count
Cells(y, 1) = Cells(1, 3)
Next








' 第5行、第16列（P5）格式调整
Cells(5, 16).NumberFormatLocal = "0.000%"


'循环I列（第9列）,第4行到最大行
For k = 4 To Cells(4, 9).End(xlDown).Row

'让目标单元格 = 本金金额Cells(1, 16)
Cells(k, 9).Offset(0, 4) = Cells(1, 16)


    '循环C列第4行到最大行
     For i = 4 To Cells(4, 3).End(xlDown).Row
        
        '判断日期是否在还本日期之前
        If Cells(i, 3) < Cells(k, 9) Then
        
          Cells(k, 9).Offset(0, 4) = Cells(k, 9).Offset(0, 4) - Cells(i, 3).Offset(0, 4)
        
        End If
        
    Next
     Cells(k, 9).Offset(0, 4).NumberFormatLocal = "#,##0.00_ "
     
     
'     计算利息
    Cells(k, 9).Offset(0, 5) = Cells(k, 9).Offset(0, 4) * Cells(5, 16) / 4
   
    Cells(k, 9).Offset(0, 5).NumberFormatLocal = "#,##0.00_ "
Next






End Sub