كيفية القيام بما يلي: نقل أوراق العمل بين المصنفات

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Excel 2007 Excel 2010

يمكنك تغيير موضع أوراق العمل برمجياً بالنسبة إلى أوراق عمل أخرى في مصنف. إذا لم تقم بتحديد موقع الورقة المنقولة يقوم Excel بإنشاء مصنف جديد ليحتوي عليها.

لنقل ورقة عمل في تخصيص على مستوى المستند

• قم بتعيين العدد الإجمالي من الأوراق في المصنف إلى متغير ثم قم بنقل ورقه العمل الأولى بحيث تصبح آخر ملف.

  Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count
  Globals.Sheet1.Move(After:=Globals.ThisWorkbook.Sheets(totalSheets))
  

  int totalSheets = this.Application.ActiveWorkbook.Sheets.Count;
  Globals.Sheet1.Move(missing, Globals.ThisWorkbook.Sheets[totalSheets]);
  

لنقل ورقة عمل في الوظيفة الإضافية التي على مستوى التطبيق

• قم بتعيين العدد الإجمالي من الأوراق في المصنف إلى متغير ثم قم بنقل ورقه العمل الأولى بحيث تصبح آخر ملف.

  Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count
  CType(Application.ActiveSheet, Excel.Worksheet).Move(After:=Application.Worksheets(totalSheets))
  

  int totalSheets = this.Application.ActiveWorkbook.Sheets.Count;
  ((Excel.Worksheet)Application.ActiveSheet).Move(missing, 
      this.Application.Worksheets[totalSheets]);
  

راجع أيضًا:

المهام

كيفية القيام بما يلي: إخفاء أوراق العمل

كيفية القيام بما يلي: حذف أوراق عمل من مصنفات

كيفية القيام بما يلي: حماية أوراق العمل

المرجع

Copy

المبادئ

العمل على أوراق العمل

الوصول العمومي إلى الكائنات في مشاريع Office