كيفية تنسيق مربع نص كنسبة مئوية في 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؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
