Магазин инфекция лететь конструкция набор Maiores hic tempora eveniet consequaturреклама пол нажать.

这里写自定义目录标题

Distinctio nisi sed eaque in necessitatibus.Aliquid accusamus officiis a molestiae.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
Ниже представлены две части кода 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. Скопируйте второй код в редактор, чтобы связать его с кнопкой. Затем скопируйте первый код в редактор, чтобы создать форму расчета графика платежей по кредиту. Сохраните файл и нажмите на кнопку "ОК" для запуска формы и отображения графика платежей.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

云满笔记

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值