كيفية نسخ الصيغ إلى ورقة أخرى Excel VBA

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

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

ابدء

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

تسجيل ماكرو

لتسجيل ماكرو ، اتبع الخطوات التالية:

1. افتح المصنف الذي يحتوي على الورقة بالصيغ التي تريد نسخها.

2. اضغط على زر "تسجيل ماكرو" في علامة التبويب "المطور". إذا كنت لا ترى علامة التبويب "المطور" ، فانقر هنا لمعرفة كيفية إضافتها.

3. أدخل اسمًا للماكرو الخاص بك واختر مفتاح الاختصار إذا رغبت في ذلك.

4. انقر فوق "موافق".

5. حدد الخلية التي تحتوي على الصيغة التي تريد نسخها.

6. اضغط على "Ctrl" + "C" لنسخ الخلية المحددة.

7. حدد الخلية حيث تريد لصق الصيغة المنسوخة.

8. اضغط على "Ctrl" + "V" للصق الصيغة المنسوخة.

9. اضغط على زر "إيقاف التسجيل" في علامة التبويب "المطور".

الماكرو الخاص بك جاهز الآن للاستخدام! لتشغيله ، ما عليك سوى الضغط على مفتاح الاختصار الذي قمت بتعيينه له ، أو النقر فوق الزر "وحدات الماكرو" في علامة التبويب "المطور" وحدد الماكرو الخاص بك من القائمة.

كتابة كود VBA يدويًا

يمكنك أيضًا تحقيق نفس النتائج عن طريق كتابة بضعة أسطر من تعليمات VBA البرمجية. لكي تفعل هذا، اتبع هذه الخطوات:

1. افتح المصنف الذي يحتوي على الورقة بالصيغ التي تريد نسخها.

2. اضغط على "Alt" + "F11" لفتح محرر Visual Basic.

3. انقر فوق "إدراج"> "وحدة".

4. أدخل الرمز التالي في الوحدة النمطية:

صيغة Sub CopyFormula ()

مصدر خافت النطاق حسب النطاق

هدف خافتنطاق كمدى

قم بتعيين sourceRange = Range (“A1”) 'قم بتغيير A1 إلى خلية الصيغة الخاصة بك

قم بتعيين targetRange = Range ("B1") "قم بتغيير B1 إلى خلية اللصق المطلوبة

targetRange.Formula = sourceRange.Formula

End Sub

5. اضغط على "F5" لتشغيل الكود.

يجب الآن نسخ الصيغة الخاصة بك إلى الخلية المطلوبة!

تعديل الماكرو لنسخ الصيغ إلى ورقة أخرى

سينسخ الماكرو الذي سجلناه في القسم السابق المعادلات داخل نفس الورقة فقط. ومع ذلك ، يمكنك تعديله بسهولة لنسخ الصيغ إلى ورقة أخرى. لكي تفعل هذا، اتبع هذه الخطوات:

1. افتح المصنف الذي يحتوي على الورقة بالصيغ التي تريد نسخها.

2. اضغط على "Alt" + "F11" لفتح محرر Visual Basic.

3. انقر نقرًا مزدوجًا فوق الماكرو الخاص بك في القائمة الموجودة على الجانب الأيسر من الشاشة. سيظهر رمز الماكرو الخاص بك على الجانب الأيمن.

4. ابحث عن السطر التالي من التعليمات البرمجية:

قم بتعيين targetRange = Range ("B1") "قم بتغيير B1 إلى خلية اللصق المطلوبة

5. قم بتغيير "B1" إلى الخلية في الورقة الأخرى حيث تريد لصق الصيغة ، باستخدام هذا التنسيق: اسم الورقة! CellAddress. على سبيل المثال ، إذا كنت تريد لصق الصيغة في الخلية B2 على ورقة تسمى "Sheet2" ، فيمكنك تغيير الرمز إلى هذا:

تعيين targetRange = Sheets (“Sheet2”). Range (“B2”)

6. اضغط على "F5" لتشغيل الكود. يجب الآن نسخ الصيغة الخاصة بك إلى الورقة الأخرى!

افكار اخيرة

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

هذه هي نهاية البرنامج التعليمي.

اترك تعليقاً

كيفية إنشاء وسائط تثبيت USB قابلة للتشغيل لنظام التشغيل Windows 11 25H2

كيفية إنشاء وسائط تثبيت USB قابلة للتشغيل لنظام التشغيل Windows 11 25H2

لإنشاء مثبت USB قابل للتشغيل لنظام التشغيل Windows 11 25H2، يمكنك استخدام Rufus و Ventoy و Command Prompt و Media Creation، وإليك الطريقة.

الإصدار 26220.7653 (KB5074157) لنظام التشغيل Windows 11 يجلب تعديلات جديدة للوضع الداكن (للمطورين، الإصدار التجريبي)

الإصدار 26220.7653 (KB5074157) لنظام التشغيل Windows 11 يجلب تعديلات جديدة للوضع الداكن (للمطورين، الإصدار التجريبي)

يعمل التحديث KB5074157 (الإصدار 26220.7653) لنظام التشغيل Windows 11 على تحسين الوضع الداكن، وإضافة دعم خلفيات WebP، وإصلاح المشكلات المتعلقة بشريط المهام، وقائمة ابدأ، والبلوتوث، والمزيد.

كان تحديث ويندوز 11 رقم KB5074109 كارثة – قائمة بالمشاكل الرئيسية

كان تحديث ويندوز 11 رقم KB5074109 كارثة – قائمة بالمشاكل الرئيسية

تسبب التحديث KB5074109، وهو تحديث يناير 2026 لنظام التشغيل Windows 11، في حدوث أعطال، وفشل في بدء التشغيل، ومشاكل في Outlook، وأخطاء في إلغاء التثبيت، مما أجبر المستخدمين على إزالته.

كيفية منع ظهور محادثات ChatGPT في نتائج بحث جوجل

كيفية منع ظهور محادثات ChatGPT في نتائج بحث جوجل

امنع ظهور محادثاتك على ChatGPT في بحث جوجل عن طريق مراجعة وحذف روابط ChatGPT العامة المشتركة، وإليك الطريقة.

كيفية تثبيت نظام ويندوز الفرعي لنظام أندرويد (WSA) على نظام ويندوز 11

كيفية تثبيت نظام ويندوز الفرعي لنظام أندرويد (WSA) على نظام ويندوز 11

يمكنك تثبيت نظام ويندوز الفرعي لنظام أندرويد (WSA) لتشغيل تطبيقات أندرويد على نظام ويندوز 11 باستخدام متجر مايكروسوفت أو باور شيل. إليك الطريقة

كيفية منع ChatGPT من استخدام بياناتك الشخصية لتدريب الذكاء الاصطناعي

كيفية منع ChatGPT من استخدام بياناتك الشخصية لتدريب الذكاء الاصطناعي

تقوم OpenAI بجمع محتويات محادثات ChatGPT الخاصة بك لتدريب الذكاء الاصطناعي بشكل افتراضي، وإليك كيفية تعطيل هذه الميزة لتحسين الخصوصية.

الإصدار 27913 لإصدارات ويندوز 11 مع تغييرات في تطبيق الإعدادات (Canary)

الإصدار 27913 لإصدارات ويندوز 11 مع تغييرات في تطبيق الإعدادات (Canary)

يأتي إصدار Windows 11 رقم 27913 (Canary) بواجهة مستخدم مُعاد تصميمها للإعدادات، ويعيد صوت بدء التشغيل الخاص بنظام Vista، ويصلح مشكلات خلفية الشاشة السوداء، والمزيد.

الإصدار 26120.4733 (KB5062651) لنظام التشغيل Windows 11 24H2 مع التغييرات (إصدار تجريبي)

الإصدار 26120.4733 (KB5062651) لنظام التشغيل Windows 11 24H2 مع التغييرات (إصدار تجريبي)

الإصدار 26120.4733 (KB5062651) لنظام التشغيل Windows 11 يتضمن وصفًا جديدًا للصور بتقنية الذكاء الاصطناعي، وإعادة تصميم أذونات التطبيقات، وحماية المسؤول في قناة الإصدار التجريبي.

الإصدار 26200.5702 (KB5062653) لنظام التشغيل Windows 11 25H2 يجلب ميزات جديدة (للمطورين)

الإصدار 26200.5702 (KB5062653) لنظام التشغيل Windows 11 25H2 يجلب ميزات جديدة (للمطورين)

الإصدار 26200.5702 (KB5062653) لنظام التشغيل Windows 11 25H2 يوفر أوصاف صور الذكاء الاصطناعي، وأمانًا إداريًا جديدًا، ومربعات حوار أذونات معاد تصميمها، والمزيد.

كيفية تثبيت تطبيق باستخدام Winget على نظام التشغيل Windows 10

كيفية تثبيت تطبيق باستخدام Winget على نظام التشغيل Windows 10

يمكنك الآن استخدام أمر winget لتثبيت التطبيقات على نظام التشغيل Windows 10، وهذه هي الخطوات اللازمة للقيام بذلك باستخدام مدير حزم Windows.