如何在Excel中将文本框设置为百分比格式？

在上一篇文章中，我们讨论了将文本框中的数字格式化为Excel中的货币的VBA方法。 在本文的本文中，我们还将讨论使用VBA方法在Excel中以百分比形式设置文本框中的数字格式。

使用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中输入？