بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دروس الاكسل VBA
نسخ اوراق العمل sVBA Copy Worksheet
سيغطي هذا المقال والدرس التعليمي فى الاكسل VBA وفية سوف نتعلم كيفية نسخ
ورقة Sheet أو ورقة عمل باستخدام الاكسيل VBA.
نسخ ورقة داخل نفس المصنف Copy Sheet Within Same Workbook
لقد بدأنا بعرض أبسط مثال على نسخ الأوراق: نسخ الورقة Sheet (الأوراق) إلى مصنف جديد. ستوضح لك هذه الأمثلة أدناه كيفية نسخ ورقة داخل نفس المصنف. عند نسخ ورقة داخل ملف عمل ، يجب عليك تحديد موقع او مكان النقل داخل ملف العمل . لتحديد موقع اومكان الورقة الجديدة ، ستخبر VBA بنقل ورقة العمل قبل أو بعد ورقة عمل أخرى.
نسخ الورقة قبل ورقة أخرى فى نفس الملف Copy Sheet Before Another Sheet
سنحدد هنا نسخ
الورقة ولتكن (Sheet1)ولصقها
قبل الورقة sheet2
Sheets("Sheet1").Copy
Before:=Sheets("Sheet2")
نسخ الشيت قبل الورقة الأولى Copy Sheet Before First Sheet
بدلاً من تحديد
اسم الورقة ، يمكنك أيضًا تحديد موضع الورقة. نحن هنا نقوم بنسخ ورقة ولصقها قبل الورقة
الأولى في المصنف او ملف العمل .
Sheets("Sheet1").Copy Before:=Sheets(1)
نسخ الورقة بعد الورقة الأخيرة Copy Sheet After Last Sheet
استخدم الخاصية
After لإخبار VBA بلصق الورقة بعد ورقة أخرى. سنقوم هنا بنسخ ورقة
ولصقها بعد الورقة الأخيرة في المصنف:
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
لاحظ أننا استخدمنا
Sheet.count ، لعد و لحساب عدد الأوراق في المصنف او ملف العمل.
2-اسطوانة التعريفات الشاملة DriverPack Solution بدون نت