Cara Membuat Kalkulator Peratusan dalam Firman Anda melalui VBA

Penyelesaian Perkataan 28 September 2025

Dalam catatan ini, terdapat langkah-langkah terperinci untuk anda membuat kalkulator peratusan dalam Word anda dengan menggunakan editor VBA.

Dokumen Word boleh mengandungi banyak nombor, seperti laporan penjualan. Oleh itu, anda mungkin merasa sukar untuk menangani pengiraan peratusan. Oleh itu, kami ingin menawarkan cara untuk membina kalkulator peratusan sendiri di Word.

Masukkan Borang Pengguna

Pertama, cetuskan editor VBA di Word dengan "Alt + F11".
Kemudian klik "Insert" dan pilih "UserForm".
Seterusnya tekan "F4" untuk membuka "Properties Window" di sudut kiri bawah.
Namakan borang sebagai "frmPercentageCalculator".
Dan tetapkan "ShowModal" sebagai "Salah". Tetapkan sifat lain dengan sewajarnya, seperti latar belakang.
Selanjutnya klik "View" dan pilih "Toolbox".
Pada "Kotak Alat", klik kawalan "MultiPage".
Laraskan ukuran kawalan. Pada mulanya, Anda dapat melihat "Halaman1" dan "Halaman2". Klik kanan pada "Halaman2" dan pilih "Halaman Baru" untuk mendapatkan "Halaman3" dan "Halaman4".
Klik kanan pada “Page1” dan pilih “Rename”.
Namakan semula halaman 1 sebagai "Peratusan (berapa% daripada)", Halaman 2 sebagai"Kenaikan / Penurunan mengikut Peratusan", Halaman 3 sebagai"Perubahan Peratusan", Dan halaman 4 sebagai"Pilihan% Perubahan".

Masukkan Kawalan ke Halaman 1

Sekarang klik pada halaman “Peratusan (berapa%). Buat empat label, tiga kotak teks dan 2 butang arahan. Masukkan mengikut urutan berikut:
Seterusnya menetapkan sifat kawalan.

Klik pertama pada label 1. Tetapkan kapsyen sebagai "Peratus (berapa%)". Tetapkan warna fon dan latar belakang yang anda suka.
Kemudian klik pada label 2. Tetapkan kapsyen sebagai "berapa peratus".
Klik pada label 3. Tetapkan kapsyen sebagai “?".
Dan klik pada label 4. Tetapkan kapsyen sebagai "Hasil:".
Klik seterusnya pada kotak teks 1. Namakannya sebagai "txtNumerator" Dan tetapkan fon dengan betul.
Klik pada kotak teks 2. Namakannya sebagai "txtDenominator".
Klik pada kotak teks 3. Namakannya sebagai "txtPercentage" Pilih "Highlight" untuk "BackColor".
Dan klik pada butang 1. Namakan sebagai "btnCalculate". Tetapkan kapsyen sebagai "Kira".
Klik pada butang 2. Namakannya sebagai “btnInsertResult" Dan tetapkan kapsyen sebagai "Masukkan Hasil".

Sekarang klik dua kali pada butang "Hitung". Masukkan kod berikut:

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

Klik dua kali butang "Masukkan Hasil" dan tampal kod:

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

Masukkan Kawalan ke Halaman 2

Klik pada halaman “Kenaikan / Penurunan mengikut Peratusan" Kemudian buat lima label, tiga kotak teks dan dua butang arahan. Masukkan mengikut urutan berikut:
Seterusnya menetapkan sifat kawalan.
- Klik pertama pada label 1. Tetapkan kapsyen sebagai "Kenaikan / Penurunan dengan Peratusan".
- Kemudian klik pada label 2. Tetapkan kapsyen sebagai "Jumlah".
- Klik pada label 3. Tetapkan kapsyen sebagai "Naik / Turunkan oleh".
- Dan klik pada label4. Tetapkan kapsyen sebagai “%".
- Klik pada label 5. Tetapkan kapsyen sebagai "Hasil:".
- Klik seterusnya pada kotak teks 1. Namakan sebagai "txtAmount".
- Dan klik pada kotak teks 2. Namakan sebagai "txtIncreaseOrDecreaseByPercentage".
- Klik pada kotak teks 3. Namakan sebagai "txtResult", dan tetapkan warna latar sebagai "Sorotan".
- Kemudian klik pada butang 1. Namakan sebagai "btnCalculateIncreasedOrDecreasedAmount", dan tetapkan kapsyen sebagai "Kira".
- Klik pada butang 2. Namakan sebagai "btnInsertValue", dan tetapkan kapsyen sebagai "Insert Result".

Tetapkan fon, warna latar dan sifat lain jika perlu.

Kemudian klik dua kali butang "Kira" dan masukkan kod ini:

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

Dan klik dua kali butang "Masukkan Hasil" dan kod input:

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

Masukkan Kawalan ke Halaman 3

Pertama, klik pada halaman “Perubahan Peratusan ”. Seterusnya buat empat label, tiga kotak teks dan dua butang arahan. Susun mengikut urutan berikut:
Seterusnya pergi untuk menetapkan sifat kawalan.

Klik pertama pada label 1. Tetapkan kapsyen sebagai "Perubahan Peratusan".
Kemudian klik pada label 2. Tetapkan kapsyen sebagai "Dari Nilai".
Klik seterusnya pada label 3. Tetapkan kapsyen sebagai "Untuk Nilai".
Klik pada label 4. Tetapkan kapsyen sebagai "Hasil:".
Klik seterusnya pada kotak teks 1. Namakannya sebagai "txtFromValue".
Dan klik pada kotak teks 2. Namakannya sebagai "txtToValue".
Klik pada kotak teks 3. Namakan sebagai "txtPercentageChange" dan tetapkan warna latar sebagai "Sorotan".
Dan klik pada butang 1. Namakan sebagai "btnCalculatePercentageChange", dan tetapkan kapsyen sebagai "Kira".
Klik pada butang 2. Namakan sebagai "btnInsertPercentageChange", dan tetapkan kapsyen sebagai "Masukkan Hasil".

Kemudian klik dua kali butang "Kira" dan tampal kod ini:

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

Klik dua kali pada butang "Masukkan Hasil" dan tampal kod:

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

Masukkan Kawalan ke Halaman 4

Untuk bermula, klik pada halaman "Pilihan% Perubahan" Kemudian buat dua label, tiga kotak teks, dan satu butang. Dan susunkannya:
Kedua, tetapkan sifat kawalan.

Klik pertama pada label 1. Tetapkan kapsyen sebagai "Seleksi% Perubahan".
Klik seterusnya pada label 2. Tetapkan kapsyen sebagai "%".
Kemudian klik pada kotak teks 1. Namakannya sebagai "txtDescription". Masukkan teks deskriptif berikut:

Pilih nilai dalam dokumen, kemudian tetapkan nilai peratusan (tambahkan “-” jika negatif) yang ingin Anda tambah atau turun hingga.

Kemudian klik pada kotak teks 2. Namakannya sebagai "txtPercentageValue".
Klik seterusnya pada kotak teks 3. Namakannya sebagai "txtNote". Dan masukkan nota berikut:

Catatan: Perkara ini tidak boleh dibuat asal. Pastikan anda telah menyimpan dokumen anda sebelum melakukan tindakan ini.

Dan klik pada butang. Namakan sebagai "btnChangeSelectedValue", dan tetapkan kapsyen sebagai "Ubah Nilai Terpilih". Serlahkan latar belakang.

Ketiga, klik dua kali pada butang “Change Selected Value” dan masukkan kod:

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

Masukkan Butang Perintah ke dalam Borang Pengguna

Pilih "CommandButton" dari "Toolbox" dan buat satu di borang pengguna.
Kemudian namakan butang sebagai "btnClose".
Tetapkan teks kapsyen sebagai "Tutup".
Seterusnya klik dua kali butang dan masukkan kod:

Private Sub btnClose_Click()
  Unload Me
End Sub

Masukkan Modul

Klik "Normal".
Kemudian klik "Sisipkan" pada bar alat dan pilih "Modul".
Klik dua kali untuk membukanya dan tampal kod berikut di sana:

Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Simpan kod dan tetapkan butang untuk makro "CallPercentageCalculator". Untuk langkah terperinci, anda boleh merujuk artikel ini: Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda

Berikut adalah demonstrasi penggunaan kalkulator:

Perhatikan Masalah Firman Anda

Sekiranya Firman anda menunjukkan tanda-tanda rasuah, anda mesti segera menyandarkan dokumen berharga anda. Tanda-tanda tidak normal menunjukkan ada yang tidak kena dengan perisian. Oleh itu, kami mencadangkan anda menggunakan alat untuk memulihkan perkataan.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com