excel用vba编写代码完成以下任务：excel用vba完成以下两个任务： （1）Создайте форму расчета графика платежей по кредиту. Заведите поля, куда будут вводится дата начала кредита, срок в месяцах, процентная ставка, сумма кредита, планируемую дату платежа (в примере ниже - это 10-е число каждого месяца, т. е. пользователь выбирает число, в которое ему удобно осуществлять платеж). Выберите нужные типы полей. При нажатии на кнопке "ok" вся введеная информация должна появится на листе, аккуратно оформленная и подписанная.

以下是VBA代码，可以实现您所描述的任务：

首先，您需要在VBA编辑器中创建一个用户窗体(UserForm)。在用户窗体中添加所需的标签(Label)、文本框(TextBox)、下拉列表框(ComboBox)和按钮(Button)。窗体的布局和设计可以根据您的喜好进行调整。

在窗体的代码模块中添加以下代码：

Private Sub CommandButton1_Click()
    '获取用户输入的数据
    Dim startDate As Date
    Dim term As Integer
    Dim interestRate As Double
    Dim loanAmount As Double
    Dim paymentDate As Integer
    
    startDate = CDate(TextBox1.Value)
    term = CInt(TextBox2.Value)
    interestRate = CDbl(TextBox3.Value)
    loanAmount = CDbl(TextBox4.Value)
    paymentDate = CInt(ComboBox1.Value)
    
    '计算每月还款额
    Dim monthlyPayment As Double
    Dim remainingBalance As Double
    Dim totalInterest As Double
    
    monthlyPayment = Pmt(interestRate / 12, term, -loanAmount)
    remainingBalance = loanAmount
    totalInterest = 0
    
    '将计算结果写入工作表
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    With ws
        '清除之前的数据
        .Range("A2:F100").ClearContents
        
        '添加表头
        .Range("A1").Value = "Payment Date"
        .Range("B1").Value = "Payment Amount"
        .Range("C1").Value = "Interest"
        .Range("D1").Value = "Principal"
        .Range("E1").Value = "Balance"
        .Range("F1").Value = "Total Interest"
        
        '计算并填充每月还款信息
        Dim i As Integer
        Dim interest As Double
        Dim principal As Double
        
        For i = 1 To term
            '计算利息和本金
            interest = remainingBalance * interestRate / 12
            principal = monthlyPayment - interest
            
            '更新余额和总利息
            remainingBalance = remainingBalance - principal
            totalInterest = totalInterest + interest
            
            '填充数据到工作表
            .Cells(i + 1, 1).Value = DateSerial(Year(startDate), Month(startDate) + i - 1, paymentDate)
            .Cells(i + 1, 2).Value = monthlyPayment
            .Cells(i + 1, 3).Value = interest
            .Cells(i + 1, 4).Value = principal
            .Cells(i + 1, 5).Value = remainingBalance
            .Cells(i + 1, 6).Value = totalInterest
        Next i
        
        '格式化单元格
        .Range("A1:F1").Font.Bold = True
        .Range("A1:F1").HorizontalAlignment = xlCenter
        .Range("A2:F" & term + 1).NumberFormat = "#,##0.00"
        .Columns("A:F").AutoFit
    End With
    
    '关闭窗体
    Unload Me
End Sub

在上述代码中，我们首先获取用户输入的数据并使用Pmt函数计算每月还款额。然后，我们在工作表中创建一个表格来显示每月还款信息。最后，我们格式化单元格并关闭窗体。

现在，您可以在工作表上添加一个按钮，并将其关联到用户窗体。当用户单击该按钮时，用户窗体将打开，并显示用于输入数据的各种控件。用户输入数据并单击“ok”按钮后，VBA代码将根据用户输入和计算结果自动填充工作表。