كود اضع به معادلة

[abouelhassan]

الاساتذة الاخوة الافاضل

قربت على الانتهاء من برنامجى بفضل الله ثم فضلكم

لدى شيت احتاج الى كود لينقل المعادلات الى الصفين 46-47 والمعادلات التى بعمود n 

لانها تتمسح باستمرار يعنى عايز المعادلات المزجودة بس فى كود وهى عبارة عن معادلات جمع 

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

New Microsoft Excel Worksheet.xls

[ِAmerAdnan]

سيدي انا لم افهم ماذا تريد , ولكن لاحظت ان الجمع يبداء من الصف الثالث والمفروض يبداء من السطر الثاني , ولذلك عدلت معادلة الجمع وقمت بعمل حماية للمعادلات من المسح

ارجوا ان يكون هذا المطلوب 

18-4-2020.rar

[abouelhassan]

ليس هذا هو المطلوب أستاذ AmerAdnan ..أشكرك كثيراً

كما اتمنى اخوانى التعديل على هذا الكود

حيث انه يظهر النتيجة عند اختيار اى خلية اريده يظهر النتيجة فى حالة اختيار الخلية c2 ,D2

الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ShowCaledar
End Sub

 

[abouelhassan]

اخوانى توصلت للحل بالكود ولكن احتاج التعديل على الكود ليعمل فى اول اربع شيتات بالملف

مع خالص الشكر

Sub formula()
Range("b46:n46").formula = "=SUM(B3:B43)"
  Range("b47:n47").formula = "=SUM(B7:B13,B27,B32)"
  Range("n2:n44").formula = "=SUM(B2:m2)"

End Sub

الكود يعمل تمام فى شيت واحد احتاج تطبيقه فى اول اربع شيتات مرة واحدة

[نبيل عبد الهادي]

Sub Button1_Click()
   Dim ws As Worksheet
   WkSheets = Array("ورقة1", "ورقة2", "ورقة3", "ورقة4")
   
   For Each ws In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4"))
   
      ws.Select
      Range("b46:n46").Formula = "=SUM(B3:B43)"
  Range("b47:n47").Formula = "=SUM(B7:B13,B27,B32)"
  Range("n2:n44").Formula = "=SUM(B2:m2)"
  
   Next ws
End Sub

غير  المصفوفه باسماء الاوراق الاربعة لديك

[abouelhassan]

استاذ نبيل عبد الهادي

اشكرك من كل قلبى تمام الكود يعمل تمام بارك الله فيك اخى واستاذى احترام من القلب

اخيك 

استاذى سؤال هل يمكن تشغيل الكود بالضغط دبل كليك على الخليةA46 فى اى شيت من الاربعة

دون الربط بزر مع الشكر والتقدير

[نبيل عبد الهادي]

ضع الكود التالي في حدث كل ورقة من الاوراق الاربعة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address = Range("A46").Address Then
Button1_Click
 End If
End Sub

 

[abouelhassan]

اشكرك استاذى من كل قلبى 

بس ظهر لى خطا بالكود وهو

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

مع خالص شكرى 

[نبيل عبد الهادي]

مثال 

 

New Microsoft Excel Worksheet_2.xlsm

[abouelhassan]

اكثر الله خيرك استاذنا يعمل تماما التمام 

حفظك الله وبارك لك فى حياتك اللهم امين يارب