كيف تتحقّق مما إذا كان الحرف الأول في الخلية حرفًا أم رقمًا في Excel؟
عند التعامل مع مجموعات بيانات كبيرة في Excel، يُعدّ التمييز السريع بين الإدخالات التي تبدأ بحرف، أو رقم، أو رمز آخر أمرًا بالغ الفائدة. فعلى سبيل المثال، في القوائم التي تحتوي على أكواد أو عناوين أو إدخالات ذات تنسيقات مختلطة، قد تحتاج إلى التحقق من صحة التنسيق أو تصنيف البيانات وفقًا لأول حرف فيها لمعالجتها لاحقًا. وعلى الرغم من أن Excel لا يحتوي على دالة مدمجة لهذا الغرض تحديدًا، يمكنك تنفيذ هذه المهمة بسهولة باستخدام الصيغ، أو – في بعض الحالات – حلول بديلة مثل VBA. وتقدّم الطرق التالية خطوات واضحة ونصائح عملية للتحقق بشكل موثوق من طبيعة الحرف الأول في الخلية.
التحقق مما إذا كان الحرف الأول في الخلية حرفًا أو رقمًا باستخدام صيغة
التحقق مما إذا كان الحرف الأول في الخلية حرفًا أو رقمًا باستخدام صيغة
تتيح لك صيغ Excel تحديد ما إذا كان الحرف الأول في الخلية حرفًا، رقمًا، أو أي شيء آخر بسهولة.
1. حدد الخلية الفارغة التي تريد عرض النتيجة فيها، ثم أدخل الصيغة التالية في شريط الصيغة واضغط مفتاحEnter للتأكيد:
=IF(ISERR(LEFT(A2,1)*1),"letter","number")تفحص هذه الصيغة الحرف الأول في الخلية A2؛ فإذا أدى ضربه في 1 إلى خطأ، فهذا يعني أن الحرف ليس رقمًا، وبالتالي تُرجع الصيغة «حرف». وإلا، فتُرجع «رقم».
تلميح: تأكد من أن الصيغة تشير إلى الخلية الصحيحة. فالخلية A2 في الصيغة أعلاه هي الخلية التي تحتوي على القيمة التي تريد فحصها.
2. بعد تأكيد الصيغة في الخلية الأولى، يمكنك تطبيقها بسرعة على الصفوف الأخرى. مع تحديد خلية النتيجة، اسحب مقبض التعبئة (Fill Handle) لأسفل لملء الخلايا المقابلة في العمود.
ستُظهر نتائجك «حرف» إذا كان الحرف الأول حرفًا، و«رقم» إذا كان رقمًا، كما هو موضح أدناه:
شرح المعاملات وملاحظات عملية:تعمل الصيغة بكفاءة مع الخلايا التي تبدأ بأحرف لاتينية قياسية أو أرقام. ومع ذلك، فقد تُرجع «حرف» لأي رمز لا يمكن تحويله إلى رقم، وقد يشمل ذلك بعض الرموز الخاصة أو رموز Unicode. إذا كانت مجموعة البيانات الخاصة بك تحتوي على إدخالات تبدأ بمثل هذه الرموز، فننصحك باستخدام صيغة كشف أكثر دقة كما هو موضح أدناه.
إذا كنت تتوقع أن تبدأ الخلايا بعلامات ترقيم أو رموز أو أحرف غير أبجدية رقمية أخرى، استخدم هذه الصيغة المحسّنة لتصنيف النتائج إلى «حرف» أو «رقم» أو «أخرى»:
=IF(A2="","",IF(AND(CODE(LEFT(A2,1))>=48,CODE(LEFT(A2,1))<=57),"Number",IF(OR(AND(CODE(LEFT(A2,1))>=65,CODE(LEFT(A2,1))<=90),AND(CODE(LEFT(A2,1))>=97,CODE(LEFT(A2,1))<=122)),"Letter","Other")))تبدأ هذه الصيغة أولًا بالتحقق مما إذا كانت الخلية فارغة. فإذا لم تكن فارغة، تفحص بعد ذلك قيمة ASCII للحرف الأول: حيث تمثّل الأرقام الرموز من 48 إلى 57، والأحرف الكبيرة من 65 إلى 90، والأحرف الصغيرة من 97 إلى 122. وستُرجع «أخرى» لأي رمز يقع خارج هذه النطاقات.
حل بديل باستخدام كود VBA
للاستخدام المتقدم، مثل العمليات الدُفعية أو دمج فحوصات الأحرف ضمن مهمة مخصصة، يمكنك استخدام ماكرو VBA بسيط لتقييم الحرف الأول في الخلايا المحددة وتصنيفه تلقائيًا إلى «حرف» أو «رقم» أو «أخرى». ويُعد هذا النهج مثاليًا للمستخدمين المتمرسين في التعامل مع الماكروات والمهام المتكررة على نطاق واسع.
1. افتح محرر VBA بالنقر علىأدوات المطور > Visual Basic. في نافذةMicrosoft Visual Basic for Applications التي تظهر، انقر علىInsert > Module، ثم الصق الكود التالي في الوحدة النمطية (Module):
Sub CheckFirstCharacterType()
Dim rng As Range
Dim cell As Range
Dim firstChar As String
Dim codeNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select range to check", xTitleId, rng.Address, Type:=8)
For Each cell In rng
If cell.Value <> "" Then
firstChar = Left(cell.Value, 1)
codeNum = Asc(firstChar)
If codeNum >= 48 And codeNum <= 57 Then
cell.Offset(0, 1).Value = "Number"
ElseIf (codeNum >= 65 And codeNum <= 90) Or (codeNum >= 97 And codeNum <= 122) Then
cell.Offset(0, 1).Value = "Letter"
Else
cell.Offset(0, 1).Value = "Other"
End If
Else
cell.Offset(0, 1).Value = ""
End If
Next cell
End Sub2. بعد لصق الكود، انقر على زر
أو اضغط علىF5للتنفيذ. سيظهر لك مربع حوار لتحديد النطاق الذي تريد فحصه. وبمجرد التأكيد، سيقوم الماكرو بتحليل كل خلية في تحديدك ويعرض النتيجة («رقم» أو «حرف» أو «أخرى») في العمود الموجود مباشرةً إلى يمين بياناتك.
نصائح عملية:إذا كانت ورقة العمل الخاصة بك تحتوي بالفعل على صيغ أو تنسيقات في الأعمدة المجاورة، غيّرcell.Offset(0,1) حسب الحاجة لعرض النتائج في عمود مختلف.
- يمكن للماكرو معالجة نطاقات كبيرة بسرعة تفوق بكثير النسخ اليدوي للصيغ، مما يقلل من احتمال وقوع الأخطاء.
- احفظ دائمًا ملف العمل قبل تشغيل كود VBA جديد لتجنب أي تغييرات غير مقصودة.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكنك التحقق مما إذا كان اسم الخلية المعيَّن موجودًا في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل