на какой платформы ты построен?

Я, C知道，являюсь частью разработанной CSDN自主平台上的 AI服务体系。 Моя основная цель - помочь пользователям в área технологий, программирования и инженерных знаниях. Я здесь для ответов на вопросы и общения на техническом уровне.

相关问题

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

Ниже представлены две части кода VBA, которые могут решить задачу:

Первый код используется для создания формы расчета графика платежей по кредиту:

Sub СоздатьФормуРасчетаГрафикаПлатежейПоКредиту()
    Dim ДатаНачалаКредита As Date
    Dim СрокКредитаВМесяцах As Integer
    Dim ПроцентнаяСтавка As Double
    Dim СуммаКредита As Double
    Dim ДатаПланируемогоПлатежа As Date
    
    'Запросить информацию у пользователя
    ДатаНачалаКредита = InputBox("Введите дату начала кредита (в формате ГГГГ/ММ/ДД)")
    СрокКредитаВМесяцах = InputBox("Введите срок кредита в месяцах")
    ПроцентнаяСтавка = InputBox("Введите процентную ставку по кредиту")
    СуммаКредита = InputBox("Введите сумму кредита")
    ДатаПланируемогоПлатежа = InputBox("Введите планируемую дату платежа (в формате ГГГГ/ММ/ДД)")
    
    'Добавить заголовок таблицы
    Range("A1:F1").Merge
    Range("A1").Value = "График платежей по кредиту"
    Range("A1").Font.Size = 20
    Range("A1").Font.Bold = True
    
    'Добавить заголовки столбцов таблицы
    Range("A3").Value = "Дата платежа"
    Range("B3").Value = "Месяц платежа"
    Range("C3").Value = "Год платежа"
    Range("D3").Value = "Сумма платежа"
    Range("E3").Value = "Основной долг"
    Range("F3").Value = "Проценты"
    
    'Рассчитать график платежей и заполнить таблицу
    Dim i As Integer
    For i = 1 To СрокКредитаВМесяцах
        Dim ДатаПлатежа As Date
        Dim МесяцПлатежа As Integer
        Dim ГодПлатежа As Integer
        ДатаПлатежа = DateSerial(Year(ДатаПланируемогоПлатежа), Month(ДатаПланируемогоПлатежа), 10)
        If i > 1 Then
            ДатаПлатежа = DateAdd("m", 1, Range("A" & i + 2).Value)
        End If
        МесяцПлатежа = Month(ДатаПлатежа)
        ГодПлатежа = Year(ДатаПлатежа)
        Dim СуммаПлатежа As Double
        Dim ОсновнойДолг As Double
        Dim Проценты As Double
        СуммаПлатежа = WorksheetFunction.Pmt(ПроцентнаяСтавка / 12, СрокКредитаВМесяцах, -СуммаКредита)
        ОсновнойДолг = WorksheetFunction.PPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита)
        Проценты = WorksheetFunction.IPmt(ПроцентнаяСтавка / 12, i, СрокКредитаВМесяцах, -СуммаКредита)
        Range("A" & i + 3).Value = ДатаПлатежа
        Range("B" & i + 3).Value = МесяцПлатежа
        Range("C" & i + 3).Value = ГодПлатежа
        Range("D" & i + 3).Value = СуммаПлатежа
        Range("E" & i + 3).Value = ОсновнойДолг
        Range("F" & i + 3).Value = Проценты
    Next i
    
    'Оформить таблицу
    Range("A3:F" & СрокКредитаВМесяцах + 3).HorizontalAlignment = xlCenter
    Range("A3:F" & СрокКредитаВМесяцах + 3).Borders.LineStyle = xlContinuous
    Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Size = 12
    Range("A3:F" & СрокКредитаВМесяцах + 3).Font.Name = "Calibri"
    Range("A" & СрокКредитаВМесяцах + 5).Value = "Подпись:"
    Range("A" & СрокКредитаВМесяцах + 7).Value = "Дата: " & Format(Date, "ГГГГ/ММ/ДД")
End Sub

Второй код используется для привязки первого кода к кнопке "ОК" на форме:

Private Sub CommandButton1_Click()
    Call СоздатьФормуРасчетаГрафикаПлатежейПоКредиту
End Sub

Чтобы использовать код, создайте новый Excel-файл, нажмите на кнопку "Разработчик" в меню, выберите "Вставка формы" и добавьте кнопку "ОК". Щелкните правой кнопкой мыши на кнопке "ОК" и выберите "Просмотр кода", чтобы открыть редактор VBA. Скопируйте второй код в редактор, чтобы связать его с кнопкой. Затем скопируйте первый код в редактор, чтобы создать форму расчета графика платежей по кредиту. Сохраните файл и нажмите на кнопку "ОК" для запуска формы и отображения графика платежей.

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代码将根据用户输入和计算结果自动填充工作表。