الأحد، 6 أكتوبر 2019

اكسل ماكرو : اضافة اى عدد من الاعمدة دفعة واحدة بضغطة زر واحدة Excel VBA Macro Insert Number Of Columns Easy

بسم الله الرحمن الرحيم 


اهلا بكم متابعى موقع عالم الاوفيس 

درس جديد من مكتبة اكواد اكسل vba وكود جديد

كيفية اضافة اى عدد من الاعمدة بطريقة سهلة جدا وسريعة جدا وبضغطة زر واحدة 

فى كثير من الاحيان نحتاج فى عملنا ان نقوم بادراج عدد معين من الصفوف ولكن الطريقة اليدوية فى الادارج يتكون بطيئة حيث اننا نقف على بداية العمود ونضغط كليك يمين ونعمل ادراج للعمود ولكن فى هذة الحالة سنقوم بادراج عمود واحد فقط 

فى حال اذا كنا نريد اضافة عدد كبير من الاعمدة تصبح هذة الطريقة مملة جدا جدا اذا لابد من ايجاد طريقة اخرى تكون اسرع فى ذلك الامر لانجاز اعمالنا بسهولة.

اذا ناتى بكود من اكواد اكسل vba

الكود

Sub Add_Columns()
Dim x As Integer
Dim y As Integer ActiveCell.EntireColumn.Select
x = InputBox("Enter number of columns to insert", "Insert Columns")
For y = 1 To x
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
 Next  y

End Sub
بمجرد تشغيل الكود يظهر لنا مربع ادخال  InputBox لادخال عدد الاعمدة التى نحتاجها بمجرد ادخال الرقم المطلوب يتم 
عمل حلقة تكرارية لادراج عدد الاعمدة المطلوبة 

كود سهل وبسيط من مكتبة الاكواد الخاصة بنا 

هناك تعليق واحد:

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة