Калкулатор на заем чрез VBA

В тази статия ще научим как да създадем калкулатор за изчисляване на лихвата чрез VBA в Microsoft Excel.

Потребителски формуляр: - Потребителският формуляр се използва за въвеждане на конкретните данни в данните, които се използват основно от потребителите, които не са приятелски настроени към Excel. Чрез потребителска форма можем да ограничим записите и да зададем клетките, в които този конкретен запис се изисква.

Искаме да създадем потребителски формуляр, за да въведем малкото подробности и след това Excel ще изчисли сумата на лихвата.

Следвайте дадените по -долу стъпки, за да създадете потребителски формуляр за изчисляване на сумата на лихвата

Поставете потребителски формуляр, след това поставете 3 полета с етикети, 3 текстови полета и един команден бутон

Щракнете двукратно върху бутона Command, за да зададете макроса
Напишете кода по-долу:-

Private Sub CommandButton1_Click () Dim Amount, rate, duration, interest As Single Dim erow As Integer erow = Worksheets ("Sheet1"). Cells (Rows.count, 1) .End (xlUp) .Offset (1, 0) .Row Количество = Val (TextBox1.text) Клетки (erow, 1) .Value = Amount rate = Val (TextBox2.text) / 100 клетки (erow, 2). Value = rate Cells (erow, 2) .Value = Клетки (erow , 2) * 100 & "%" продължителност = Val (TextBox3.text) Клетки (erow, 3). Стойност = лихва за продължителност = ((Сума * (1 + курс) продължителност) - Количество) Клетки (erow, 4) . Стойност = лихва End Sub

Код Обяснение: - Първо ще дефинираме променливите, а след това ще дефинираме редове и клетки, където искаме да уловим детайлите в текстовото поле.

Сега ще вмъкнем бутон за отваряне на потребителската форма, следвайте дадените по-долу стъпки:-

Отидете на раздел Разработчик> Група контроли> Вмъкване> Бутон (контрол на формуляра)

Поставете бутона на листа
След като поставите бутона на листа, ще се отвори диалогов прозорец „Присвояване на макрос“

Щракнете върху Ново
Ще се отвори редактор на Visual Basic
Напишете кода, споменат по -долу

Sub Button5_Click () Interest_Cal. Show End Sub

Когато щракнете върху бутона, ще се появи формуляр за калкулатор

В което трябва да въведем сума, след това %възраст и след това Продължителност
Когато щракнете върху Команден бутон (Изчислете), записите ще бъдат въведени в определените клетки и ще изчислят размера на лихвата в колона D