كيف يمكن عد فواصل الأسطر داخل خلية في Excel؟
إذا كانت المحتويات طويلة جدًّا بحيث لا تتّسع داخل الخلية، فغالبًا ما نستخدم فواصل الأسطر لعرضها بالكامل داخل الخلية، كما يظهر في لقطة الشاشة أدناه. هل سبق أن حاولت عدّ عدد فواصل الأسطر في خلية؟
عد فواصل الأسطر في خلية باستخدام صيغة
عد فواصل الأسطر في خلية باستخدام VBA
عد فواصل الأسطر في خلية باستخدام صيغة
لإزالة فواصل الأسطر في خلية، جرّب هذه الصيغة.
اختر خلية بجانب النص الذي تريد عد فواصل الأسطر فيه، ثم اكتب=LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(10),«»)) واضغط مفتاحEnter. انظر لقطة الشاشة:
ملاحظة:
1. إذا كنت تعمل على نظام Mac، جرّب هذه الصيغة:=LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(13),«»))
2. تُعَدّ الصيغ أعلاه فاصل سطر يدويًا فقط.
عد فواصل الأسطر في خلية باستخدام VBA
فيما يلي كود VBA القادر على عد فواصل الأسطر داخل خلية في Excel.
1. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ الكود والصقه في الوحدة النمطية.
VBA: عدّ فاصل سطر يدوي
Public Sub CountLines()
'UpdatebyExtendoffice20171222
Dim xStrLen As Double
Dim xChrLen As Double
With Range("A2")
xStrLen = Len(.Text)
xChrLen = Len(Replace(.Text, Chr(10), ""))
End With
MsgBox "There are " & xStrLen - xChrLen & " line breaks"
End
3. اضغط على مفتاحF5، وستظهر لك نافذة منبثقة تُخبرك بعدد فواصل الأسطر.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل