كيفية إنشاء أرقام متزايدة مع أو داخل النص في Excel؟
في Excel، يعد إنشاء تسلسلات من الأرقام المتزايدة مهمة أساسية، خاصة لتنظيم البيانات أو إنشاء معرفات فريدة. بينما تعتبر ميزة مقبض التعبئة التلقائية طريقة سهلة لملء الأرقام المستقلة المتتالية، إلا أنها لا تدعم دمج الأرقام المتزايدة مباشرة مع سلاسل النصوص، مثل إنشاء "User001" و"User002" وما إلى ذلك في خطوة واحدة. يمكن أن يؤدي هذا القيد إلى تعقيد المهام مثل إنشاء أسماء مستخدمين مخصصة، عناوين البريد الإلكتروني، رموز المنتجات، أو أرقام الفواتير التي تتطلب كلًا من النص الثابت والمكون العددي المتسلسل. في هذا البرنامج التعليمي، سنقدم عدة طرق لإنشاء أرقام متزايدة مدمجة مع النصوص أو داخلها في Excel، بدءًا من الصيغ التقليدية إلى الأتمتة المتقدمة باستخدام VBA وأدوات متخصصة سهلة الاستخدام.
تشمل السيناريوهات الشائعة: إنشاء دفعات من العناصر ذات العلامات الفريدة، إنشاء قوائم بريد إلكتروني بنظام تسمية منهجي، أو إنتاج أرقام تسلسلية لتتبع المنتجات. لكل حل من هذه الحلول مميزاته الخاصة - سواء كانت سهولة الاستخدام، أو الأتمتة، أو المرونة في وضع الأرقام، أو ملاءمتها لمجموعات البيانات الكبيرة.
زيادة الرقم مع النص باستخدام صيغة في Excel
زيادة الرقم مع النص باستخدام Kutools لـ Excel
ماكرو VBA: إنشاء أرقام متزايدة داخل أو ضمن النص
زيادة الرقم مع النص باستخدام صيغة في Excel
توفر الصيغ المضمنة في Excel طريقة مباشرة لدمج النص والأرقام المتزايدة. تعد هذه الطريقة مفيدة بشكل خاص إذا كان التسلسل الخاص بك مهيكلًا بأرقام ونصوص في مواقع ثابتة، وتحتاج إلى شفافية كاملة حول كيفية تكوين المُعرّف.
1. قم بإعداد ورقة العمل كما هو موضح أدناه:
2. في الخلية D2، أدخل الصيغة التالية، ثم اضغط على Enter للتطبيق:
=$A$2&TEXT(B2,"000")&$C$2
بعد أن تُرجع الصيغة النتيجة، اسحب مقبض التعبئة من D2 لأسفل لملء باقي الخلايا في العمود D. ستعرض كل خلية النص المدمج والرقم المتزايد، مثل “User001@localdomain.com”، “User002@localdomain.com”، وما إلى ذلك، كما هو موضح أدناه:
ملاحظات ونصائح:
$A$2
و$C$2
) للحفاظ على ثبات عناصر النص عند نسخ الصيغة لأسفل.هذا النهج واضح للغاية ومناسب للبيانات المهيكلة جيدًا ولكنه غالبًا ما يتطلب إعدادًا يدويًا للأعمدة المساعدة لكل عنصر. أيضًا، إذا تغيرت أماكن النص والرقم من صف لآخر، فقد يتطلب هذا النهج تعديلات إضافية.
زيادة الرقم مع النص باستخدام Kutools لـ Excel
إذا كنت بحاجة بشكل متكرر إلى توليد مُعرفات نصية متزايدة وتفضل واجهة رسومية أو تحتاج إلى خيارات أكثر ديناميكية (مثل بادئة مرنة، لاحقة، زيادات مخصصة، أو حفظ إعداداتك للاستخدام المتكرر)، فإن Kutools لـ Excel يقدم ميزة متخصصة تسمى إدراج رقم تسلسلي. باستخدام هذه الأداة، يمكنك إنشاء مخططات ترقيم معقدة بنقرات قليلة فقط - دون الحاجة إلى إعداد الصيغ.
1. في شريط Excel، انتقل إلى Kutools > إدراج > إدراج رقم تسلسلي… كما هو موضح أدناه:
2. في مربع الحوار إدراج رقم تسلسلي، انقر فوق جديد لتوسيع خيارات الإعداد الإضافية. إليك كيفية التكوين:
3. حدد نطاق الخلايا حيث تريد إدراج الأرقام المتزايدة مع النص، ثم انقر فوق تعبئة النطاق. سيتم تعبئة الأرقام المخصصة فورًا في المنطقة المحددة، مما ينتج عنه نتائج مثل "User001@localdomain.com" و"User002@localdomain.com"…
ملاحظات إضافية: بمجرد تجميع وحفظ قالب الترقيم في Kutools، يمكن إعادة استخدامه بسرعة، حتى عبر مصنفات متعددة. إذا كان الرقم الأخير الذي تم إنشاؤه هو 30، فإن المرة القادمة التي تستخدم فيها هذا التسلسل سيبدأ تلقائيًا من 31. هذا مفيد بشكل خاص لتجنب الأرقام المكررة أو تتبعها عبر مجموعات بيانات كبيرة.
يُوصى باستخدام هذه الطريقة للمستخدمين الذين يعملون بشكل منتظم مع البيانات التتابعية ويحتاجون إلى كفاءة ومرونة في واجهة بنقرة وزر، بالإضافة إلى حفظ القوالب للمهام الدُفعية المتكررة. إذا كنت بحاجة إلى تخصيص متقدم قائم على الموضع يتجاوز البادئة/اللاحقة، قد تكون الكتابة البرمجية الآلية أكثر ملاءمة (انظر أدناه).
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
زيادة الرقم مع النص باستخدام Kutools لـ Excel
ماكرو VBA: إنشاء أرقام متزايدة داخل أو ضمن النص
إذا كنت بحاجة إلى أقصى درجات التحكم - مثل إدراج رقم متزايد في أي جزء من سلسلة النص، وتوليد معرفات معقدة أثناء التشغيل، أو تطبيق هذه العملية على عدة صفوف مرة واحدة - فإن ماكرو VBA يوفر الأتمتة والتخصيص الذي لا تستطيع الصيغ أو الوظائف الإضافية دائمًا مطابقتها. تعد VBA مثالية للعمليات الضخمة، الأنماط المخصصة، أو عندما تحتاج إلى تضمين الأرقام في أي مكان (ليس فقط في البداية أو النهاية) من السلسلة.
قبل أن تبدأ، تذكر دائمًا حفظ مصنفك كملف ممكّن الماكرو (.xlsm) لمنع فقدان كود VBA الخاص بك. بالإضافة إلى ذلك، فكر في اختبار أي ماكرو على نسخة من بياناتك أولاً لتجنب التغييرات غير المتوقعة.
كيفية استخدام الماكرو:
1. افتح مصنفك، ثم في شريط Excel، انقر فوق أدوات المطور > Visual Basic. (إذا لم يكن علامة التبويب Developer مرئية، فقم بتمكينها عبر File > Options > Customize Ribbon.)
2. في نافذة محرر Microsoft Visual Basic for Applications، انقر فوق Insert > Module. انسخ والصق الكود التالي في الوحدة الفارغة:
Sub InsertIncrementNumberIntoText()
Dim cell As Range
Dim rng As Range
Dim startNum As Long
Dim increment As Long
Dim pattern As String
Dim position As Variant
Dim currentNum As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select the range to apply incremented text.", xTitleId, rng.Address, Type:=8)
startNum = Application.InputBox("Enter the starting number:", xTitleId, 1, Type:=1)
increment = Application.InputBox("Enter the increment between numbers:", xTitleId, 1, Type:=1)
pattern = Application.InputBox("Enter the pattern (use {n} to mark the insertion point, e.g. 'User{n}@local.com'):", xTitleId, "User{n}@local.com", Type:=2)
currentNum = startNum
If rng Is Nothing Then Exit Sub
For Each cell In rng
cell.Value = Replace(pattern, "{n}", currentNum)
currentNum = currentNum + increment
Next
End Sub
3. لتنفيذ الماكرو، انقر فوق الزر أو اضغط على F5. سيقوم مربع الحوار بتوجيهك لتحديد النطاق المستهدف، تحديد الرقم الأول، اختيار الزيادة، وتعريف نمط النص المطلوب (على سبيل المثال، استخدم ID-{n}-LIST لإدراج رقم متزايد بين مقاطع النص المخصص).
- يمكنك إدراج "{n}" في أي مكان من النمط الخاص بك - قبل، بعد، أو داخل النص - لتخصيص موقع الرقم المتزايد.
- بعد التأكيد، يتم ملء كل خلية محددة بالمعرّف المتزايد المناسب بناءً على النمط والفترة المحددين.
- لتطبيق الماكرو على منطقة جديدة، ما عليك سوى تشغيله مرة أخرى وتحديد المعلمات الجديدة حسب الحاجة.
- إذا ارتكبت خطأ، استخدم ميزة التراجع (Ctrl+Z) أو قم بتشغيل الماكرو مرة أخرى.
استكشاف الأخطاء وإصلاحها ونصائح:
{n}
. سيتم ملء الأنماط بدون هذه الرمز حرفيًا، لذا تحقق من النمط الخاص بك قبل التشغيل.هذه الحل مفيد بشكل خاص في السيناريوهات المتقدمة مثل تضمين الأرقام داخل أسماء الملفات، إنشاء معرفات محددة النمط عبر عدة صفوف مرة واحدة، وأتمتة مخططات التسمية التتابعية المعقدة.
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!