如何通過 VBA 在你的 Word 中製作百分比計算器

在這個post，其中有詳細的步驟供您使用VBA編輯器在Word中製作百分比計算器。

Word 文檔可以包含很多數字，例如銷售報告。 那麼你可能會發現處理百分比計算很頭疼。 因此，我們希望為您提供在 Word 中自行構建百分比計算器的方法。       

插入用戶表格

1. 首先，在 Word 中使用“Alt+ F11”觸發 VBA 編輯器。
2. 然後單擊“插入”並選擇“用戶窗體”。
3. 接下來按“ F4”打開左下角的“屬性窗口”。
4. 將表單命名為“ frmPercentageCalculator”。
5. 並將“ ShowModal”設置為“ False”。 相應地設置其他屬性，例如背景。
6. 接下來單擊“查看”並選擇“工具箱”。
7. 在“工具箱”上，單擊“多頁”控件。
8. 調整控件大小。 首先，您可以看到“Page1”和“Page2”。 右鍵單擊“ Page2”，然後選擇“新建頁面”以獲取“ Page3”和“ Page4”。
9. 右鍵單擊“Page1”並選擇“重命名”。
10. 將第1頁重命名為“百分比（佔什麼百分比）”，第 2 頁為“按百分比增加/減少”，第 3 頁為“百分比變化”，第 4 頁為“選擇百分比變化“。

將控件插入頁面1

1. 現在點擊“百分比（佔什麼百分比）”。 創建四個標籤、三個文本框和 2 個命令按鈕。 將它們按以下順序排列：
2. 接下來設置控件屬性。

• 首先單擊標籤 1。 將標題設置為“百分比（什麼百分比）”. 根據需要設置字體和背景顏色。
• 然後單擊標籤 2。 將標題設置為“是什麼百分比”.
• 點擊標籤3。 將標題設置為“？”“。
• 然後單擊標籤 4。 將標題設置為“結果：“。
• 接下來單擊文本框 1。 將其命名為“txtNumerator”。 並正確設置字體。
• 單擊文本框 2。 將其命名為“txtDenominator“。
• 單擊文本框 3。 將其命名為“ txtPercentage””。 為“BackColor”選擇“Highlight”。
• 然後單擊按鈕1。 將其命名為“btnCalculate“。 將標題設置為“計算”.
• 單擊按鈕 2。 將其命名為“btnInsertResult”。 和 將標題設置為“插入結果“。

3. 現在雙擊“計算”按鈕。 輸入以下代碼：

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. 雙擊“插入結果”按鈕並粘貼代碼：

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

將控件插入頁面2

1. 點擊頁面“按百分比增加/減少”。 然後創建五個標籤，三個文本框和兩個命令按鈕。 將它們按以下順序排列：
2. 接下來設置控件屬性。
   • 首先單擊標籤 1。 將標題設置為“按百分比增加/減少“。
   • 然後單擊標籤 2。 將標題設置為“金額“。
   • 點擊標籤3。 將標題設置為“增加/減少“。
   • 然後點擊label4。 將標題設置為“%“。
   • 點擊標籤5。 將標題設置為“結果：“。
   • 接下來單擊文本框 1。將其命名為“txtAmount”。
   • 然後單擊文本框 2。將其命名為“txtIncreaseOrDecreaseByPercentage”。
   • 單擊文本框 3. 將其命名為“txtResult”，並將背景顏色設置為“Highlight”。
   • 然後單擊按鈕 1。將其命名為“btnCalculateIncreasedOrDecreasedAmount”，並將標題設置為“Calculate”。
   • 單擊按鈕 2。將其命名為“btnInsertValue”，並將標題設置為“Insert Result”。

如有必要，設置字體，背景色和其他屬性。

3. 然後雙擊“計算”按鈕並輸入這些代碼：

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. 並雙擊“插入結果”按鈕並輸入代碼：

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

將控件插入頁面3

1. 首先，點擊頁面“百分比變化”。 接下來創建四個標籤、三個文本框和兩個命令按鈕。 按以下順序排列它們：
2. 接下來去設置控件屬性。

• 首先單擊標籤 1。 將標題設置為“百分比變化”.
• 然後單擊標籤 2。 將標題設置為“來自值”.
• 接下來單擊標籤3。 將標題設置為“To Value”.
• 點擊標籤4。 將標題設置為“結果：”.
• 接下來單擊文本框 1。 將其命名為“txtFromValue“。
• 然後單擊文本框 2。 將其命名為“txtToValue“。
• 單擊文本框 3。 將其命名為“txtPercentageChange”並將背景顏色設置為“Highlight”.
• 然後單擊按鈕1。 將其命名為“btnCalculatePercentageChange”，並將標題設置為“Calculate”.
• 單擊按鈕 2。 將其命名為“btnInsertPercentageChange”，並將標題設置為“插入結果”.

3. 然後雙擊“計算”按鈕並粘貼這些代碼：

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. 雙擊“插入結果”按鈕並粘貼代碼：

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

將控件插入頁面4

1. 到tart關閉，點擊頁面“選擇百分比變化”。 然後創建兩個標籤、三個文本框和一個按鈕。 並將它們按以下順序排列：
2. 其次，設置控件屬性。

• 首先單擊標籤 1。 將標題設置為“選擇百分比變化”.
• 接下來單擊標籤2。 將標題設置為“%”.
• 然後單擊文本框1。 將其命名為“txtDescription”. 輸入以下描述性文本：

在文檔中選擇一個值，然後設置您希望增加或減少的百分比值（如果它是負數，請添加“-”）。

• 然後單擊文本框2。 將其命名為“txtPercentageValue”.
• 接下來單擊文本框 3。 將其命名為“txtNote”. 並輸入以下註釋：

注意：此操作無法撤消。 在執行此操作之前，請確保您已保存文檔。

• 並點擊按鈕。 將其命名為“btnChangeSelectedValue”，並將標題設置為“Change Selected Value”。 突出背景。

3. 第三，雙擊“更改所選值”按鈕並輸入代碼：

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

將命令按鈕插入用戶表單

1. 從“工具箱”中選擇“命令按鈕”並在用戶表單上創建一個。
2. 然後將按鈕命名為“btnClose”。
3. 將標題文本設置為“關閉”。
4. 接下來雙擊按鈕並輸入代碼：

Private Sub btnClose_Click()
  Unload Me
End Sub

插入模塊

1. 點擊“正常”。
2. 然後單擊工具欄上的“插入”並選擇“模塊”。
3. 雙擊打開它並粘貼以下代碼：

Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

保存代碼並為宏“CallPercentageCalculator”分配一個按鈕。 詳細步驟可以參考這篇文章： 如何刪除Word中帶有宏和VBA的粘貼文本的格式

以下是使用計算器的演示：

注意你的話問題

如果您的 Word 出現任何損壞跡象，您必須立即備份您的寶貴文檔。 異常跡象表明軟件有問題。 因此，我們建議您使用工具 恢復單詞.

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復xlsx 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM