Як відформатувати текстове поле у ​​відсотках у Excel?

У попередній статті ми обговорювали метод VBA форматування числа в текстовому полі як валюти в Excel. У цій статті ми поговоримо про форматування числа в текстовому полі у відсотках у програмі Excel за допомогою методу VBA.

Відформатуйте текстове поле у ​​відсотках за допомогою коду VBA

Відформатуйте текстове поле у ​​відсотках за допомогою коду VBA

Будь ласка, виконайте наступні дії, щоб відформатувати текстове поле у ​​відсотках за допомогою коду VBA.

1. клацання Розробник > Insert > Текстове поле (керування 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. клацання Tools > посилання. Потім перевірте Регулярні вирази Microsoft VBScript коробка в Посилання - VBAProject і натисніть на OK кнопку. Дивіться знімок екрана:

5 Натисніть кнопку інший + Q клавіші для виходу з Microsoft Visual Basic для додатків вікна.

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

Відтепер, при введенні чисел у текстове поле та переміщенні курсору за текстове поле, щоб клацнути будь-яку клітинку, ці числа будуть автоматично відформатовані у відсотках.

Статті по темі:

• Як відформатувати текстове поле як валюту в Excel?
• Як автоматично вибрати текст текстового поля, коли він виділений в Excel?
• Як автозавершити текстове поле під час набору тексту в Excel?
• Як об’єднати тексти декількох комірок у текстове поле в Excel?
• Як вимкнути редагування в текстовому полі, щоб запобігти введенню користувачем в Excel?