编写一个vba程序，用用户输入，本金、开始日期、利率、输出多少行，计算出每个月付款日期 应支付金额 应计利息金额 剩余本金，分别放置在EFGH列

好的，以下是对应的VBA代码：

Sub PaymentCalculation()
    Dim principal As Double
    Dim startDate As Date
    Dim rate As Double
    Dim outputRows As Integer
    Dim paymentDate As Date
    Dim paymentAmount As Double
    Dim interestAmount As Double
    Dim remainingPrincipal As Double
    Dim i As Integer
    
    '获取用户输入
    principal = CDbl(InputBox("请输入本金："))
    startDate = CDate(InputBox("请输入开始日期（格式为yyyy/mm/dd）："))
    rate = CDbl(InputBox("请输入利率（如利率为3.5%，请填入0.035）："))
    outputRows = CInt(InputBox("请输入要输出多少个月的数据："))
    
    '将计算结果放置在EFGH列
    Range("E1").Value = "付款日期"
    Range("F1").Value = "应支付金额"
    Range("G1").Value = "应计利息金额"
    Range("H1").Value = "剩余本金"
    
    For i = 1 To outputRows
        '根据公式计算出各项数据
        paymentDate = DateAdd("m", i, startDate)
        paymentAmount = WorksheetFunction.Pmt(rate / 12, 12, principal)
        interestAmount = principal * rate / 12
        remainingPrincipal = principal - paymentAmount + interestAmount
        
        '将计算结果放置在EFGH列
        Range("E" & i + 1).Value = paymentDate
        Range("F" & i + 1).Value = paymentAmount
        Range("G" & i + 1).Value = interestAmount
        Range("H" & i + 1).Value = remainingPrincipal
        
        '更新本金
        principal = remainingPrincipal
    Next i
End Sub

使用方法如下：

1. 打开Excel文件，按下Alt+F11打开VBA编辑器；
2. 在VBA编辑器中，选择插入模块，将上述代码复制到新建的模块中；
3. 按下F5或点击运行按钮，执行程序；
4. 程序会提示用户输入本金、开始日期、利率、要输出多少个月的数据；
5. 用户输入完毕后，程序会自动计算出每个月的付款日期、应支付金额、应计利息金额、剩余本金；
6. 计算结果会自动放置在EFGH列中。