اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by نبيل عبد الهادي,

الردود الموصى بها

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

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

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

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

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

New Microsoft Excel Worksheet.xls

رابط هذا التعليق
شارك

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

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

18-4-2020.rar

رابط هذا التعليق
شارك

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

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

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

الكود


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


 

رابط هذا التعليق
شارك

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

مع خالص الشكر

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

اخيك 

استاذى سؤال هل يمكن تشغيل الكود بالضغط دبل كليك على الخلية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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information