انتقل إلى المحتوى الرئيسي

كيفية الإشارة إلى التنسيق والقيمة من خلية أخرى في Excel؟

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

تنسيق المرجع والقيمة من خلية أخرى مع لصق صورة مرتبطة
تنسيق المرجع التلقائي والقيمة من خلية أخرى باستخدام VBA


تنسيق المرجع والقيمة من خلية أخرى مع لصق صورة مرتبطة

لنفترض أنك تريد الإشارة إلى التنسيق والقيمة من الخلية A1 ، يرجى القيام بما يلي لإنجازها.

1. حدد الخلية (A1) التي تريد الرجوع إليها ، ثم انسخها بالضغط CTRL + C مفاتيح.

2. انتقل إلى الخلية التي تريد ربط الخلية المرجعية بها ، وانقر بزر الماوس الأيمن عليها ثم حدد > لصق خاص > صورة مرتبطة. انظر لقطة الشاشة:

الآن تتم الإشارة إلى تنسيق الخلية A1 وقيمتها إلى خلية محددة. وسيكون تنسيق وقيمة هاتين الخليتين متزامنين كما هو موضح أدناه.


تنسيق المرجع التلقائي والقيمة من خلية أخرى باستخدام VBA

يمكنك الإشارة إلى التنسيق والقيمة من خلية أخرى تلقائيًا عن طريق تشغيل برنامج VBA النصي أدناه.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على الخلية التي تريد الرجوع إليها ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. في ظهرت مايكروسوفت البصرية للتطبيقات نافذة ، انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية.

كود فبا: التنسيق المرجعي والقيمة من خلية أخرى

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

ملاحظات: في الكود ، الورقة 1 هي اسم الورقة الذي يحتوي على الخلية التي تحتاجها للإشارة إلى كل من القيمة والتنسيق. يعني A1 و E2 أنه سيتم الرجوع إلى الخلية A1 تلقائيًا إلى الخلية E2.

من الآن فصاعدًا ، عندما تتغير القيمة في الخلية A1 من الورقة 1 ، ستتم الإشارة إلى قيمتها وتنسيقها إلى الخلية E2 على الفور.


مقالات ذات صلة:

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations