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

كيفية تغيير / تحويل المرجع المطلق إلى المرجع النسبي في Excel؟

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

قم بتغيير المرجع المطلق إلى المرجع النسبي باستخدام مفتاح F4

قم بتغيير المرجع المطلق إلى المرجع النسبي برمز VBA

قم بتغيير المرجع المطلق بسرعة إلى المرجع النسبي باستخدام Kutools for Excel

المرجع المطلق

المرجع النسبي


السهم الأزرق الحق فقاعة قم بتغيير المرجع المطلق إلى المرجع النسبي باستخدام مفتاح F4

باستخدام مفتاح الاختصار F4 ، يمكننا بسهولة تبديل المرجع المطلق إلى المرجع النسبي ، يرجى اتباع الخطوات التالية:

ضع المؤشر خلف $ A $ 1 ، ثم اضغط على F4 ثلاث مرات ، سيصبح 1 $ ، $ A1 ، A1 على التوالي. انظر لقطة الشاشة:

وفقًا لهذه الخطوة ، ضع المؤشر خلف $ B $ 1 لتحصل على B1.

وسيصبح مرجع الخلية هذا مرجعًا نسبيًا من مرجع مطلق.

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


السهم الأزرق الحق فقاعة قم بتغيير المرجع المطلق إلى المرجع النسبي برمز VBA

باستخدام التعليمات البرمجية لـ VBA ، يمكنك تغيير نطاق مراجع خلايا الصيغ بسرعة من المراجع المطلقة إلى المراجع النسبية في كل مرة.

1. حدد النطاق الذي تريد تغييره.

2. انقر المطور > Visual Basic أو يمكنك الضغط ALT + F11، سيتم عرض نافذة Microsoft Visual Basic للتطبيقات جديدة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في ملف وحدة:
فبا: تحويل المطلق إلى مرجع نسبي.

Sub ConverFormulaReferences()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & Chr(13) _
& "Row absolute = 2" & Chr(13) _
& "Column absolute = 3" & Chr(13) _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
    Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

3. ثم اضغط وثيقة-نسبي مطلق -6 لتشغيل الرمز ، وسيظهر مربع موجه لتحديد نطاق للتحويل ، ثم انقر فوق "موافق" ويعرض مربع حوار آخر ليطالبك بالنوع الذي تريد استخدامه. ثم يمكنك اختيار النوع المناسب الذي تحتاجه. في هذا المثال ، سأدرج 4. انظر لقطات الشاشة:

4. ثم اضغط OK. تم تغيير كافة المراجع المطلقة في التحديد إلى مراجع نسبية في الصيغة.

هذا رمز VBA متعدد الوظائف ، مع هذا الرمز ؛ يمكنك أيضًا التغيير بالنسبة إلى المرجع المطلق أو تغيير الصف المطلق أو تغيير العمود المطلق.


السهم الأزرق الحق فقاعة قم بتغيير المرجع المطلق بسرعة إلى المرجع النسبي باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 100 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا بدون قيود في 30 يومًا. احصل عليه الآن

كوتولس ل إكسيل تتيح لك التغيير المطلق إلى المرجع النسبي أو العكس بسرعة وسهولة. يرجى القيام بما يلي:

الخطوة 1. انتقل إلى تحديد النطاق الذي يحتوي على الصيغ التي تريد تغيير مراجع الخلايا في ورقة العمل.

الخطوة شنومكس. انقر كوتولس > تحويل المراجع. سيتم عرضها تحويل مراجع الصيغ صندوق المحادثة. انظر لقطة الشاشة:

الخطوة 3. تحقق إلى قريب ثم انقر Ok or التقديم في ال تحويل مرجع الصيغة الحوار. سيغير المرجع المطلق إلى المرجع النسبي.

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

للحصول على معلومات أكثر تفصيلا حول تحويل المرجع، يرجى زيارة تحويل وصف الميزة المرجعية.


مقالة ذات صلة:تغيير المرجع النسبي إلى المرجع المطلق

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

🤖 مساعد 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Function ConvertMyAddress(strRng As String) As String
Dim rngSelection As Range

Set rngSelection = Application.Range(strRng)
'// Test if empty
If rngSelection Is Nothing Then Exit Function

' MsgBox rngSelection.Address(0, 0) 'A1
' MsgBox rngSelection.Address(1, 0) '$A1
' MsgBox rngSelection.Address(0, 1) 'A$1
' MsgBox rngSelection.Address(1, 1) '$A$1
' MsgBox rngSelection.Address '$A$1
'
' MsgBox rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)
' MsgBox "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)

ConvertMyAddress = rngSelection.Address(1, 1)

End Function
This comment was minimized by the moderator on the site
Wao Excellent teh VBA Code Works Perfect, Thank You very Much
This comment was minimized by the moderator on the site
Excel 2010. I clicked on cancel when the prompt comes up, but excel still ran the script and it froze my computer for several hours. I only had 1 cell highlighted anyway, so even if the script did run, why did it take so long to run? [i realize now that despite pressing cancel, the code ran and made every cell in the worksheet relative ! :( ] I was assigning it to a form button vs pressing play within VBA window. I've used other scripts from KuTools and never experienced this nonsense.
This comment was minimized by the moderator on the site
The F4 toggle works in all versions. but you MUST be in edit mode first. I always press F2 (puts you into edit mode) then F4 to toggle between the four options.
This comment was minimized by the moderator on the site
With the shortcut key F4, we can easily toggle the absolute reference to relative reference, please do //as// the following steps. Forgot to mention F4 didn't work with my excel (windows 7) but your macro and invite to Kutools is great. Sorry about repeat sends, I thought the code wasn't working.
This comment was minimized by the moderator on the site
Thank you very much. Descriptive, easy to follow information.
This comment was minimized by the moderator on the site
Thank you very much, descriptive, easy to follow information.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations