كيف تحافظ على تنسيق الخلية أثناء الرجوع إلى خلايا الورقة الأخرى؟

بشكل عام ، تحتفظ الخلية فقط بقيمة الخلية أثناء الرجوع إلى خلية أخرى ، ولكن في هذه المقالة ، أقدم رمز VBA للاحتفاظ بقيم الخلية وتنسيقها أثناء الرجوع إلى خلية أخرى ، وتتغير قيم الخلية وتنسيقها مع تغير الخلية المرجعية على النحو التالي تظهر لقطة الشاشة.

احتفظ بتنسيق الخلية أثناء الرجوع إلى خلية أخرى باستخدام VBA

احتفظ بتنسيق الخلية أثناء الرجوع إلى خلية أخرى باستخدام VBA

للتعامل مع هذه الوظيفة ، ما عليك سوى تشغيل الكود أدناه.

1. قم بتمكين المصنف الذي تستخدمه ، اضغط على ALT + F11 مفتاح التمكين Microsoft Visual Basic للتطبيق ، وانقر نقرًا مزدوجًا فوق اسم الورقة الذي ستضع فيه الخلية المرجعية مشروع- VBAProject جزء لإظهار برنامج نصي فارغ. في هذه الحالة ، أريد الإشارة إلى الخلية A1 في ال Sheet1. انظر لقطة الشاشة:

2. الصق الكود أدناه إلى البرنامج النصي ، وفي رمز VBA ، حدد مراجع الخلية حسب حاجتك.

فبا: احتفظ بالتنسيق والقيم أثناء الرجوع إلى خلية أخرى

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

ملاحظات: A1 هي الخلية المرجعية ، B1 in ورقة 2 هي الخلية التي تريد ربطها بالخلية المرجعية والاحتفاظ بالقيم والتنسيق باستخدام A1 في Shee1.

بعد ذلك ، عند تغيير القيم أو التنسيق في الخلية A1 في الورقة 1 ، سيتم تغيير الخلية B1 في الورقة 2 أثناء النقر فوق الخلية المرجعية مرتين.

افتح Excel Magic باستخدام Kutools AI

• التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
• ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
• تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
• ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام الأدوات التي تعمل بالذكاء الاصطناعي. حمل التطبيق الآن وتجربة الكفاءة كما لم يحدث من قبل!