كيفية تنسيق مربع نص كنسبة مئوية في 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؟