Как отформатировать текстовое поле в процентах в Excel?

В предыдущей статье мы рассмотрели, как форматировать числа в текстовом поле как валюту в Excel. На этот раз мы рассмотрим форматирование чисел в текстовом поле как процентов. Используя VBA, вы можете гарантировать, что любое число, введенное в текстовое поле, будет автоматически отформатировано как процент для согласованного представления данных.

Форматирование записей текстового поля в виде процентов с помощью кода VBA

Форматирование записей текстового поля в виде процентов с помощью кода VBA

Выполните следующие действия, чтобы отформатировать текстовое поле в процентах с помощью кода VBA.

1. Нажмите Застройщик > Вставить > Текстовое поле (элемент управления ActiveX) чтобы вставить текстовое поле в рабочий лист. Смотрите скриншот:

2. Щелкните текстовое поле правой кнопкой мыши, затем щелкните Просмотреть код из контекстного меню.

3. В дебюте Microsoft Visual Basic для приложений В окне кода замените исходный код в окне кода приведенным ниже кодом VBA.

Код VBA: форматирование текстового поля в процентах в Excel

Private Sub TextBox1_LostFocus()
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xText As String
    Dim xReplace As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xText = Me.TextBox1.Text
    xText = Replace(xText, "%", "")
    With xReg
        .Global = True
        .Pattern = "([^0-9]+\d+)|(\d{1,})"
        Set xMatches = .Execute(xText)
        For Each xMatch In xMatches
            xReplace = xReplace & xMatch.Value & "%"
        Next
    End With
    xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
    Me.TextBox1.Text = xText
    Application.ScreenUpdating = True
End Sub

Внимание: Заменить TextBox1 с именем текстового поля, которое вы используете.

4. Нажмите Инструменты > Рекомендации. Затем проверьте Регулярные выражения Microsoft VBScript коробка в Ссылки - VBAProject диалоговое окно и щелкните OK кнопка. Смотрите скриншот:

5. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

6. Когда он вернется к рабочему листу, нажмите Застройщик > Режим проектирования снова, чтобы выключить режим дизайна.

С этого момента, когда вы вводите числа в текстовое поле и выводите курсор из него, чтобы щелкнуть любую ячейку, числа будут автоматически форматироваться как проценты.

Статьи по теме:

• Как отформатировать текстовое поле как валюту в Excel?
• Как автоматически выбрать текст текстового поля, когда он выбран в Excel?
• Как автозаполнить текстовое поле при вводе в Excel?
• Как объединить тексты из нескольких ячеек в текстовое поле в Excel?
• Как отключить редактирование в текстовом поле, чтобы пользователь не вводил данные в Excel?