Note: The other languages of the website are Google-translated. Back to English

كيف ترقيم الخلايا المدمجة تلقائيًا في إكسيل؟

كيف يمكننا ملء أرقام السلسلة في قائمة خلايا مدمجة مختلفة الحجم في Excel؟ أول ما يدور في أذهاننا هو سحب مقبض الملء التلقائي لملء الخلايا المدمجة ، ولكن في هذه الحالة ، سنحصل على رسالة التحذير التالية ، ولا يمكننا ملء الخلايا المدمجة.

دوك-ملء-دمج الخلايا -1

نظرًا لأن مقبض التعبئة لا يدعم الخلايا المدمجة ، هنا ، يمكنني التحدث عن بعض الحيل الأخرى لحل هذه المشكلة.

رقم تلقائي / تعبئة الخلايا المدمجة برمز VBA

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة رقم تلقائي / تعبئة الخلايا المدمجة برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في ترقيم الخلايا المدمجة المحددة بسرعة. الرجاء القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: رقم تلقائي الخلايا المدمجة

Sub NumberCellsAndMergedCells()
	'Update 20141028
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه للسماح لك بتحديد الخلايا المدمجة التي تريد تعبئتها ، انظر لقطة الشاشة:

دوك-ملء-دمج الخلايا -1

4. بعد تحديد الخلايا المدمجة ، وانقر فوق OK، الآن ، تم ملء الخلايا المدمجة المحددة بأرقام متسلسلة ، انظر الصورة:

دوك-ملء-دمج الخلايا -1


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

كيفية إعادة الترقيم التلقائي أو إعادة الترقيم بعد التصفية في Excel؟

كيفية دمج الصفوف المتجاورة بسرعة مع نفس البيانات في Excel؟

كيفية إلغاء دمج الخلايا وتعبئتها بقيم مكررة في Excel؟


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

 

فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد كان هذا مفيدًا حقًا وحل مشكلتي على الفور ، شكرًا جزيلاً لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فإنه من المفيد جدا. لكني أحتاج إلى حل واحد ، لنفترض أنني أريد ملء سلسلة في خلايا مدمجة ولكن محتوى الخلية المدمجة به بيانات مثل TC_01 ، هل من الممكن ملء الخلايا المدمجة التالية مثل TC_02 و TC_03etc .. إذا كان ذلك ممكنًا فهذا يساعدني كثيرًا. شكرا لك مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعديل: القيام أثناء عدم التقاطع (Rng، WorkRng) ليس شيئًا أ = xIndex Rng.Value = "Tc_" & a xIndex = xIndex + 1 Set Rng = Rng.MergeArea.Offset (1) Loop
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كنت أتساءل عما إذا كان هناك على أي حال لتغيير الكود حيث ستزيد قيمة النطاق بواحد ، على سبيل المثال ، أحاول استخدام هذا للفواتير ويجب أن ينتقل الرقم من NR000026489 إلى NR000026490 ، ولكن باستخدام الكود أعلاه مع التعديل المعطى لـ JYOTHI ستزيد من NR000026489 إلى NR0000264810. أي مساعدة ستكون موضع تقدير كبير لأنني أمضيت أوقاتًا في تجربة أشياء مختلفة ولكني لست متقدمًا بدرجة كافية في VB. شكرا جزيلا :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد اشتريت Kutools لذلك سيساعدني ذلك في زيادة ترقيم فاتورتي تلقائيًا ولكني لا أرى هذه الميزة في الوظيفة الإضافية على شريط أدوات Excel. ربما لا أبحث عن الاسم الصحيح ولكني لا أجد كيفية إدراج هذا في قالب الفاتورة. أي هناك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز يعمل بشكل مثالي.


الرقم الفرعي: الخلايا والمدمجة ()
تحديث 20141028
خافت Rng كمدى
خافت WorkRng كنطاق
على خطأ استئناف التالي
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
تعيين WorkRng = WorkRng.Columns (1)
xIndex = 1
تعيين Rng = WorkRng.Range ("A1")
القيام أثناء عدم التقاطع (Rng، WorkRng) ليس شيئًا
Rng.Value = xIndex
xIndex = xIndex + 1
تعيين Rng = Rng.MergeArea.Offset (1)
أنشوطة
نهاية الفرعية


لكني أريده أن يختار النطاق تلقائيًا بدلاً من Set WorkRng = Application.Selection.
الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد طريقة لاستبعاد خلية مدمجة تحتوي على نص؟ يعمل هذا البرنامج النصي بشكل مثالي ولكني أقوم باجتياز مستند يتضمن عدة خلايا مدمجة أفقيًا يتم تحويلها إلى أشرطة عناوين وأريد تخطي / استبعادها. أي مساعدة سيكون موضع تقدير كبير!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

كيفية تحويل خلية بامتداد

تفاح ، ليمون ، ماء ، صودا ، غطاء ، خفاش

إلى

1. تفاح ، 2. ليمون ، 3. ماء ، 4. غطاء ، 5. خفاش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Cuando se generan celdas combinadas de diferentes tamaños، y que queremos numerar، podemos seleccionarlas y vaciar el contenido ... en seguida con la siguiente fórmula: = IF (Q7 = ""، (COUNTIF ($ Q $ 7: Q7، ") )، SUBSTITUTE ("TRUE"، "TRUE"، "")) esta deta detará que no hay nada y en la casilla combinada pondrá un consecutivo iniciando con el 1- No importa el tamaño de la celda combinada، solo pondrá el numero al Principio دي لا سيلدا كومبينادا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك!! :)
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL