Kuidas teha VBA kaudu oma Wordis protsendikalkulaatorit

Sõnalahendused September 28, 2025

Selles lkost, on üksikasjalikud juhised, kuidas VBA redaktori abil Wordis protsendikalkulaatorit luua.

Wordi dokument võib sisaldada palju numbreid, näiteks müügiaruanne. Siis võib protsendiarvestusega tegelemine olla selline peavalu. Seetõttu tahame teile pakkuda viisi, kuidas Wordis protsendikalkulaatorit ise luua.       Looge oma sõnas protsendikalkulaator

Sisestage kasutajavorm

  1. Esiteks käivitage Wordis VBA redaktor, vajutades "Alt + F11".
  2. Seejärel klõpsake nuppu "Lisa" ja valige "Kasutajavorm".
  3. Järgmisena vajutage "F4", et avada vasakus allnurgas "Atribuutide aken".
  4. Nimetage vormi kui "frmPercentageCalculator".
  5. Ja määrake "ShowModal" väärtuseks "False". Määrake vastavalt ka muud omadused, näiteks taust.
  6. Järgmisena klõpsake nuppu "Vaade" ja valige "Tööriistakast".
  7. Klõpsake jaotises "Tööriistakastis" nuppu "Mitmeleheline".Klõpsake "Vaade" -> Valige "Tööriistakast" -> Klõpsake "Mitme leheküljeline".
  8. Reguleerige kontrolli suurust. Alguses näete "Lehekülg1" ja "Lehekülg2". Paremklõpsake "Lehekülg2" ja valige "Uus leht", et saada "Page3" ja "Page4".
  9. Paremklõpsake "Lehekülg1" ja valige "Nimeta ümber".Nimeta leht ümber
  10. Nimeta leht 1 ümber kui "Protsent (mitu %)", leht 2 kui "Suurenda/vähenda protsendi võrra", leht 3 kui "Protsendimuutus" ja lehekülg 4 kui "Valik % muutus".

Sisestage juhtnupud lehele 1

  1. Nüüd klõpsake lehel "Protsent (mitu %)”. Looge neli silti, kolm tekstikasti ja 2 käsunuppu. Pange need järgmisesse järjekorda:Looge neli silti ja kolm tekstikasti ja kaks käsunuppu
  2. Järgmisena määrake juhtimisomadused.
  • Esmalt klõpsake sildil 1. Määrake pealkirjaks „Protsent (mitu %)”. Määrake font ja taustavärv, nagu soovite.
  • Seejärel klõpsake sildil 2. Määrake pealkirjaks "mitu protsent sellest".
  • Klõpsake sildil 3. Määrake pealkirjaks "?".
  • Ja klõpsake sildil 4. Määrake pealkirjaks "Tulemus:".
  • Järgmisena klõpsake tekstikasti 1. Nimetage see kui "txtNumerator”. Ja määrake font õigesti.
  • Klõpsake tekstikasti 2. Nimetage see kui "txtDenominator".
  • Klõpsake tekstikasti 3. Nimetage see kui "txtPercentage”. Valige "BackColor" jaoks "Highlight".
  • Ja klõpsake nuppu 1. Nimetage see kui "btnCalculate". Määrake pealkirjaks "Arvuta".
  • Klõpsake nuppu 2. Nimetage see kui "btnInsertResult”. Ja määrake pealkirjaks "Sisesta tulemus".
  1. Nüüd topeltklõpsake nuppu "Arvuta". Sisestage järgmised koodid:
Private Sub btnCalculate_Click()
  Dim nNumerator As Variant, nDenominator As Variant, nPercentage As Variant
 
  nNumerator = frmPercentageCalculator.txtNumerator.Text
  nDenominator = frmPercentageCalculator.txtDenominator.Text
  nPercentage = (nNumerator / nDenominator)
  frmPercentageCalculator.txtPercentage.Text = Format(nPercentage, "Percent")
End Sub
  1. Topeltklõpsake nuppu "Sisesta tulemus" ja kleepige koodid:
Private Sub btnInsertResult_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentage.Text
End Sub

Sisestage juhtnupud lehele 2

  1. Klõpsake lehel "Suurenda/vähenda protsendi võrra”. Seejärel looge viis silti, kolm tekstikasti ja kaks käsunuppu. Pange need järgmisesse järjekorda:Looge viis silti ja kolm tekstikasti ja kaks käsunuppu
  2. Järgmisena määrake juhtimisomadused.
    • Esmalt klõpsake sildil 1. Määrake pealkirjaks „Suurenda/vähenda protsendi võrra".
    • Seejärel klõpsake sildil 2. Määrake pealkirjaks "Summa".
    • Klõpsake sildil 3. Määrake pealkirjaks "Suurenda/vähenda".
    • Ja klõpsake silti4. Määrake pealkirjaks "%".
    • Klõpsake sildil 5. Määrake pealkirjaks "Tulemus:".
    • Järgmisena klõpsake tekstikasti 1. Nimetage see kui "txtAmount".
    • Ja klõpsake tekstikasti 2. Nimetage see "txtIncreaseOrDecreaseByPercentage".
    • Klõpsake tekstikasti 3. Nimetage see "txtResult" ja määrake taustavärviks "Highlight".
    • Seejärel klõpsake nuppu 1. Nimetage see "btnCalculateIncreasedOrDecreasedAmount" ja määrake pealdiseks "Arvuta".
    • Klõpsake nupul 2. Nimetage see kui "btnInsertValue" ja määrake pealkirjaks "Insert Result".

Vajadusel määrake font, taustavärv ja muud omadused.

  1. Seejärel topeltklõpsake nuppu "Arvuta" ja sisestage järgmised koodid:
Private Sub btnCalculateIncreasedOrDecreasedAmount_Click()
  Dim nAmount As Variant, nChangingPercentage As Variant, nResult As Variant
 
  nAmount = frmPercentageCalculator.txtAmount.Text
  nChangingPercentage = frmPercentageCalculator.txtIncreaseOrDecreaseByPercentage.Text
  nResult = nAmount + nAmount * nChangingPercentage * 0.01
  frmPercentageCalculator.txtResult.Text = nResult
End Sub
  1. Ja topeltklõpsake nuppu "Sisesta tulemus" ja sisestage koodid:
Private Sub btnInsertValue_Click()
  Selection.InsertAfter frmPercentageCalculator.txtResult.Text
End Sub

Sisestage juhtnupud lehele 3

  1. Kõigepealt klõpsake lehel "Protsentuaalne muutus”. Järgmisena looge neli silti, kolm tekstikasti ja kaks käsunuppu. Järjesta need järgmises järjekorras:Looge neli silti ja kolm tekstikasti ja kaks nuppu
  2. Järgmisena minge juhtimisomaduste määramiseks.
  • Esmalt klõpsake sildil 1. Määrake pealkirjaks "Protsentuaalne muutus".
  • Seejärel klõpsake sildil 2. Määrake pealkirjaks "Väärtusest".
  • Järgmisena klõpsake sildil 3. Määrake pealkirjaks "Väärtus".
  • Klõpsake sildil 4. Määrake pealkirjaks "Tulemus:".
  • Järgmisena klõpsake tekstikasti 1. Nimetage see kui "txtFromValue".
  • Ja klõpsake tekstikasti 2. Nimetage see kui "txtToValue".
  • Klõpsake tekstikasti 3. Nimetage see kui "txtPercentageChange" ja määrake taustavärviks "Highlight".
  • Ja klõpsake nuppu 1. Nimetage see kui "btnCalculatePercentageChange" ja määrake pealkirjaks "Arvuta".
  • Klõpsake nuppu 2. Nimetage see kui "btnInsertPercentageChange" ja määrake pealkirjaks "Insert Result"..
  1. Seejärel topeltklõpsake nuppu "Arvuta" ja kleepige need koodid:
Private Sub btnCalculatePercentageChange_Click()
  Dim nFromValue As Variant, nToValue As Variant, nPercentageChange As Variant

  nFromValue = frmPercentageCalculator.txtFromValue.Text
  nToValue = frmPercentageCalculator.txtToValue.Text
  nPercentageChange = (nToValue - nFromValue) / nFromValue
  frmPercentageCalculator.txtPercentageChange.Text = Format(nPercentageChange, "Percent")
End Sub
  1. Topeltklõpsake nuppu "Sisesta tulemus" ja kleepige koodid:
Private Sub btnInsertPercentageChange_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentageChange.Text
End Sub

Sisestage juhtnupud lehele 4

  1. Et start välja lülitatud, klõpsake lehel "Valik % muutus”. Seejärel looge kaks silti, kolm tekstikasti ja üks nupp. Ja pange need sellisesse järjekorda:Looge kaks silti ja kolm tekstikasti ja üks nupp
  2. Teiseks määrake juhtimisomadused.
  • Esmalt klõpsake sildil 1. Määrake pealdis "Valimise % muutus".
  • Järgmisena klõpsake sildil 2. Määrake pealkirjaks "%".
  • Seejärel klõpsake tekstikasti 1. Nimetage see kui "txtDescription". Sisestage järgmine kirjeldav tekst:

Valige dokumendis väärtus, seejärel määrake protsentväärtus (lisage "-", kui see on negatiivne), mille võrra soovite suurendada või vähendada.

  • Seejärel klõpsake tekstikasti 2. Nimetage see kui "txtPercentageValue".
  • Järgmisena klõpsake tekstikasti 3. Nimetage see kui "txtNote". Ja sisestage järgmine märkus:

Märkus. Seda ei saa tagasi võtta. Enne selle toimingu sooritamist veenduge, et olete oma dokumendi salvestanud.

  • Ja klõpsake nuppu. Nimetage see kui "btnChangeSelectedValue" ja määrake pealkirjaks "Muuda valitud väärtust". Tõstke esile taust.
  1. Kolmandaks topeltklõpsake nuppu "Muuda valitud väärtust" ja sisestage koodid:
Private Sub btnChangeSelectedValue_Click()
  Dim nPercentageValue As Variant, varSelectedvalue As Variant
 
  nPercentageValue = frmPercentageCalculator.txtPercentageValue.Text
  varSelectedvalue = Selection.Text
  Selection.Range.Delete
  Selection.TypeText varSelectedvalue + varSelectedvalue * nPercentageValue * 0.01
End Sub

Sisestage käsunupp kasutajavormi

  1. Valige "Tööriistakastist" "CommandButton" ja looge see kasutajavormil.
  2. Seejärel nimetage nupp "btnClose".
  3. Määrake pealkirja tekstiks "Sule".Looge kasutajavormi jaoks sulgemisnupp
  4. Järgmisena topeltklõpsake nuppu ja sisestage koodid:
Private Sub btnClose_Click()
  Unload Me
End Sub

Sisestage moodul

  1. Klõpsake nuppu "Tavaline".
  2. Seejärel klõpsake tööriistaribal nuppu "Lisa" ja valige "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  3. Selle avamiseks topeltklõpsake ja kleepige sinna järgmised koodid:
Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Salvestage koodid ja määrake nupp makrole "CallPercentageCalculator". Üksikasjalikud sammud leiate sellest artiklist: Kuidas eemaldada Wordis makro ja VBA abil kleebitud tekstide vorming

Siin on kalkulaatori kasutamise demonstratsioon:

Pöörake tähelepanu oma sõnaprobleemidele

Kui teie Wordis on märke korruptsioonist, peate oma väärtuslikud dokumendid kohe varundama. Ebatavalised märgid näitavad, et tarkvaraga on midagi valesti. Seetõttu soovitame teil kasutada tööriista sõna taastama.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.