نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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


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


للتعامل مع هذه الوظيفة، تحتاج فقط لتشغيل أدناه رمز.

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

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

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

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

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


العد بالألوان

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


أدوات الإنتاجية الموصى بها لبرنامج Excel

Kutools for Excel يساعدك دائمًا في إنهاء العمل قبل الوقت ، وتبرز من الحشد

  • أكثر من الميزات المتقدمة القوية 300 ، المصممة لسيناريوهات عمل 1500 ، مما يزيد الإنتاجية بنسبة 70 ، يمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
  • لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
  • كن خبيرًا في Excel في دقائق 3 ، يمكن إجراء العمليات المعقدة والمتكررة في ثوانٍ ،
  • قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
  • 110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
  • 60-day ميزات كاملة تجريبية مجانية. 60 يوم استعادة الاموال الضمانات. سنوات 2 من الترقية المجانية والدعم.

يجلب الاستعراض المبوب والتحرير إلى Microsoft Office ، أقوى بكثير من علامات تبويب المتصفح

  • تم تصميم Office Tab لتطبيقات Word و Excel و PowerPoint وتطبيقات Office الأخرى: Publisher و Access و Visio و Project.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mato · 1 months ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
  • To post as a guest, your comment is unpublished.
    Justin · 7 months ago
    Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
  • To post as a guest, your comment is unpublished.
    Amy Napier · 9 months ago
    hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
    • To post as a guest, your comment is unpublished.
      Sunny · 8 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.