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

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

Sub PaymentCalculation()
    Dim principal As Double
    Dim startDate As Date
    Dim rate As Double
    Dim paymentDate As Date
    Dim paymentAmount As Double
    Dim interestAmount As Double
    Dim remainingPrincipal As Double
    
    '获取用户输入
    principal = CDbl(InputBox("请输入本金："))
    startDate = CDate(InputBox("请输入开始日期（格式为yyyy/mm/dd）："))
    rate = CDbl(InputBox("请输入利率（如利率为3.5%，请填入0.035）："))
    
    '根据公式计算出各项数据
    paymentDate = DateAdd("m", 1, startDate)
    paymentAmount = WorksheetFunction.Pmt(rate / 12, 12, principal)
    interestAmount = principal * rate / 12
    remainingPrincipal = principal - paymentAmount + interestAmount
    
    '将计算结果放置在EFGH列
    Range("E1").Value = "付款日期"
    Range("F1").Value = "应支付金额"
    Range("G1").Value = "应计利息金额"
    Range("H1").Value = "剩余本金"
    
    Range("E2").Value = paymentDate
    Range("F2").Value = paymentAmount
    Range("G2").Value = interestAmount
    Range("H2").Value = remainingPrincipal
End Sub

使用方法如下：

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