Selles artiklis õpime, kuidas luua kalkulaatorit intressisumma arvutamiseks Microsoft Excelis VBA kaudu.
Kasutajavorm: - Kasutajavormi kasutatakse andmetesse konkreetsete üksikasjade sisestamiseks, mida põhimõtteliselt kasutavad kasutajad, kes ei ole Exceliga sõbralikud. Kasutajavormi kaudu saame piirata kirjeid ja määrata lahtrid, milles see konkreetne kirje on nõutav.
Tahame luua kasutajavormi, et sisestada mõned üksikasjad ja seejärel arvutab Excel välja intressisumma.
Intressisumma arvutamiseks kasutajaliigi loomiseks järgige alltoodud samme
- Sisestage kasutajavorm, seejärel sisestage 3 sildikast, 3 tekstivälja ja üks käsunupp
- Makro määramiseks topeltklõpsake käsunuppu
- Kirjutage allolev kood:-
Privaatne alamkäsk CommandButton1_Click () Dim Summa, intressimäär, kestus, intress Ühekordse tähisena täisarvuna erow = Töölehed ("Sheet1"). Lahtrid (Rows.count, 1). End (xlUp). Offset (1, 0). Rida Amount = Val (TextBox1.text) Lahtrid (erow, 1). Value = Summa määr = Val (TextBox2.text) / 100 lahtrit (erow, 2). Value = rate Cells (erow, 2). Value = Lahtrid (erow , 2) * 100 & "%" duration = Val (TextBox3.text) Lahtrid (erow, 3) .Väärtus = kestusintress = ((Amount * (1 + rate) duration) - Amount) Lahtrid (erow, 4) .Väärtus = intress Lõpp Alam
Koodi selgitus: - Esiteks määratleme muutujad ja seejärel määratleme read ja lahtrid, kuhu soovime tekstikasti üksikasjad jäädvustada.
Nüüd sisestame kasutajavormi avamiseks nupu, järgige alltoodud samme:-
- Avage vahekaart Arendaja> Juhtelementide rühm> Lisa> Nupp (vormi juhtelement)
- Sisestage nupp lehele
- Pärast nupule sisestamist avaneb dialoogiboks „Määra makro”
- Klõpsake nuppu Uus
- Avaneb Visual Basic Editor
- Kirjutage allpool nimetatud kood
Alamnupp5_Click () Interest_Cal. Näita lõpu alamosa
- Kui klõpsate nupul, ilmub kalkulaatori vorm
- Sisestage summa, seejärel vanus %ja seejärel kestus
- Kui klõpsate käsunuppu (Arvuta), sisestatakse kirjed määratud lahtritesse ja arvutatakse intressisumma veerus D
Sel viisil saame luua Microsoft Excelis laenukalkulaatori, kasutades Microsoft Excelis VBA kodeeringut.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile