كيف تنسخ الصيغ من ملف عمل إلى آخر دون الاحتفاظ بالروابط؟

قد تحتاج أحيانًا في Excel إلى نقل أو نسخ الصيغ من ملف عمل إلى آخر دون أن تبقى الصيغ الملصقة مرتبطة بملف العمل الأصلي. وغالبًا ما يظهر هذا الموقف عند توحيد البيانات، أو مشاركة النماذج مع الآخرين، أو إعادة استخدام منطق الصيغ في ملفات منفصلة. لكن المشكلة أن نسخ ولصق الصيغ بين ملفات العمل بشكل افتراضي يؤدي إلى إنشاء مراجع خارجية غير مرغوبة، والتي قد تُسبب أخطاءً، أو تُبطئ العمليات الحسابية، أو تتعطّل تمامًا عندما لا يكون ملف المصدر متاحًا. لحسن الحظ، توجد طرق عملية متعددة تتيح لك نسخ الصيغ بدقة بين ملفات العمل دون جرّ تلك الروابط الخارجية معها. فيما يلي أدلة خطوة بخطوة تناسب مختلف السيناريوهات وتفضيلات المستخدمين، بما في ذلك ميزات Excel المدمجة وأدوات مفيدة لأتمتة العملية أو تسهيلها.

نسخ الصيغ من ملف عمل إلى آخر دون روابط عن طريق تعديل الصيغ

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

1. حدد النطاق الذي يحتوي على الصيغ التي تريد نسخها. على سبيل المثال، حدد النطاق H1:H6. بعد ذلك، انتقل إلى علامة التبويبالصفحة الرئيسية، وانقر علىبحث واختيار، ثم اختراستبدال.

تلميح:يمكنك فتح مربع حوار البحث والاستبدال بسرعة بالضغط علىCtrl+H في نفس الوقت.

2. في مربع حوار البحث والاستبدال، أدخل علامة يساوي «=» في حقلبحث عن، وأدخل مسافة في حقلاستبدال بـ، ثم انقر علىاستبدال الكل.

بعد الانتهاء، سيعرض Excel مربع حوار يوضح عدد عمليات الاستبدال التي تمت. انقر علىموافق، ثم أغلق نافذة البحث والاستبدال.

3. مع بقاء النطاق محددًا، انسخه ()Ctrl+C)، ثم الصقه (Ctrl+V) في ملف العمل الهدف.

4. في ملف العمل الوجهة، حدد النطاق الذي تم لصقه. ثم افتح مربع حوار البحث والاستبدال مرة أخرى بالنقر علىالصفحة الرئيسية > بحث واختيار > استبدال، أو استخدمCtrl + H.

5. في مربع حوار البحث والاستبدال، أدخل مسافة واحدة في حقلبحث عن، وعلامة يساوي «=» في حقلاستبدال بـ، ثم انقر علىاستبدال الكل.

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

ادمج بسهولة أوراق عمل/ملفات عمل متعددة في ورقة عمل/ملف عمل واحد

قد يكون دمج عشرات الأوراق من ملفات عمل مختلفة في ورقة واحدة أمرًا مزعجًا. لكن مع أداة Kutools لـ Excel تجميع (أوراق العمل وملفات العمل)، يمكنك إنجاز المهمة بنقرات قليلة فقط!

احصل الآن على نسخة تجريبية مجانية كاملة الميزات لمدة 30 يومًا!

نسخ الصيغ من ملف عمل إلى آخر دون روابط عن طريق تحويل الصيغ إلى نص

إذا كنت تفضّل طريقة أكثر سلاسة وخالية من المخاطر، فإن Kutools لـ Excel توفّر ميزة مدمجة لتحويل الصيغ إلى نص والعكس. إنها وسيلة توفر لك الوقت والجهد وتقيك الإحباط، خاصةً عند التعامل مع صيغ معقدة أو دُفعات كبيرة يسهل تعطيلها بسبب الاستبدال اليدوي للنصوص. وعند تحويل الصيغ إلى نص، تضمن أن Excel لن يحوّلها تلقائيًا إلى روابط عند لصقها في ورقة عمل جديدة؛ ويمكنك لاحقًا استعادتها كصيغ بنقرة واحدة.

1. حدد النطاق الذي يحتوي على الصيغ المراد نسخها، ثم انقر علىKutools > المحتوى > تحويل الصيغ إلى نص.

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

3. بينما لا تزال الخلايا المُلصَقة مُحدَّدة في مصنف الوجهة، اعُد إلىKutools > المحتوى > تحويل النص إلى صيغة. الآن، أصبحت الخلايا صيغًا نشطة مجددًا وخالية من روابط المصنفات الخارجية.

انسخ الصيغ من مصنف إلى آخر دون روابط باستخدام نسخ دقيق

خيارٌ فعّال آخر هو استخدام ميزةالنسخ الدقيقمن Kutools لـ Excel. هذه الأداة مثالية عندما تريد نسخ ولصق عدة صيغ بدقة—بما في ذلك التنسيقات—إلى ورقة عمل جديدة، دون خطر إنشاء روابط أو تحويل المراجع. ويُعدّ هذا الحل الأمثل عند التعامل مع جداول بيانات حساسة أو معقدة، حيث تكون سلامة البيانات على درجةٍ عالية من الأهمية.

1. حدد النطاق الذي يحتوي على الصيغ التي ترغب في نسخها—مثلًا، H1:H6—ثم انقرKutools > نسخ دقيق.

2. في مربع حوار نسخ الصيغ بدقة، انقرموافقللمتابعة.

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

انسخ الصيغ من مصنف إلى آخر دون روابط باستخدام النص التلقائي

عندما تعيد استخدام نفس الصيغ بشكل متكرر في مصنفات مختلفة، أو ترغب في حفظ صيغ مهمة كاختصارات شخصية، فإن ميزةالنص التلقائيفي Kutools لـ Excel تكون خيارًا مثاليًا! يتيح لك هذا الحل تخزين أي صيغة كإدخال نص تلقائي، ثم إعادة استخدامها فورًا عبر جلسات Excel ومصنفاته المختلفة — مما يبسّط المهام المتكررة ويقلل من احتمالية الوقوع في أخطاء النسخ واللصق.

1. انقر على الخلية التي تحتوي على الصيغة التي تريد إعادة استخدامها، ثم حدد الصيغة من شريط الصيغة.

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

3. في مربع حوار النص التلقائي الجديد، عيِّن اسمًا وصفيًّا، ثم انقر علىإضافةللتأكيد.

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

انسخ الصيغ من مصنف إلى آخر دون روابط باستخدام ماكرو VBA

إذا كنت غالبًا بحاجة إلى نقل الصيغ بين المصنفات—خاصةً بشكل جماعي أو كجزء من سير عمل آلي—فإن ماكرو VBA هذا ينسخ الصيغ عن طريق تحويل الرمز “=” مؤقتًا إلى نص بديل لتجنب الروابط الخارجية، ثم يلصقها في الوجهة ويعيدها بعد ذلك كصيغ نشطة. ولايقومبتعديل خلايا المصدر الخاصة بك، ولايتطلبالتبديل بين المصنفات أثناء فتح مربع حوار.

1. افتح مصنفي المصدر والوجهة معًا. اضغطAlt + F11، ثم انقرإدراج > وحدة نمطية، والصق الكود أدناه:

Sub CopyFormulas_NoLinks_NoSwitch()
    Dim src As Range
    Dim rowsCnt As Long, colsCnt As Long
    Dim buf() As Variant
    Dim r As Long, c As Long
    Dim s As String, placeholder As String
    Dim wbName As String, shName As String, addr As String
    Dim tgtTL As Range, tgt As Range
    Dim oldCalc As XlCalculation

    placeholder = "#_EQUAL_#"

    On Error GoTo ExitHandler
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    oldCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    ' 1) Pick contiguous source range (any workbook)
    Set src = Application.InputBox( _
        Prompt:="Select the source range that contains formulas:", _
        Title:="Copy formulas without links", Type:=8)
    If src Is Nothing Then GoTo ExitHandler
    If src.Areas.Count > 1 Then
        MsgBox "Please select a single contiguous range.", vbExclamation
        GoTo ExitHandler
    End If

    rowsCnt = src.Rows.Count
    colsCnt = src.Columns.Count

    ' 2) Get destination info WITHOUT switching windows during a modal dialog
    wbName = Application.InputBox( _
        Prompt:="Enter DESTINATION workbook name (as shown in title bar, e.g., Book2.xlsx):", _
        Title:="Destination workbook", Type:=2)
    If wbName = "" Then GoTo ExitHandler

    shName = Application.InputBox( _
        Prompt:="Enter DESTINATION sheet name (e.g., Sheet1):", _
        Title:="Destination sheet", Type:=2)
    If shName = "" Then GoTo ExitHandler

    addr = Application.InputBox( _
        Prompt:="Enter top-left DESTINATION cell address (e.g., A1):", _
        Title:="Destination top-left cell", Type:=2)
    If addr = "" Then GoTo ExitHandler

    ' 3) Resolve destination references
    Dim wb As Workbook, ws As Worksheet
    On Error Resume Next
    Set wb = Application.Workbooks(wbName)
    On Error GoTo ExitHandler
    If wb Is Nothing Then
        MsgBox "Workbook '" & wbName & "' is not open.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set ws = wb.Worksheets(shName)
    On Error GoTo ExitHandler
    If ws Is Nothing Then
        MsgBox "Worksheet '" & shName & "' not found in '" & wbName & "'.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set tgtTL = ws.Range(addr)
    On Error GoTo ExitHandler
    If tgtTL Is Nothing Then
        MsgBox "Invalid address '" & addr & "'.", vbExclamation
        GoTo ExitHandler
    End If

    Set tgt = tgtTL.Resize(rowsCnt, colsCnt)

    ' 4) Build a text buffer so we never touch the source cells or use the clipboard
    ReDim buf(1 To rowsCnt, 1 To colsCnt)
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If src.Cells(r, c).HasFormula Then
                s = src.Cells(r, c).Formula
                ' Replace only the leading "=" for speed/safety
                If Left$(s, 1) = "=" Then s = placeholder & Mid$(s, 2)
                buf(r, c) = s
            Else
                buf(r, c) = src.Cells(r, c).Value
            End If
        Next c
    Next r
    tgt.Value = buf

    ' 5) Restore placeholders to live formulas in destination
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If VarType(tgt.Cells(r, c).Value) = vbString Then
                s = CStr(tgt.Cells(r, c).Value)
                If Left$(s, Len(placeholder)) = placeholder Then
                    s = "=" & Mid$(s, Len(placeholder) + 1)
                    tgt.Cells(r, c).Formula = s
                End If
            End If
        Next c
    Next r

    MsgBox "Formulas copied and restored successfully (no external links).", vbInformation
ExitHandler:
    On Error Resume Next
    Application.Calculation = oldCalc
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

2. اضغطAlt + F8، ثم شغّلCopyFormulas_NoLinks_NoSwitch. حدد نطاق المصدر، ثم اكتب ببساطة اسم المصنف الوجهة واسم الورقة وعنوان الخلية العلوية اليسرى—دون الحاجة إلى تبديل النوافذ أثناء المطالبات. يقوم الماكرو بكتابة نص بديل في الوجهة، ثم يعيده إلى صيغ نشطة (بدون روابط).

عرض توضيحي: انسخ الصيغ من مصنف إلى آخر دون روابط

أفضل أدوات إنتاجية Office

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وكذلك في Publisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل نفس النافذة، وليس في نوافذ منفصلة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات النقرات بالماوس كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع إضافات Kutools في تثبيت واحد

Kutools for Office هي حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
• مثبّت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• تعمل بشكل أفضل معًا— إنتاجية مُبسّطة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، ولا بطاقة ائتمان
• أفضل قيمة— وفّر مقارنةً بشراء كل إضافة على حدة

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...