KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكن حساب عدد الأحرف والرموز والحروف الرقمية في الخلية؟

المؤلفسونتاريخ التعديل

عند إدارة البيانات في Excel، غالبًا ما تحتاج إلى تحليل المحتوى النصي للخلايا—مثل حساب العدد الإجمالي للأحرف، أو استخراج الحروف فقط، أو التركيز على الأرقام وحدها. في هذا الدليل، ستتعرّف على تقنيات متنوعة لحساب إجمالي عدد الأحرف، أو عددٍ معيّن من الحروف، أو الأرقام، أو حتى الرموز الخاصة داخل خلية واحدة. وتتميّز كل طريقة بمزاياها الفريدة التي تناسب حالتك الخاصة، بدءًا من الصيغ المباشرة والميزات المضمنة في Excel، وصولًا إلى استخدام VBA والدوال المتقدمة. كما ستجد أدناه حلولًا إضافية لأتمتة المهام المعقدة وتطبيق التنسيق الشرطي بكفاءة.

عدّ عدد الأحرف والحروف والرقم
حساب عدد الأحرف باستخدام دالة LEN
حساب عدد جميع الأحرف باستثناء الأرقام باستخدام دالة LEN
حساب عدد الأرقام فقط باستخدام دالة LEN
حساب عدد الأحرف والأرقام باستخدام دالة
حساب عدد مرات ظهور حرف معين باستخدام دالة COUNTCHAR فكرة جيدة3
VBA: عدّ الأحرف والأرقام وأنواع الأحرف المحددة (الأحرف الكبيرة، الصغيرة) في الخلية
استخدم تنسيق الشروط: تمييز الخلايا التي تتجاوز حدود الأحرف أو الأرقام

احسب عدد الأحرف باستخدام دالة LEN

إذا كنت ترغب في حساب العدد الإجمالي لجميع الأحرف—بما في ذلك الأرقام، والحروف، والفراغات، وكل الرموز الأخرى—في كل خلية، يمكنك استخدام دالة LEN. ويُعدّ هذا مفيدًا في سيناريوهات مثل فرض حدود نصية على حقول النماذج أو إعداد البيانات للاستيراد عندما تكون هناك قيود على عدد الأحرف المسموح بها.

1. اكتب الصيغة التالية في خلية فارغة (على سبيل المثال، في الخلية B1 إذا كانت بياناتك موجودة في الخلية A1):

=LEN(A1)

اضغطEnter، وسيُعرض العدد الإجمالي للأحرف—بما في ذلك المسافات وعلامات الترقيم—في الخلية A1.
عدّ عدد الأحرف باستخدام دالة LEN

2. اسحب مقبض التعبئة لأسفل أو عبر الخلايا لتطبيق الصيغة على خلايا أخرى، مما يمكّنك من حساب عدد الأحرف دفعةً واحدة في كل خلية من قائمتك للتحقق السريع أو المراجعة.
اسحب الصيغة إلى الخلايا الأخرى

لقطة شاشة لـ kutools for excel ai

افتح سحر إكسل مع KUTOOLS AI

  • التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
  • الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
  • برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
  • تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
  • ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

احسب عدد جميع الأحرف باستثناء الأرقام باستخدام دالة LEN

إذا كنت ترغب في حساب عدد الأحرف التي ليست أرقامًا (مثل الحروف وعلامات الترقيم فقط)، فاستخدم النهج التالي. يُعدّ هذا مفيدًا عندما تحتاج إلى استخراج البيانات النصية وتجاهل الأرقام، كما هو الحال في بعض قواعد الامتثال أو الإبلاغ.

اختر خلية فارغة، مثل B1، واكتب هذه الصيغة:

=LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,0,""),1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""))

(استبدل A1 بخلية الهدف الخاصة بك عند الحاجة.) بعد إدخال الصيغة، اضغطEnter، ثم استخدم مقبض التعبئة لنسخ الصيغة إلى باقي النطاق. وسيوفّر لك ذلك عدد جميع الأحرف باستثناء الأرقام في كل خلية.
عدّ عدد جميع الأحرف باستثناء الأرقام

تلميح: إذا واجهت أخطاءً أو نتائج غير متوقعة، فتأكد مجددًا من وجود أحرف مخفية مثل فواصل الأسطر أو مسافة غير قابلة للكسر، إذ قد تؤثر على عدد الأحرف.

احسب عدد الأرقام فقط باستخدام دالة LEN

أحيانًا، قد تحتاج إلى معرفة العدد الدقيق للأرقام الظاهرة في خلية، مع تجاهل جميع الأحرف الأخرى. ويكتسب هذا الأمر أهمية خاصة عند تنظيف البيانات، حيث تريد تحديد الخلايا التي تحتوي على العدد المتوقع من الأرقام، مثل أرقام الهوية أو الرموز.

في خلية فارغة، مثل B1، أدخل الصيغة التالية:

=SUM(LEN(A1)-LEN(SUBSTITUTE(A1,{1,2,3,4,5,6,7,8,9,0},)))

اضغطEnter لحساب الناتج، ثم استخدم مقبض التعبئة لنسخ الصيغة إلى خلايا أخرى حسب الحاجة.
عدّ عدد الأرقام فقط

احسب عدد الحروف والأرقام باستخدام دالة

يقدّم هذا النهج ليس فقط العدّ الإجمالي، بل يحدّد أيضًا ترتيب الحروف والأرقام داخل محتوى الخلية، ما يجعله مثاليًا للتحقق من بنية الرموز، أو أرقام المسلسلات، أو التسلسلات الأبجدية الرقمية المختلطة.

1. اضغط مع الاستمرار على مفتاحALT، ثم اضغطF11 للوصول إلى نافذةMicrosoft Visual Basic for Applications.

2. في محرر VBA، انقر فوقInsert > Module، ثم الصق كود VBA المقدم في نافذة الوحدة.

VBA: احسب عدد الحروف والأرقام باستخدام دالة

Function AlphaNumeric(pInput As String) As String
'Updateby20140303
Dim xRegex As Object
Dim xMc As Object
Dim xM As Object
Dim xOut As String
Set xRegex = CreateObject("vbscript.regexp")
xRegex.Global = True
xRegex.ignorecase = True
xRegex.Pattern = "[^\w]"
AlphaNumeric = ""
If Not xRegex.test(pInput) Then
    xRegex.Pattern = "(\d+|[a-z]+)"
    Set xMc = xRegex.Execute(pInput)
    For Each xM In xMc
        xOut = xOut & (xM.Length & IIf(IsNumeric(xM), "N", "L"))
    Next
    AlphaNumeric = xOut
End If
End Function

3. احفظ كود VBA وأغلق المحرر. أدخل الصيغة=AlphaNumeric(A1) في خلية فارغة (استبدل A1 حسب الحاجة)، ثم اضغطEnter. واستخدم مقبض التعبئة لنسخ الصيغة إلى الخلايا الأخرى حسب الحاجة.
أدخل صيغة لعدّ عدد الحروف والأرقام

تلميحات:

(1) يرمز «L» إلى الحرف، ويرمز «N» إلى الرقم.
(2) لا تعالج هذه الدالة الرموز الخاصة مثل !، @، #، إلخ. إذا كانت سلاسلك تحتوي على مزيج من مجموعات أحرف مختلفة، فكّر في معالجة بياناتك مسبقًا أو استخدام حلول VBA المحدّثة كما هو موضّح في الأقسام اللاحقة.

احسب عدد مرات ظهور حرف معيّن باستخدام دالة COUNTCHAR

إذا كان عملك يتضمّن حساب عدد مرات ظهور حرف معيّن (مثل «n» أو أي رمز أو حرف آخر) في سلسلة نصية، فاستخدم دالةKutools لـ ExcelCOUNTCHAR التي تبسّط هذه المهمة عبر واجهة سهلة الاستخدام! إنها الحل المثالي عندما تحتاج إلى إجراء هذه الحسابات بشكل متكرر أو عندما تريد تقليل الاعتماد على الصيغ اليدوية.

Kutools لـ Excelيقدّم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة.مدمج مع إمكانات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة بلا جهد.معلومات تفصيلية عن Kutools لـ Excel...         نسخة تجريبية مجانية...

بعد تثبيتKutools لـ Excel، اتبع الخطوات التالية:（تنزيل مجاني Kutools لـ Excel الآن!)

1. أدخل الحرف الذي ترغب في حسابه في خلية.
اكتب الحرف المراد عدّه

2. اختر خلية فارغة للنتيجة، ثم انقر فوقKutools > الوظائف المحسّنة > Statistical & Math > COUNTCHAR.
انقر على ميزة COUNTCHAR من kutools

3. في مربّع حوارFunction Arguments، حدد خلية النص المصدر فيWithin_text، وخلية الحرف فيFind_text. ستظهر نتيجة العدّ فورًا.
حدّد مراجع الخلايا في مربع الحوار

4. انقر فوقOK، وستظهر النتيجة في الخلية المحددة.

احصل على النتيجة بواسطة kutools

في الوظائف المحسّنة، يمكنك أيضًا تلخيص البيانات أو التعامل معها بناءً على لون الخلفية أو لون الخط، وإجراء تحويلات سريعة للبيانات الزمنية لمزيد من الراحة، مما يُسهّل عليك تبسيط العمليات المعقدة في Excel.

  احسب عدد مرات ظهور حرف معيّن في سلسلة نصية

 

VBA: احسب عدد الحروف والأرقام وأنواع الأحرف المعيّنة (الأحرف الكبيرة، الصغيرة) في الخلية

هذه الطريقة مثالية عندما تحتاج إلى عدٍّ قابل للتخصيص بدرجة عالية—مثل التمييز بين الحروف الكبيرة والصغيرة، أو عزل الرموز، أو الأرقام، أو حتى المسافات البيضاء. وهي الخيار الأمثل للمراجعات الدقيقة، أو عمليات التحقق المعقدة من صحة البيانات، أو عند تحليل اتساق البيانات عبر مجموعات بيانات ضخمة.

1. انقر فوق **Developer** > **Visual Basic** لفتح محرر VBA، ثم اختر **Insert** > **Module** والصق الكود التالي في الوحدة:

Function CountCharType(cell As Range, Mode As String) As Long
    Dim i As Integer
    Dim s As String
    Dim res As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    s = cell.Value
    Mode = LCase(Mode)
    res = 0
    
    For i = 1 To Len(s)
        Select Case Mode
            Case "letter"
                If Mid(s, i, 1) Like "[A-Za-z]" Then
                    res = res + 1
                End If
            Case "number"
                If Mid(s, i, 1) Like "[0-9]" Then
                    res = res + 1
                End If
            Case "uppercase"
                If Mid(s, i, 1) Like "[A-Z]" Then
                    res = res + 1
                End If
            Case "lowercase"
                If Mid(s, i, 1) Like "[a-z]" Then
                    res = res + 1
                End If
            Case "space"
                If Mid(s, i, 1) = " " Then
                    res = res + 1
                End If
            Case "symbol"
                If Not (Mid(s, i, 1) Like "[A-Za-z0-9 ]") Then
                    res = res + 1
                End If
        End Select
    Next
    
    CountCharType = res
End Function

2. في ورقة العمل الخاصة بك، استخدم صيغة في خلية فارغة مثل=CountCharType(A1, "uppercase"). يمكنك أيضًا استخدام"letter"،"number"،"lowercase"،"space"، أو"symbol" للحصول على عدّ معيّن. اضغط Enter، ثم اسحب الصيغة لأسفل لتطبيقها على الصفوف الأخرى عند الحاجة.

استخدم تنسيق الشروط: تمييز الخلايا التي تتجاوز عتبات الأحرف أو الأرقام

يمكنك استخدام التنسيق الشرطي لتمييز الخلايا بصريًّا التي تستوفي معايير معيّنة بناءً على عدد الأحرف، مثل تمييز الإدخالات الأطول من عدد معيّن من الأحرف أو تلك التي تحتوي على أكثر من عدد معيّن من الأرقام. ويُعدّ هذا مفيدًا جدًّا في مراقبة الجودة، أو مراجعة ردود الاستبيانات، أو إنشاء تحذيرات حول الإدخالات غير الصالحة، أو فحص البيانات المستوردة.

على سبيل المثال، لتمييز جميع الخلايا التي يتجاوز عدد أحرفها 18:

1. حدد النطاق الذي ترغب في تحليله (مثل A1:A100).

2. انقر فوقHome > استخدم تنسيق الشروط > New Rule.

3. اخترUse a formula to determine which cells to format، ثم أدخل هذه الصيغة:

=LEN(A1)>18

4. انقر فوقFormat، واختر نمط التمييز، ثم انقر فوقOK للتطبيق. الآن، ستبرز الخلايا إذا تجاوز محتواها 18 حرفًا.

وبالمثل، يمكنك إعداد قاعدة لتمييز الخلايا التي تحتوي على أكثر من 5 أرقام (أرقام):

=SUMPRODUCT(--ISNUMBER(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789")))>5

أدخل هذا كصيغة باستخدام تنسيق الشرط. استبدل5 بحد عتبة آخر حسب الحاجة. هذه الطريقة مثالية للحصول على مراقبة بصرية وتغذية راجعة فورية في القوائم الكبيرة.

ملاحظة: لا يعرض استخدام تنسيق الشروط أرقامًا بشكل مباشر، لكنه ممتاز لمراجعة البيانات ومهمات ضمان الجودة.

يتيح لك تطبيق هذه الحلول ودمجها إجراء تحليلات نصية بسيطة ومتقدمة مباشرةً داخل Excel. عند العمل مع بيانات متعددة اللغات أو خلايا تحتوي أحرفًا غير قياسية، قد تختلف النتائج—خاصةً إذا احتوت على أحرف Unicode خاصة أو مسافات بيضاء غير متوقعة. وللتحليل الديناميكي أو المهام المتكررة، يُوصى بحفظ الصيغ المتقدمة أو كود VBA في مصنف ماكرو شخصي خاص بك.

مقالات ذات صلة:

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل