Jak vytvořit procentuální kalkulačku ve vašem slovu pomocí VBA

Slovní řešení September 28, 2025

V tomto příspěvku najdete podrobné kroky, jak si ve Wordu vytvořit procentuální kalkulačku pomocí editoru VBA.

Dokument aplikace Word může obsahovat mnoho čísel, například zprávu o prodeji. Pak vám může připadat jako bolest hlavy vypořádat se s výpočtem procenta. Proto vám chceme nabídnout způsob, jak si sami vytvořit kalkulačku procent v aplikaci Word.

Vložte uživatelský formulář

Nejprve spusťte editor VBA ve Wordu pomocí „Alt + F11“.
Poté klikněte na „Vložit“ a vyberte „UserForm“.
Poté stiskněte „F4“ a otevřete „okno Vlastnosti“ v levém dolním rohu.
Pojmenujte formulář jako „frmPercentageCalculator“.
A nastavte „ShowModal“ na „False“. Podle toho nastavte další vlastnosti, například pozadí.
Dále klikněte na „Zobrazit“ a vyberte „Panel nástrojů“.
Na panelu „Toolbox“ klikněte na ovládací prvek „MultiPage“.
Upravte velikost ovládacího prvku. Nejprve uvidíte „Stránka1“ a „Stránka2“. Klikněte pravým tlačítkem na „Stránka2“ a vyberte „Nová stránka“, abyste získali „Stránka3“ a „Strana4“.
Klikněte pravým tlačítkem na „Stránka1“ a vyberte „Přejmenovat“.
Přejmenujte stránku 1 na „Procento (jaké%)”, Strana 2 jako„Zvýšení / snížení o procento”, Strana 3 jako„Procentní změna”A strana 4 jako„% Změna výběru".

Vložte ovládací prvky na stránku 1

Nyní klikněte na stránku “Procento (jaké%) “. Vytvořte čtyři štítky, tři textová pole a 2 příkazová tlačítka. Umístěte je v následujícím pořadí:
Další nastavení vlastností ovládacího prvku.

Nejprve klikněte na štítek 1. Nastavit titulek jako „Procento (v%)“. Nastavte písmo a barvu pozadí, jak se vám líbí.
Poté klikněte na štítek 2. Nastavit titulek jako „jaké je procento“.
Klikněte na štítek 3. Nastavit titulek jako „?".
A klikněte na štítek 4. Nastavte titulek jako „Výsledek:".
Dále klikněte na textové pole 1. Pojmenujte jej jako „txtNumerator“. A správně nastavit písmo.
Klikněte na textové pole 2. Pojmenujte jej jako „txtDenominator".
Klikněte na textové pole 3. Pojmenujte jej jako „txtPercentage“. Vyberte „Zvýraznit“ pro „BackColor“.
A klikněte na tlačítko 1. Pojmenujte jej jako „btnCalculate". Nastavit titulek jako „Vypočítat“.
Klikněte na tlačítko 2. Pojmenujte jej jako „btnInsertResult“. A nastavit titulek jako „Vložit výsledek".

Nyní dvakrát klikněte na tlačítko „Vypočítat“. Zadejte následující kódy:

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

Dvakrát klikněte na tlačítko „Vložit výsledek“ a vložte kódy:

Private Sub btnInsertResult_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentage.Text
End Sub

Vložte ovládací prvky na stránku 2

Klikněte na stránku “Zvýšení / snížení o procento“. Poté vytvořte pět štítků, tři textová pole a dvě příkazová tlačítka. Umístěte je v následujícím pořadí:
Další nastavení vlastností ovládacího prvku.
- Nejprve klikněte na štítek 1. Nastavte titulek jako „Zvýšení / snížení o procento".
- Poté klikněte na štítek 2. Nastavte titulek jako „Částka".
- Klikněte na štítek 3. Nastavte titulek na „Zvětšit / Zmenšit o".
- A klikněte na label4. Nastavit titulek jako „%".
- Klikněte na štítek 5. Nastavte titulek jako „Výsledek:".
- Dále klikněte na textové pole 1. Pojmenujte jej jako „txtAmount“.
- A klikněte na textové pole 2. Pojmenujte jej jako „txtIncreaseOrDecreaseByPercentage“.
- Klikněte na textové pole 3. Pojmenujte jej jako „txtResult“ a nastavte barvu pozadí jako „Zvýraznit“.
- Poté klikněte na tlačítko 1. Pojmenujte jej jako „btnCalculateIncreasedOrDecreasedAmount“ a nastavte titulek jako „Vypočítat“.
- Klikněte na tlačítko 2. Pojmenujte jej jako „btnInsertValue“ a nastavte titulek jako „Vložit výsledek“.

V případě potřeby nastavte písmo, barvu pozadí a další vlastnosti.

Poté dvakrát klikněte na tlačítko „Vypočítat“ a zadejte tyto kódy:

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

A dvakrát klikněte na tlačítko „Vložit výsledek“ a zadejte kódy:

Private Sub btnInsertValue_Click()
  Selection.InsertAfter frmPercentageCalculator.txtResult.Text
End Sub

Vložte ovládací prvky na stránku 3

Nejprve klikněte na stránku „Procentní změna “. Dále vytvořte čtyři štítky, tři textová pole a dvě příkazová tlačítka. Uspořádejte je v následujícím pořadí:
Dále přejděte k nastavení vlastností ovládacího prvku.

Nejprve klikněte na štítek 1. Nastavit titulek jako „Procentuální změna“.
Poté klikněte na štítek 2. Nastavit titulek jako „Od hodnoty“.
Dále klikněte na štítek 3. Nastavit titulek jako „Na hodnotu“.
Klikněte na štítek 4. Nastavit titulek jako „Výsledek:“.
Dále klikněte na textové pole 1. Pojmenujte jej jako „txtFromValue".
A klikněte na textové pole 2. Pojmenujte jej jako „txtToValue".
Klikněte na textové pole 3. Pojmenujte jej jako „txtPercentageChange“ a nastavte barvu pozadí jako „Zvýraznit“.
A klikněte na tlačítko 1. Pojmenujte jej jako „btnCalculatePercentageChange“ a nastavte titulek jako „Vypočítat“.
Klikněte na tlačítko 2. Pojmenujte jej jako „btnInsertPercentageChange“ a nastavte titulek jako „Vložit výsledek“.

Poté dvakrát klikněte na tlačítko „Vypočítat“ a vložte tyto kódy:

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

Poklepejte na tlačítko „Vložit výsledek“ a vložte kódy:

Private Sub btnInsertPercentageChange_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentageChange.Text
End Sub

Vložte ovládací prvky na stránku 4

Chcete-li začít, klikněte na stránku „% Změna výběru“. Poté vytvořte dva štítky, tři textová pole a jedno tlačítko. A dát je v takovém pořadí:
Za druhé, nastavte vlastnosti ovládacího prvku.

Nejprve klikněte na štítek 1. Nastavit titulek jako „Výběr% Změna“.
Dále klikněte na štítek 2. Nastavit titulek jako „%“.
Poté klikněte na textové pole 1. Pojmenujte jej jako „txtDescription“. Zadejte následující popisný text:

Vyberte hodnotu v dokumentu a poté nastavte procentuální hodnotu (přidejte „-“, pokud je záporná), o kterou chcete zvýšit nebo snížit o.

Poté klikněte na textové pole 2. Pojmenujte jej jako „txtPercentageValue“.
Dále klikněte na textové pole 3. Pojmenujte jej jako „txtNote“. A zadejte následující poznámku:

Poznámka: Tuto akci nelze vrátit zpět. Před provedením této akce se ujistěte, že jste dokument uložili.

A klikněte na tlačítko. Pojmenujte jej jako „btnChangeSelectedValue“ a nastavte titulek jako „Změnit vybranou hodnotu“. Zvýrazněte pozadí.

Za třetí, dvakrát klikněte na tlačítko „Změnit vybranou hodnotu“ a zadejte kódy:

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

Vložte příkazové tlačítko do formuláře uživatele

Vyberte „CommandButton“ z „Toolbox“ a vytvořte jeden na uživatelském formuláři.
Pak tlačítko pojmenujte jako „btnClose“.
Nastavit text titulku jako „Zavřít“.
Dále dvakrát klikněte na tlačítko a zadejte kódy:

Private Sub btnClose_Click()
  Unload Me
End Sub

Vložte modul

Klikněte na „Normální“.
Poté klikněte na „Vložit“ na panelu nástrojů a zvolte „Modul“.
Dvojitým kliknutím jej otevřete a vložte tam následující kódy:

Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Uložte kódy a přiřaďte tlačítko makru „CallPercentageCalculator“. Podrobné kroky najdete v tomto článku: Jak odebrat formátování vložených textů pomocí maker a VBA ve vašem Wordu

Zde je ukázka použití kalkulačky:

Dbejte na své slovní problémy

Pokud vaše Word vykazuje známky poškození, musíte své cenné dokumenty hned zazálohovat. Abnormální znaky naznačují, že se softwarem není něco v pořádku. Proto doporučujeme použít nástroj k obnovit slovo.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com