تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

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

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

درس جديد من مكتبة اكواد اكسل 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 لادخال عدد الاعمدة التى نحتاجها بمجرد ادخال الرقم المطلوب يتم 

عمل حلقة تكرارية لادراج عدد الاعمدة المطلوبة 

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