如何在 Excel 中將文字方塊格式化為百分比？

在之前的文章中，我們介紹了如何在 Excel 中將文字方塊中的數字格式化為貨幣。這次，我們將探討如何將文字方塊中的數字格式化為百分比。使用 VBA，您可以確保輸入到文字方塊中的任何數字都會自動格式化為百分比，從而實現一致的數據呈現。

使用 VBA 程式碼將文字方塊條目格式化為百分比

使用 VBA 程式碼將文字方塊條目格式化為百分比

請按照以下步驟使用 VBA 程式碼將文字方塊格式化為百分比。

1. 點擊「開發工具」>「插入」>「文字方塊 (ActiveX 控制項)」以將文字方塊插入工作表。參見截圖：

2. 右鍵點擊文字方塊，然後從快捷選單中點擊「檢視程式碼」。

3. 在打開的「Microsoft Visual Basic for Applications」窗口中，請將代碼窗口中的原始程式碼替換為以下 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. 點擊「工具」>「引用」。然後在「引用 - VBAProject」對話框中勾選「Microsoft VBScript Regular Expressions」框，並點擊「確定」按鈕。參見截圖：

5. 按下「Alt」+「Q」鍵退出「Microsoft Visual Basic for Applications」窗口。

6. 返回工作表時，請再次點擊「開發工具」>「設計模式」以關閉設計模式。

從現在開始，當您向文字方塊輸入數字並將游標移出以點擊任何單元格時，這些數字將自動格式化為百分比。

相關文章：

• 如何在 Excel 中將文字方塊格式化為貨幣？
• 如何在 Excel 中選擇文字方塊時自動選擇其文本？
• 如何在 Excel 中輸入時自動完成文字方塊？
• 如何在 Excel 中將多個單元格的文本合併到一個文字方塊中？
• 如何在 Excel 中禁用文字方塊編輯以防止用戶輸入？