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

Author Siluvia Last modified 2025-08-23

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

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

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

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

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

A screenshot showing how to insert a Text Box (ActiveX Control) in Excel

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

A screenshot of the context menu with View Code selected for a textbox in Excel

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」框，並點擊「確定」按鈕。參見截圖：

A screenshot of the References dialog box in VBA with Microsoft VBScript Regular Expressions selected

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

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

A screenshot showing the Design Mode option in the Developer tab in Excel

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多