تحميل مجانى برنامج الكنترول المدرسى ( كنوز ) وادارة اعمال الامتحانات وزارة التربية والتعليم

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

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

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

وفى هذا الدرس سوف نتعلم 

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

الكود الاول

 اضافة عدة اعمدة دفعة واحدة     Insert Multiple Columns

يساعدك هذا الكود على إدخال عدة أعمدة بنقرة واحدة. عندما تقوم بتشغيل هذا الكود ، فإنه يطلب منك من خلال الصندوق الادخال InputBox عدد ارقام الاعمدة  التي تريد إضافتها وعندما تنقر فوق "موافق" ، فإنه يضيف عدد الأعمدة التي تم إدخالها بعد الخلية المحددة. إذا كنت تريد إضافة أعمدة قبل الخلية المحددة ، فاستبدل xlToRight بـ xlToLeft في الكود.

الكود

Sub InsertMultipleColumns()

Dim i As Integer

Dim j As Integer

ActiveCell.EntireColumn.Select

On Error GoTo Last

i = InputBox("ادخل عدد الاعمدة التى تريد ادراجها ", "Insert Columns")

For j = 1 To i

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove

Next j

Last: Exit Sub

End Sub

الكود الثانى 

اضافة اى عدد من الصفوف بنقرة زر واحدة  Insert Multiple Rows

باستخدام هذا الكود ، يمكنك إدخال اى عدد من الصفوف انت تحددة  في ورقة العمل. عند تشغيل هذا الكود ، سوف يظهر لك  صندوق الادخال   InputBox يطالبك بتحديد عدد الصفوف التى تريد ادخالها بمجرد ادخال االرقم والضغط على موافق يمكنك إدخال عدد الصفوف المراد إدراجها والتأكد من تحديد الخلية التي تريد إدراج الصفوف الجديدة منها. إذا كنت تريد إضافة صفوف قبل الخلية المحددة ، فاستبدل xlToDown إلى xlToUp في التعليمات البرمجية.

الكود

Sub InsertMultipleRows()

Dim i As Integer

Dim j As Integer

ActiveCell.EntireRow.Select

On Error GoTo Last

i =InputBox("ادخل عدد الصفوف التى تريد ادراجها", "Insertrows")

For j = 1 To i

Selection.Insert

Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove

Next j

Last: Exit Sub

End Sub

وبهذا نكون قد انتهينا من هذا الكود 

موضوعات قد تهمك

1- اضافـــة رقم تسلسلى بطريقة اوتوماتيكية فى شيت الاكسل

2-اخفاء كل اوراق العمل متعدا الورقة النشطة

3- ادراج صفوف متعددة

4- اسهل واسرع طريقة احذف الصفوف الفارغة فى الاكسل

5- انشاء قائمة باسماء الملفات الموجود داخل فولدر معين وعمل هايبرلينك لها