JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسيل VBA كيفية اضافة اى عدد من الاعمدة او الصفوف بطريقة سهلة جدا Insert Multiple Columns And RowsExcel

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

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

درس جديد وكود جديد من اكواد اكسل 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- انشاء قائمة باسماء الملفات الموجود داخل فولدر معين وعمل هايبرلينك لها


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