كيفية تنسيق مربع نص كنسبة مئوية في Excel؟

في المقالة السابقة ، ناقشنا طريقة VBA لتنسيق الرقم في مربع نص كعملة في Excel. هنا في هذه المقالة ، سنتحدث عن رقم التنسيق في مربع نص كنسبة مئوية في Excel باستخدام طريقة VBA أيضًا.

تنسيق مربع نص كنسبة مئوية مع رمز VBA

تنسيق مربع نص كنسبة مئوية مع رمز VBA

يرجى القيام بما يلي لتنسيق مربع نص كنسبة مئوية برمز VBA.

1. انقر المطور > إدراج > مربع نص (عنصر تحكم ActiveX) لإدراج مربع نص في ورقة العمل. انظر لقطة الشاشة:

2. انقر بزر الماوس الأيمن فوق مربع النص ، ثم انقر فوق عرض الرمز من قائمة السياق.

3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، يرجى استبدال الكود الأصلي في نافذة الكود بالرمز أدناه.

كود فبا: تنسيق مربع نص كنسبة مئوية في إكسيل

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 مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

6. عندما يعود إلى ورقة العمل ، الرجاء النقر المطور > وضع التصميم مرة أخرى لإيقاف تشغيل وضع التصميم.

من الآن فصاعدًا ، عند إدخال الأرقام في مربع النص وتحريك المؤشر خارج مربع النص للنقر فوق أي خلية ، سيتم تنسيق هذه الأرقام كنسبة مئوية تلقائيًا.

مقالات ذات صلة:

• كيفية تنسيق مربع نص كعملة في Excel؟
• كيفية تحديد نص مربع نص تلقائيًا عند تحديده في Excel؟
• كيفية الإكمال التلقائي لمربع نص عند الكتابة في Excel؟
• كيف تسلسل نصوص خلايا متعددة في مربع نص في إكسيل؟
• كيفية تعطيل التحرير في مربع النص لمنع إدخال المستخدم في Excel؟