如何通过 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。 将标题设置为“From Value”.
• 接下来单击标签 3。 将标题设置为“To Value”.
• 单击标签 4。 将标题设置为“结果：”.
• 接下来单击文本框 1。 将其命名为“txtFromValue“。
• 然后单击文本框 2。 将其命名为“txtToValue“。
• 单击文本框 3。 将其命名为“txtPercentageChange”并将背景颜色设置为“Highlight”.
• 然后点击按钮 1。 将其命名为“btnCalculatePercentageChange”，并将标题设置为“计算”.
• 单击按钮 2。 将其命名为“btnInsertPercentageChange”，并将标题设置为“Insert Result”.

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。 将标题设置为“Selection % Change”.
• 接下来单击标签 2。 将标题设置为“%”.
• 然后单击文本框 1。 将其命名为“txtDescription”. 输入以下描述性文字：

在文档中选择一个值，然后设置您希望增加或减少的百分比值（如果为负则添加“-”）。

• 然后单击文本框 2。 将其命名为“txtPercentageValue”.
• 接下来单击文本框 3。 将其命名为“txtNote”. 并输入以下注释：

注意：此操作无法撤消。 在执行此操作之前，请确保您已保存文档。

• 然后点击按钮。 将其命名为“btnChangeSelectedValue”，并将标题设置为“Change Selected Value”。 突出背景。

3. 第三，双击“Change Selected Value”按钮并输入代码：

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