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

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

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

الاكسل | كيفية نسخ اوراق العمل VBA Copy Sheet Within Same Workbook

 

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

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

درس جديد من دروس الاكسل 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  ، لعد  و لحساب عدد الأوراق في المصنف او ملف العمل.

 مقالات ذات صلة

1- اسرع واسهل فورم دخال فى الاكسل 

2-اسطوانة التعريفات الشاملة DriverPack Solution بدون نت

3-دليلك الشامل فى فرز وترتيب البيانات فى الاكسل | Sort Data In Excel

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