Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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 أثناء النقر فوق الخلية المرجعية مرتين.


عد حسب اللون

في بعض الحالات ، قد يكون لديك نطاق من السعرات الحرارية بألوان متعددة ، وما تريده هو حساب / جمع القيم بناءً على نفس اللون ، كيف يمكنك الحساب بسرعة؟
بإضافة إلى كوتولس ل إكسيل's عد حسب اللون، يمكنك إجراء العديد من العمليات الحسابية بسرعة حسب اللون ، كما يمكنك إنشاء تقرير بالنتيجة المحسوبة.
عد الوثيقة حسب اللون

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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (8)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أعتقد أن هذا قد يكون بالضبط ما أبحث عنه. أحتاج إلى النص المشار إليه ليكون له نفس الألوان والميزات من الصفحة المرجعية. الشيء الوحيد المختلف عني هو أنني أسحب من نطاق أكبر. لم أستخدم VBA مطلقًا من قبل لذا أردت التأكيد قبل إجراء التغييرات. أنا أسحب من مستند (الورقة 2) إلى (الورقة 1). لقد استخدمت صيغ IF للقيام بذلك ، لذا فهي تُرجع قيمة من 3 أعمدة مختلفة وليست في صف واحد. الأعمدة هي F ، H ، J. هل يمكنك مساعدتي في معرفة كيف يمكنني أن أجعل هذا يعمل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عذرا ، مشكلتك معقدة بعض الشيء ، لا أفهم بشكل واضح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أتعامل مع قضية مماثلة. لدي معادلة في العمود C ، والتي تأخذ قيمة من نفس الصف ، العمود A. (ولكن فقط إذا كان B3 ليس x و A3 ليس فارغًا):

= IF (B3 = "x"؛ "y"؛ IF (A3 = ""؛ "z"؛ A3))

تبدو خلايا العمود A كما يلي: OK 2019_12_03
لكن كلمة "OK" بخط عريض. أود الاحتفاظ بهذا الشكل.
أريد هذا لمئات الخلايا ، لذا فإن النقر فوق أو كتابة نص لكل منها أمر غير مرغوب فيه. أي أفكار إذا كانت هذه الميزة موجودة؟ سأقدر نوعًا ما من وظيفة "WITHFORMAT ()" التي يمكنني وضعها في الصيغة ، لذلك ستحتفظ الصيغة التالية بالتنسيق الأصلي:

= IF (B3 = "x"؛ "y"؛ IF (A3 = ""؛ "z"؛ WITHFORMAT (A3)))
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على السيناريو لك. هل يمكن أن تخبرني ما إذا كانت هناك طريقة لتحديث الخلية المرتبطة دون الحاجة إلى النقر نقرًا مزدوجًا فوق الخلية المرجعية؟ شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقاسم هذا. هل يوجد برنامج نصي لـ VBA يسمح بالإشارة إلى نطاق من الخلايا في مصنف واحد ثم عرض قيمة وتنسيق الخلايا المشار إليها في مصنف مختلف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقاسم هذا. لدي مجموعة من الخلايا في WorksheetA و Sheet1 و Range G3: G3000 التي أريد الرجوع إليها في WorksheetB و Sheet1 و Range G3: G3000. أحتاج إلى WorksheetB و Sheet1 و Range G3: G3000 لعرض قيمة وتنسيق الخلايا المشار إليها في WorksheetA و Sheet1 و G3: G3000. هل يوجد برنامج نصي لـ VBA يسمح بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تيانيس أونو كيو البحر دنترو ديل ميسمو أرشيفو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أود الاحتفاظ بتنسيق الخلية المرجعية الخاصة بي. ومع ذلك ، حتى مع VBA الخاص بك لا يعمل. هل يمكنك مساعدتي من فضلك؟
أود أن تكون خلية B2 الخاصة بي في الورقة 1 الخاصة بي هي الخلية المرجعية لخلايا C2 الخاصة بي من الأوراق 2,3,4,5,6,7 ، XNUMX ، XNUMX ، XNUMX ، XNUMX ، XNUMX.
وثيقي عبارة عن قائمة بالأشخاص ، لذلك سيكون لدي عدة خلايا من المراجع وليس استمرار.
شكرا مقدما
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL