كيف يمكن تنسيق مربع نص ليعرض القيمة كنسبة مئوية في Excel؟
في مقالٍ سابق، تناولنا كيفية تنسيق الأرقام في مربع النص كعملة في Excel. أما في هذا المقال، فسنستعرض كيفية تنسيق الأرقام في مربع النص كنسب مئوية. وباستخدام VBA، يمكنك ضمان تنسيق أي رقم يُدخل في مربع النص تلقائيًا كنسبة مئوية، مما يضمن عرض البيانات بشكلٍ متسق واحترافي.
تنسيق إدخالات مربع النص كنسب مئوية باستخدام كود VBA
تنسيق إدخالات مربع النص كنسب مئوية باستخدام كود VBA
اتبع هذه الخطوات لتنسيق مربع النص كنسبة مئوية باستخدام كود VBA.
1. انقر على «المطور» > «إدراج» > «مربع نص (عنصر تحكم ActiveX)» لإدراج مربع نص في ورقة العمل. راجع لقطة الشاشة:
2. انقر بزر الماوس الأيمن على مربع النص، ثم اختر «عرض الكود» من القائمة المنبثقة.
3. في نافذة «مايكروسوفت فيجوال بيسك للتطبيقات» التي تفتح، يُرجى استبدال الكود الأصلي في نافذة الكود بالكود التالي من 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 Regular Expressions» في مربع حوار «المراجع – VBAProject»، ثم انقر على زر «موافق». راجع لقطة الشاشة:
5. اضغط على مفتاحي «Alt» + «Q» للخروج من نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».
6. عند العودة إلى ورقة العمل، يُرجى النقر مرة أخرى على «المطور» > «وضع التصميم» لإيقاف تشغيل وضع التصميم.
ابتداءً من الآن، عند إدخال أرقام في مربع النص ثم النقر على أي خلية لنقل المؤشر خارجه، سيتم تنسيق الأرقام تلقائيًا كنسب مئوية.
مقالات ذات صلة:
- كيف يمكن تنسيق مربع نص ليظهر كقيمة عملة في Excel؟
- كيف يمكن جعل Excel يحدد تلقائيًا محتوى مربع النص بمجرد تحديده؟
- كيف يمكن إكمال مربع النص تلقائيًا أثناء الكتابة في Excel؟
- كيف تدمج محتويات خلايا متعددة في مربع نص واحد في Excel؟
- كيف يمكن تعطيل التعديل في مربع النص لمنع المستخدم من الإدخال في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل