VBA حذف العمود | أفضل 4 طرق لحذف أعمدة Excel باستخدام VBA
عادةً في ورقة عمل Excel ، لدينا طريقتان مختلفتان لحذف الأعمدة ، أحدهما اختصار لوحة المفاتيح والآخر باستخدام طريقة النقر بزر الماوس الأيمن والإدراج ، ولكن في VBA ، يتعين علينا استخدام أمر delete وبيان العمود بالكامل لحذف أي عمود معًا ، الحيلة إلى هذا هو أنه إذا احتجنا إلى حذف عمود واحد ، فإننا نعطي مرجع عمود واحد ولكن بالنسبة للأعمدة المتعددة ، فإننا نقدم مراجع أعمدة متعددة.
حذف العمود Excel VBA
نقوم بالعديد من الإجراءات في Excel مثل القص والنسخ واللصق والإضافة والحذف والإدراج والعديد من الأشياء التي نقوم بها بشكل منتظم. يمكننا استخدام كل هذه الإجراءات باستخدام VBA Coding. أحد المفاهيم المهمة التي نحتاج إلى تعلمها في VBA هو "حذف العمود". في هذه المقالة ، سنوضح لك كيفية استخدام خيار حذف العمود في VBA.
ماذا يفعل حذف العمود في Excel VBA؟
كما يقول الاسم ، سيتم حذف العمود المحدد. لأداء هذه المهمة ، نحتاج أولاً إلى تحديد العمود الذي نحتاج إلى حذفه. يختلف تحديد الأعمدة المراد حذفها من سيناريو إلى آخر ، لذلك سنغطي بعض السيناريوهات المهمة والتي غالبًا ما نواجهها في هذه المقالة.
من السهل حذف الأعمدة. أولاً ، نحتاج إلى استخدام خاصية الأعمدة لتحديد العمود ، لذلك يوجد أدناه بناء جملة طريقة حذف العمود في VBA.
الأعمدة (مرجع العمود) حذف
لذلك يمكننا إنشاء الكود مثل هذا:
أعمدة (2) حذف أو أعمدة ("ب") حذف
سيؤدي هذا إلى حذف العمود رقم 2 ، أي العمود ب.
إذا أردنا حذف عدة أعمدة ، فلا يمكننا إدخال أعمدة ، فنحن بحاجة إلى الإشارة إلى الأعمدة حسب رؤوس الأعمدة ، أي الحروف الهجائية.
الأعمدة ("أ: د"). حذف
سيؤدي هذا إلى حذف العمود من A إلى D ، أي أول 4 أعمدة.
مثل هذا ، يمكننا استخدام طريقة "Delete Column" في VBA لحذف أعمدة معينة. في القسم أدناه ، سنرى المزيد من الأمثلة لفهمها بشكل أفضل. واصل القراءة.
أمثلة على طريقة حذف العمود في Excel VBA
فيما يلي أمثلة لحذف الأعمدة باستخدام VBA.
مثال # 1 - استخدام طريقة الحذف
افترض أن لديك ورقة البيانات شيئًا مثل ما يلي.
إذا أردنا حذف عمود الشهر "مارس" ، فحدد أولاً خاصية الأعمدة.
رمز:
أعمدة Delete_Example1 () الفرعية (End Sub
اذكر رقم العمود أو الأبجدية. في هذه الحالة ، تكون إما 3 أو C.
رمز:
أعمدة Delete_Example1 الفرعية (3). End Sub
استخدم طريقة الحذف.
ملاحظة: لن تحصل على قائمة IntelliSense لتحديد طريقة الحذف ، فقط اكتب "حذف" ،رمز:
فرعي Delete_Example1 () أعمدة (3) .Delete End Sub
أو يمكنك إدخال عنوان العمود مثل هذا.
رمز:
أعمدة Delete_Example1 () الفرعية ("C"). احذف End Sub
قم بتشغيل هذا الرمز باستخدام مفتاح F5 أو يمكنك تشغيله يدويًا ومشاهدة النتيجة.
سيقوم كلا الرمزين بنفس المهمة المتمثلة في حذف العمود المذكور.
إذا أردنا حذف عدة أعمدة ، فنحن بحاجة إلى ذكرها بالأبجديات ، فلا يمكننا استخدام أرقام الأعمدة هنا.
إذا أردنا حذف الأعمدة من 2 إلى 4 ، فيمكننا تمرير الرمز كما هو موضح أدناه.
رمز:
أعمدة Delete_Example1 () الفرعية ("C: D"). احذف End Sub
قم بتشغيل هذا الرمز يدويًا من خلال خيار التشغيل أو اضغط على مفتاح F5 ، سيؤدي ذلك إلى حذف الأعمدة "فبراير" و "مارس" و "أبريل".
مثال # 2 - حذف الأعمدة مع اسم ورقة العمل
ما سبق هو نظرة عامة على كيفية حذف الأعمدة باستخدام كود فبا. ومع ذلك ، فهذه ليست ممارسة جيدة لحذف الأعمدة ، فبدون الإشارة إلى اسم ورقة العمل ، من الخطر حذف العمود بشكل أعمى.
إذا لم تكن قد ذكرت اسم ورقة العمل ، فإن أي ورقة نشطة ستحذف أعمدة تلك الورقة.
أولاً ، نحتاج إلى تحديد ورقة العمل باسمها.
رمز:
Sub Delete_Example2 () Worksheets ("Sales Sheet") حدد End Sub
بعد اختيار الورقة ، نحتاج إلى تحديد الأعمدة. يمكننا أيضًا تحديد الأعمدة باستخدام كائن VBA RANGE أيضًا.
رمز:
Sub Delete_Example2 () Worksheets ("Sales Sheet"). حدد النطاق ("B: D"). احذف End Sub
سيؤدي هذا إلى حذف الأعمدة من B إلى D في ورقة العمل "Sales Sheet". بالنسبة لهذا الرمز ، لا يهم أيهما نشط ، ومع ذلك ، فإنه سيحذف الأعمدة المذكورة من تلك الورقة فقط.
يمكننا أيضًا إنشاء كود VBA في السطر الفردي نفسه.
رمز:
فرعي Delete_Example2 () أوراق العمل ("ورقة المبيعات"). النطاق ("B: D"). حذف End Sub
يؤدي هذا أيضًا إلى حذف الأعمدة من "B إلى D" دون تحديد ورقة العمل "Sales Sheet".
مثال # 3 - حذف الأعمدة الفارغة
افترض أن لديك بيانات تحتوي على أعمدة فارغة بديلة مثل ما يلي.
لذا ، احذف كل عمود بديل يمكننا استخدامه في الكود أدناه.
رمز:
Sub Delete_Example3 () خافت k كعدد صحيح لـ k = 1 إلى 4 أعمدة (k + 1) احذف التالي k End Sub
قم بتشغيل هذا الرمز باستخدام مفتاح F5 أو يدويًا بعد ذلك ، سيتم حذف جميع الأعمدة الفارغة البديلة وستبدو بياناتنا على هذا النحو.
مثال # 4 - حذف أعمدة الخلايا الفارغة
الآن ، انظر إلى هذا المثال. هناك مواقف معينة نحتاج فيها إلى حذف العمود بأكمله إذا وجدت أي من الخلايا الفارغة في نطاق البيانات. ضع في اعتبارك البيانات أدناه كمثال.
جميع الخلايا ذات اللون الأصفر فارغة. لذا فإن مطلبي هنا هو حذف جميع أعمدة الخلايا الفارغة. الكود أدناه سيفعل ذلك.
رمز:
نطاق Delete_Example4 () الفرعي ("A1: F9"). حدد Selection.SpecialCells (xlCellTypeBlanks). حدد Selection.EntireColumn.Delete End Sub
اسمحوا لي أن أشرح لك هذا الرمز سطرًا بسطر.
توجد بياناتنا من A1 إلى F9 ، لذلك أحتاج أولاً إلى تحديد هذا النطاق ، وسوف يكون الرمز أدناه كذلك
النطاق ("A1: F9"). حدد
في هذا النطاق المحدد من الخلايا ، أحتاج إلى تحديد الخلايا الفارغة. لذلك لتحديد خلية فارغة ، نحتاج إلى خاصية خلايا خاصة وفي هذه الخاصية ، استخدمنا نوع الخلية على أنه فارغ.
التحديد.الخلايا الخاصة (xlCellTypeBlanks)
بعد ذلك ، سيحدد جميع الخلايا الفارغة وفي التحديد ، نقوم بحذف عمود التحديد بالكامل.
التحديد.العمود الكامل.الحذف
لذا ستبدو النتيجة النهائية على هذا النحو.
أينما وجدت الخلية الفارغة ، فقد حذفت تلك الخلايا الفارغة في العمود بأكمله.
يمكنك تنزيل Excel VBA Delete Column هنا - حذف قالب العمود VBA
