نسخ معادلات من شيت لمجموعه شيتات اخري

[ابولجين العزالي]

الرجاء المساعده في
الشيتات من 1 حتي 10 تأخذ بياناتها من الشيت صفر وكل شيت يمثل بيانات سجل(صف) من شيت صفر 
انا عملت المعادلات في الشيت 1 مطلوب تكرارها في كل الشيتات 

6ب.rar

[سليم حاصبيا]

قم بتنشيط كل الصفحات دفعة واحدة و ذلك حسب الخطوات التالية:

1 اضغط بشكل متواصل على Ctrl , واختر الصفحات المطلوبة واحدة بعد الاخرى يواسطة نقر الماوس على اسمها

2 اترك الزر Ctrl

3 اكتب المعادلة المطلوبة (يمكنك سحب المعادلة الى اكثر من صف او عامود)

و هكذا نكتب المعادلة في كل الصفحات 

لالغاء تحديد مجموعة الصفحات قم بالضفط على صفحة ليست في هذ المجموعة

شاهد هذا الفيديو

 

[ابولجين العزالي]

شكرا لاهتمام حضرتك بس المشكله مش في كده لاني اعرف تجميع الشيتات وتنسيقها بنفس التنسيق بالتجميع
لكن عند كتابه المعادلات بتجميع الشيتات سيكتب نفس المعادله في جميع الشيتات وسأحتاج للدخول لكل شيت لتعديل رقم الخلايا للتتوافق مع السجل
اي حتي لا يرحل نفس السجل من الشيت صفر الي جميع الشيتات

[سليم حاصبيا]

اليك هذا الماكرو الذي يدرج لك 4 معادلات قي كافة الصفجات كل واحدة في مكانها المناسب

لا وقت لدي لتكملته (تستطيع انت فعل ذلك بنفس الطريقة)

الماكرو

Option Explicit
Sub Salim_Macro()
'هذا الماكرو يدرج 4 معادلات تسطيع ان تكمله لادراج كافة المعادلات
Dim Y$
 Dim x%, i%, K%: K = Sheets.Count
  For i = 2 To K
 x = Sheets(i).Index
 '===================== fromula in D5==========
 Y = "='0'!B" & x + 2
 Sheets(i).Range("d5") = Evaluate(Y)

 '===================== fromula in d8==========
 Y = "=IF('0'!C" & x + 2 & ",'0'!C" & x + 2 & ","""" )"
 Sheets(i).Range("d8") = Evaluate(Y)
'===================== fromula in F10==========
Y = "=IF('0'!D" & x + 2 & ",'0'!D" & x + 2 & ","""" )"
Sheets(i).Range("f10") = Evaluate(Y)
    
'===================== fromula in M10==========
Y = "=IF('0'!E" & x + 2 & ",'0'!E" & x + 2 & ","""" )"
Sheets(i).Range("M10") = Evaluate(Y)
 Next
End Sub

الملف مرفق اضغط فقط على الزر RUN في الصفجة 0

 

 

 

B6_salim.xls