أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية نسخ أو نقل الأوراق باستخدام التعليمات البرمجية ل VBA في Excel لنظام التشغيل Mac

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(CTF) او من خلال مترجم بشري. تقدم لك شركة مايكروسوفت هذه المقالات المترجمة بشكل آلي او بالترجمة البشرية او بعد تحريرها وتدقيقها من قبل مجموعات الترجمة حتى تمكنكم من الوصول إلى جميع المقالات الموجودة في قواعد المعرفة لديها بلغات مختلفة. إلا أن المقالات المترجمة قد تحتوي على أخطاء في المفردات او بناء الجمل او النحو. وعليه، فإن شركة مايكروسوفت ليست مسؤولة عن اية أخطاء او عدم دقة في الترجمة او أية أضرار قد تحدث نتيجة أخطاء في ترجمة محتويات النص او استخدامه من قبل العملاء.

اضغط هنا لرابط المقالة باللغة الانجليزية288402
الموجز
يمكنك استخدام Microsoft Visual Basic للتعليمات البرمجية Applications (VBA) لنسخ أو نقل الأوراق في مصنف أو بين المصنفات. هذا مفيداً بشكل خاص إذا كنت تريد نقل أو نسخ العديد من الأوراق، أو إذا كنت تريد إجراء نسخ متعددة من الورقة.

توفر هذه المقالة نماذج من تعليمات VBA البرمجية لإنجاز هذه المهام.
معلومات أخرى
تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، لكن لا يقتصر على، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. ملاحظة: في Microsoft Excel 2001 ل Macintosh دون Microsoft Office 2001 للإصدار 1 لخدمة Mac، يجب وضع التعليمات البرمجية في مصنف منفصل من الأوراق التي يتم نسخها.

2001 Excel لماكنتوش واجه مشكلة عندما تعليمات VBA البرمجية التي تنسخ الأوراق في المصنف نفسه على الأوراق التي يتم نسخها.

يتم حل هذه المشكلة مع الإصدار 1 لخدمة لبرنامج Microsoft Office 2001 ل mac. لمزيد من المعلومات حول هذه المشكلة في Excel 2001 ل Mac، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
286266 يتوقف Excel عند محاولة نسخ ورقة العمل في نفس المصنف
:

نموذج التعليمات البرمجية لنسخ أوراق العمل

نسخ ورقة محددة في المصنف النشط

Sub Copier1()    'Replace "Sheet1" with the name of the sheet to be copied.    ActiveWorkbook.Sheets("Sheet1").Copy _       after:=ActiveWorkbook.Sheets("Sheet1")End Sub				

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

Sub Copier2()    Dim x As Integer        x = InputBox("Enter number of times to copy Sheet1")    For numtimes = 1 To x        'Loop by using x as the index number to make x number copies.        'Replace "Sheet1" with the name of the sheet to be copied.        ActiveWorkbook.Sheets("Sheet1").Copy _           After:=ActiveWorkbook.Sheets("Sheet1")    NextEnd Sub				

نسخ مرات متعددة ActiveSheet

Sub Copier3()   Dim x As Integer      x = InputBox("Enter number of times to copy active sheet")   For numtimes = 1 To x      'Loop by using x as the index number to make x number copies.      ActiveWorkbook.ActiveSheet.Copy _         Before:=ActiveWorkbook.Sheets("Sheet1")         'Put copies in front of Sheet1.         'Replace "Sheet1" with sheet name that you want.   NextEnd Sub				

نسخ كافة الأوراق في مصنف مرة واحدة

Sub Copier4()   Dim x As Integer   For x = 1 To ActiveWorkbook.Sheets.Count      'Loop through each of the sheets in the workbook      'by using x as the sheet index number.      ActiveWorkbook.Sheets(x).Copy _         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)         'Puts all copies after the last existing sheet.   NextEnd Sub				

نموذج التعليمات البرمجية نقل أوراق العمل

نقل الورقة النشطة إلى موضع جديد في مصنف

Sub Mover1()    ActiveSheet.Move _       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'Moves active sheet to end of active workbook.End Sub				

نقل الورقة النشطة إلى مصنف آخر

Sub Mover2()    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)    'Moves active sheet to beginning of named workbook.    'Replace Test.xls with the full name of the target workbook you want.End Sub				

نقل أوراق متعددة في ActiveWorkbook إلى مصنف آخر

Sub Mover3()   Dim BkName As String   Dim NumSht As Integer   Dim BegSht As Integer   'Starts with second sheet - replace with index number of starting sheet.   BegSht = 2   'Moves two sheets - replace with number of sheets to move.   NumSht = 2   BkName = ActiveWorkbook.Name        For x = 1 To NumSht      'Moves second sheet in source to front of designated workbook.      Workbooks(BkName).Sheets(BegSht).Move _         Before:=Workbooks("Test.xls").Sheets(1)         'In each loop, the next sheet in line becomes indexed as number 2.      'Replace Test.xls with the full name of the target workbook you want.    NextEnd Sub				
مراجع

Microsoft Excel X ل Mac والإصدارات الأحدث

لمزيد من المعلومات حول أسلوب نسخ من محرر Visual Basic، انقر فوق البحث عن تعليمات Visual Basic القائمة تعليمات ، اكتب أسلوب النسخ، انقر فوق بحث، وثم انقر فوق لعرض "أسلوب نسخ". يتم سرد المواضيع الثلاثة. اختر الذي ينطبق على أوراق العمل.

لمزيد من المعلومات حول أسلوب نقل من محرر Visual Basic، انقر فوق البحث عن تعليمات Visual Basic القائمة تعليمات ، اكتب تحريك الأسلوب، انقر فوق بحث، وثم انقر فوق لعرض "أسلوب النقل". يتم سرد المواضيع الثلاثة. اختر الذي ينطبق على أوراق العمل.

2001 Excel لماكنتوش

لمزيد من المعلومات حول أسلوب نسخ من محرر Visual Basic، انقر فوق "مساعد Office"، اكتب أسلوب النسخ، انقر فوق بحث، وثم انقر فوق لعرض "نسخة أسلوب (MS Excel VBA)".

لمزيد من المعلومات حول أسلوب نقل من محرر Visual Basic، انقر فوق "مساعد Office"، اكتب تحريك الأسلوب، انقر فوق بحث، وثم انقر فوق لعرض "الأسلوب Move (MS Excel VBA)."

للحصول على معلومات إضافية حول المشاكل المتعلقة بنسخ أوراق العمل التي تحتوي على تعليمات برمجية في نفس المصنف، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
286266 XL2001: Excel عن الاستجابة عند محاولة نسخ ورقة العمل في نفس المصنف

Microsoft Excel 98 لماكنتوش Edition

لمزيد من المعلومات حول أسلوب نسخ من محرر Visual Basic، انقر فوق "مساعد Office"، اكتب أسلوب النسخ، انقر فوق بحث، ومن ثم انقر فوق لعرض "نسخة أسلوب (Excel 97)".

لمزيد من المعلومات حول أسلوب نقل من محرر Visual Basic، انقر فوق مساعد، نوع يمكن تحريك الأسلوب، انقر فوق بحث، وثم انقر فوق لعرض "نقل أسلوب (Excel 97)".

XL2001KB ماك XL2001 XL98 Excel نسخ التعليمات البرمجية VBA برمجة أتمتة نقل ماكرو Visual Basic شل XL2004

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 288402 - آخر مراجعة: 01/02/2016 03:14:00 - المراجعة: 6.0

Microsoft Excel 2004 for Mac, Microsoft Excel X لـ Mac, Microsoft Excel 2001 لـ Macintosh, Microsoft Excel 98 لـ Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtar
تعليقات
=">cript> >>
Paraguay - Español
Venezuela - Español
id=1&t=">4050&did=1&t=">r varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("