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

كيفية إدراج عدد محدد من الأعمدة في فترات زمنية ثابتة في إكسيل؟

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

أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام رمز VBA

أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة مع ميزة مذهلة


أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام رمز VBA

يمكننا استخدام ما يلي كود فبا لإدراج عدد محدد من الأعمدة الفارغة بعد كل عمود ن. الرجاء القيام بما يلي.

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

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

رمز فبا: أدخل عددًا محددًا من الأعمدة في البيانات على فترات زمنية ثابتة

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. اضغط على F5 مفتاح لتشغيل هذا الرمز. ينبثق مربع مطالبة لتذكيرك بتحديد ملف نطاق البيانات التي تريد إدراج أعمدة فارغة فيها.
إدراج أعمدة المستند على فترات 1

4. انقر فوق OK زر. يظهر مربع موجه آخر ، من فضلك أدخل عدد فترات الأعمدة في ال أدخل الفاصل الزمني العمود مربع.
إدراج أعمدة المستند على فترات 2

5. استمر في النقر فوق OK زر. ينبثق مربع المطالبة الثالث ، يرجى التحديد عدد الأعمدة التي تريد إدراجها في كل فترة زمنية في الصندوق.
إدراج أعمدة المستند على فترات 3

6. انقر فوق OK زر للحصول على النتيجة.
إدراج أعمدة المستند على فترات 4


أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة مع ميزة مذهلة

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

قبل التطبيق كوتولس ل إكسيل، يرجى تنزيله وتثبيته أولاً.

1. حدد نطاق البيانات الموجود أولاً. ثم اضغط كوتولس > إدراج > أدخل صفوف وأعمدة فارغة.
إدراج أعمدة المستند على فترات 5

2. ال أدخل صفوف وأعمدة فارغة ينبثق مربع الحوار. يمكنك رؤية نطاق البيانات الذي حددته في الخطوة 1 معروضًا في مربع النطاق. اختر ال أعمدة فارغة الخيار في أدخل نوع الجزء. وتحديد عدد فترات الأعمدة و الأعمدة التي تريد إدراجها في كل فترة زمنية. هنا أقوم بإدخال 1 و 3 بشكل منفصل.
إدراج أعمدة المستند على فترات 6

3. انقر فوق OK زر لإنهاء الإعداد والحصول على النتيجة.
إدراج أعمدة المستند على فترات 7

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


عمليات أخرى (مقالات)

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

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

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

كيفية إدراج صف فارغ بعد نص معين في Excel؟
إذا كنت ترغب في إدراج صفوف فارغة بعد نص معين كما هو موضح في لقطة الشاشة التالية ، كيف تتعامل معها بسرعة وسهولة دون إدخالها يدويًا واحدة تلو الأخرى؟


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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