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

بشكل عام ، تحتفظ الخلية فقط بقيمة الخلية أثناء الرجوع إلى خلية أخرى ، ولكن في هذه المقالة ، أقدم رمز 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 أثناء النقر فوق الخلية المرجعية مرتين.

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...