Как сделать калькулятор процентов в Word через VBA

Словесные решения 28 сентября, 2025
Поделись сейчас:

В этом пost, есть подробные инструкции по созданию процентного калькулятора в Word с помощью редактора VBA.

Документ Word может содержать много чисел, например, отчет о продажах. Тогда вам может показаться такой головной болью, чтобы иметь дело с вычислением процентов. Поэтому мы хотим предложить вам способ самостоятельно построить калькулятор процентов в Word.       Сделать процентный калькулятор в Word

Вставьте форму пользователя

  1. Во-первых, запустите редактор VBA в Word с помощью «Alt + F11».
  2. Затем нажмите «Вставить» и выберите «Пользовательская форма».
  3. Затем нажмите «F4», чтобы открыть «Окно свойств» в левом нижнем углу.
  4. Назовите форму как «frmPercentageCalculator».
  5. И установите «ShowModal» как «False». Соответственно установите другие свойства, например фон.
  6. Затем нажмите «Просмотр» и выберите «Панель инструментов».
  7. В «Панель инструментов» щелкните элемент управления «Многостраничный».Нажмите «Вид» -> выберите «Панель инструментов» -> нажмите «Многостраничный».
  8. Отрегулируйте размер элемента управления. Сначала вы можете увидеть «Страница 1» и «Страница 2». Щелкните правой кнопкой мыши «Страница 2» и выберите «Новая страница», чтобы получить «Страница 3» и «Страница 4».
  9. Щелкните правой кнопкой мыши «Страница 1» и выберите «Переименовать».Переименовать страницу
  10. Переименуйте страницу 1 как «Процент (какой %)", стр. 2 как "Увеличение/уменьшение на процент", стр. 3 как "Изменение в процентах», а на странице 4 как «Выбор % Изменение».

Вставьте элементы управления на страницу 1

  1. Теперь нажмите на страницу «Процент (какой %)”. Создайте четыре метки, три текстовых поля и 2 командные кнопки. Расположите их в следующем порядке:Создайте четыре метки, три текстовых поля и две командные кнопки
  2. Далее задайте свойства управления.
  • Сначала нажмите на метку 1. Установите заголовок как «Процент (какой % от)». Установите шрифт и цвет фона по своему усмотрению.
  • Затем нажмите на метку 2. Установите заголовок как «какой процент от».
  • Нажмите на метку 3. Установите заголовок как «?».
  • И нажмите на метку 4. Установите заголовок как «Результат:».
  • Затем щелкните текстовое поле 1. Назовите его как «txtNumerator». И установите шрифт правильно.
  • Нажмите на текстовое поле 2. Назовите его как «txtDenominator».
  • Нажмите на текстовое поле 3. Назовите его как «txtPercentage». Выберите «Highlight» для «BackColor».
  • И нажмите на кнопку 1. Назовите его как «btnCalculate». Сделайте заголовок «Рассчитать»..
  • Нажмите на кнопку 2. Назовите его как «btnInsertResult». И установите заголовок как «Вставить результат».
  1. Теперь дважды щелкните по кнопке «Рассчитать». Введите следующие коды:
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
  1. Дважды щелкните кнопку «Вставить результат» и вставьте коды:
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» и установите заголовок «Рассчитать».
    • Нажмите кнопку 2. Назовите ее «btnInsertValue» и установите заголовок «Вставить результат».

При необходимости установите шрифт, цвет фона и другие свойства.

  1. Затем дважды нажмите кнопку «Рассчитать» и введите следующие коды:
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
  1. И дважды щелкните кнопку «Вставить результат» и введите коды:
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» и установите заголовок «Рассчитать»..
  • Нажмите на кнопку 2. Назовите его как «btnInsertPercentageChange» и установите заголовок как «Вставить результат»..
  1. Затем дважды щелкните кнопку «Рассчитать» и вставьте эти коды:
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
  1. Дважды щелкните кнопку «Вставить результат» и вставьте коды:
Private Sub btnInsertPercentageChange_Click()
  Selection.InsertAfter frmPercentageCalculator.txtPercentageChange.Text
End Sub

Вставьте элементы управления на страницу 4

  1. К start off, нажмите на страницу “Выбор % Изменение». Затем создайте две метки, три текстовых поля и одну кнопку. И расположите их в таком порядке:Создайте две метки, три текстовых поля и одну кнопку
  2. Во-вторых, установите свойства управления.
  • Сначала нажмите на метку 1. Установите заголовок как «Изменение выбора %».
  • Затем нажмите на метку 2. Установите заголовок как «%».
  • Затем нажмите на текстовое поле 1. Назовите его как «txtDescription».. Введите следующий описательный текст:

Выберите значение в документе, затем установите процентное значение (добавьте «-», если оно отрицательное), на которое вы хотите увеличить или уменьшить.

  • Затем нажмите на текстовое поле 2. Назовите его как «txtPercentageValue»..
  • Затем щелкните текстовое поле 3. Назовите его как «txtNote».. И введите следующее примечание:

Примечание. Это действие нельзя отменить. Перед выполнением этого действия убедитесь, что вы сохранили документ.

  • И нажимаем на кнопку. Назовите его как «btnChangeSelectedValue» и установите заголовок как «Изменить выбранное значение». Выделите фон.
  1. В-третьих, дважды щелкните кнопку «Изменить выбранное значение» и введите коды:
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. Выберите «CommandButton» из «Toolbox» и создайте его в пользовательской форме.
  2. Затем назовите кнопку «btnClose».
  3. Установите текст заголовка как «Закрыть».Создайте кнопку закрытия для пользовательской формы
  4. Далее дважды нажмите на кнопку и введите коды:
Private Sub btnClose_Click()
  Unload Me
End Sub

Вставить модуль

  1. Нажмите «Обычный».
  2. Затем нажмите «Вставить» на панели инструментов и выберите «Модуль».Нажмите «Обычный» -> нажмите «Вставить» -> нажмите «Модуль».
  3. Дважды щелкните, чтобы открыть его, и вставьте туда следующие коды:
Sub CallPercentageCalculator()
  frmPercentageCalculator.Show
End Sub

Сохраните коды и назначьте кнопку макросу «CallPercentageCalculator». Подробные инструкции можно найти в этой статье: Как удалить форматирование вставленных текстов с помощью макроса и VBA в вашем Word

Вот демонстрация использования калькулятора:

Следите за своими словами

Если в вашем Word есть какие-либо признаки повреждения, вы должны немедленно создать резервную копию своих ценных документов. Ненормальные признаки указывают на то, что с программным обеспечением что-то не так. Поэтому мы предлагаем вам использовать инструмент для восстановить слово.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.