Kuinka tehdä prosenttilaskuri sanassasi VBA: n kautta

Tässä sost, on olemassa yksityiskohtaiset vaiheet, joiden avulla voit tehdä prosenttilaskurin Wordissasi VBA-editorin avulla.

Word-asiakirja voi sisältää paljon numeroita, kuten myyntiraportin. Sitten voi olla niin päänsärkyä käsitellä prosenttiosuutta. Siksi haluamme tarjota sinulle tavan rakentaa itse prosenttilaskin Wordissa.       

Lisää käyttäjän lomake

1. Käynnistä ensin VBA-editori Wordissa Alt + F11-näppäimellä.
2. Napsauta sitten "Lisää" ja valitse "UserForm".
3. Paina seuraavaksi “F4” avataksesi Ominaisuudet-ikkuna vasemmassa alakulmassa.
4. Nimeä lomake nimellä “frmPercentageCalculator”.
5. Ja aseta ”ShowModal” arvoksi ”False”. Määritä muut ominaisuudet vastaavasti, kuten tausta.
6. Napsauta sitten "View" ja valitse "Toolbox".
7. Napsauta "Toolbox" -kohdassa "MultiPage" -ohjaus.
8. Säädä ohjauskokoa. Aluksi näet "Sivu1" ja "Sivu2". Napsauta hiiren kakkospainikkeella "Sivu2" ja valitse "Uusi sivu" saadaksesi "Sivu3" ja "Sivu4".
9. Napsauta hiiren kakkospainikkeella "Sivu1" ja valitse "Nimeä uudelleen".
10. Nimeä sivu 1 uudelleenProsenttiosuus (%%)”, Sivu 2 nimellä“Lisäys / vähennys prosentteina”, Sivu 3 nimellä“Prosenttiosuuden muutos”Ja sivu 4Valinta% muutos".

Lisää säätimet sivulle 1

1. Napsauta nyt sivua “Prosenttiosuus (%). Luo neljä tarraa, kolme tekstiruutua ja 2 komentopainiketta. Laita ne seuraavaan järjestykseen:
2. Seuraavaksi määritetään ohjausominaisuudet.

• Napsauta ensin tarraa 1. Määritä kuvatekstiksi "Prosenttiosuus (prosentteina)". Aseta fontti ja taustaväri haluamallasi tavalla.
• Napsauta sitten tarraa 2. Aseta kuvatekstiksi "kuinka suuri prosenttiosuus".
• Napsauta tarraa 3. Aseta kuvatekstiksi “?".
• Napsauta tarraa 4. Aseta kuvatekstiksi Tulos:".
• Napsauta seuraavaksi tekstiruutua 1. Nimeä se nimellä “txtNumerator”. Ja aseta kirjasin oikein.
• Napsauta tekstiruutua 2. Nimeä se nimellä “txtDenominator".
• Napsauta tekstiruutua 3. Nimeä se nimellä “txtPercentage”. Valitse BackColor-kohdasta “Highlight”.
• Napsauta painiketta 1. Nimeä se nimellä “btnCalculate". Määritä kuvatekstiksi Laske.
• Napsauta painiketta 2. Nimeä se nimellä “btnInsertResult”. Ja aseta kuvatekstiksi ”Lisää tulos".

3. Kaksoisnapsauta nyt Laske-painiketta. Syötä seuraavat koodit:

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

4. Kaksoisnapsauta Lisää tulos -painiketta ja liitä koodit:

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

Lisää säätimet sivulle 2

1. Napsauta sivua “Lisäys / vähennys prosentteina”. Luo sitten viisi tarraa, kolme tekstiruutua ja kaksi komentopainiketta. Laita ne seuraavaan järjestykseen:
2. Seuraavaksi määritetään ohjausominaisuudet.
   • Napsauta ensin tarraa 1. Määritä kuvatekstiksi "Kasvata / pienennä prosenttiosuuksilla".
   • Napsauta sitten tarraa 2. Määritä tekstiksi ”Määrä".
   • Napsauta tarraa 3. Määritä kuvatekstiksi "Lisää / vähennä".
   • Ja napsauta label4. Aseta kuvatekstiksi "%".
   • Napsauta tarraa 5. Aseta kuvatekstiksi Tulos:".
   • Napsauta seuraavaksi tekstiruutua 1. Nimeä se nimellä “txtAmount”.
   • Napsauta sitten tekstiruutua 2. Nimeä se nimellä “txtIncreaseOrDecreaseByPercentage”.
   • Napsauta tekstiruutua 3. Nimeä se nimellä “txtResult” ja aseta taustaväriksi ”Highlight”.
   • Napsauta sitten painiketta 1. Nimeä se nimellä “btnCalculateIncreasedOrDecreasedAmount” ja aseta kuvatekstiksi ”Laske”.
   • Napsauta painiketta 2. Nimeä se nimellä “btnInsertValue” ja aseta kuvatekstiksi ”Lisää tulos”.

Aseta kirjasin, taustaväri ja muut ominaisuudet tarvittaessa.

3. Kaksoisnapsauta sitten Laske-painiketta ja kirjoita nämä koodit:

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

4. Ja kaksoisnapsauta Lisää tulos -painiketta ja syöttökoodeja:

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

Lisää säätimet sivulle 3

1. Napsauta ensin sivua “Prosenttimuutos ”. Luo seuraavaksi neljä tarraa, kolme tekstiruutua ja kaksi komentopainiketta. Järjestä ne seuraavassa järjestyksessä:
2. Siirry seuraavaksi säätöominaisuuksien asettamiseen.

• Napsauta ensin tarraa 1. Aseta kuvatekstiksi "Prosenttimuutos".
• Napsauta sitten tarraa 2. Määritä tekstitys arvoksi.
• Napsauta sitten tarraa 3. Aseta tekstitys arvoksi.
• Napsauta tarraa 4. Määritä kuvatekstiksi Tulos:.
• Napsauta seuraavaksi tekstiruutua 1. Nimeä se nimellä “txtFromValue".
• Napsauta sitten tekstiruutua 2. Nimeä se nimellä “txtToValue".
• Napsauta tekstiruutua 3. Nimeä se nimellä “txtPercentageChange” ja aseta taustaväriksi ”Highlight”.
• Napsauta painiketta 1. Nimeä se nimellä "btnCalculatePercentageChange" ja aseta otsikoksi "Laske".
• Napsauta painiketta 2. Nimeä se nimellä “btnInsertPercentageChange” ja aseta otsikoksi ”Lisää tulos”.

3. Kaksoisnapsauta sitten Laske-painiketta ja liitä nämä koodit:

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

4. Kaksoisnapsauta painiketta "Lisää tulos" ja liitä koodit:

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

Lisää säätimet sivulle 4

1. Kohteeseen start pois päältä, napsauta sivua “Valinta% muutos”. Luo sitten kaksi tarraa, kolme tekstiruutua ja yksi painike. Ja laita ne seuraavaan järjestykseen:
2. Toiseksi aseta ohjausominaisuudet.

• Napsauta ensin tarraa 1. Aseta kuvatekstiksi "Valinnan% muutos".
• Napsauta sitten tarraa 2. Aseta kuvatekstiksi "%".
• Napsauta sitten tekstiruutua 1. Nimeä se nimellä "txtDescription". Kirjoita seuraava kuvaava teksti:

Valitse asiakirjasta arvo ja aseta sitten prosentuaalinen arvo (lisää "-", jos se on negatiivinen), jonka verran haluat lisätä tai vähentää.

• Napsauta sitten tekstiruutua 2. Nimeä se nimellä "txtPercentageValue".
• Napsauta seuraavaksi tekstiruutua 3. Nimeä se nimellä “txtNote”. Ja kirjoita seuraava huomautus:

Huomaa: Tätä ei voi kumota. Varmista, että olet tallentanut asiakirjan ennen tämän toiminnon suorittamista.

• Napsauta painiketta. Nimeä se nimellä "btnChangeSelectedValue" ja aseta otsikoksi "Muuta valittua arvoa". Korosta tausta.

3. Kolmanneksi kaksoisnapsauta Muuta valittua arvoa -painiketta ja kirjoita koodit:

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

Lisää komentopainike käyttäjän lomakkeeseen

1. Valitse "CommandButton" kohdasta "Työkalut" ja luo yksi käyttäjän lomakkeeseen.
2. Nimeä sitten painike nimellä "btnClose".
3. Aseta kuvatekstiksi "Sulje".
4. Kaksoisnapsauta seuraavaksi painiketta ja kirjoita koodit:

Private Sub btnClose_Click()
  Unload Me
End Sub

Aseta moduuli

1. Napsauta “Normal”.
2. Napsauta sitten työkalurivillä Lisää ja valitse Moduuli.
3. Kaksoisnapsauta avataksesi sen ja liitä seuraavat koodit sinne:

Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Tallenna koodit ja määritä painike makrossa “CallPercentageCalculator”. Yksityiskohtaiset vaiheet ovat tässä artikkelissa: Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi

Tässä on esimerkki laskimen käytöstä:

Muista sanasi ongelmat

Jos Wordissa on merkkejä korruptiosta, sinun on varmuuskopioitava arvokkaat asiakirjat heti. Epänormaalit merkit osoittavat, että ohjelmistossa on jotain vikaa. Siksi suosittelemme käyttämään työkalua palauta sana.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa xlsx ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com