كيفية تنسيق مربع نص كنسبة مئوية في 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؟
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
