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

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

قام بنشر

أخي عبد الله

بالنسبة للجمع ..جرب المعادلة التالية في الخلية H3

=SUM($G$3:G3)

هل هذا هو المطلوب بالنسبة للجمع التلقائي؟

أم أنك تريد الجمع التلقائي بالكود؟ أم أنك تريد الإجمالي لكل الخلايا ؟

إذا كنت تريد الناتج لكل الخلايا فجرب المعادلة بالشكل التالي :

=SUM($G$3:$G$8)
قام بنشر

تسلم اخي ياسر ممكن الكود الأول اللي احتاجه بمشيئة الرحمن    لكن هل من طريقه لجعل الكود هذا بدلا من ظهوره في كل الخلايا تحت بعض ان يظهر فقط عندما اكون متوقف عند اجمالي معين 

 

بمعنى اخي  عندما اكون في نهاية الصف الرابع مثلا وملئت البيانات وظهرت اجمالياتها في  G6   اجد ان الكود ظهر لي في H6  وعندما انتقل لصف جديد 7 واضع مبالغ جديدة تختفى H6  ويظهر لي H7 

 

وبمعنى اخر  اريد ان لايظهر الكود الخاص بك الا اذا توقفت على اي اجمالي في الجدول  خلاف ذلك يختفى

 

 

بالنسبة للسؤال الثان للبحث منتظر اجابات من الأعضاء بارك الله فيكم

قام بنشر (معدل)

بارك الله فيك يا استاذي عمل رائع  

 

هذا الكود ممكن شرح لي ،، لأني سأضعه على ملف اكبر وجدول اكبر اخي الغالي 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("H3:H8")) Is Nothing Then
        Range("H3:H8").ClearContents
        Target.Value = Application.WorksheetFunction.Sum(Range("G3:G" & Target.Offset(0, -1).Row).Value)
    End If
End Sub

يعني ماهو اللي بقوم بتغييره اذا حبيت اغير 

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

تم تعديل بواسطه عبد الله السعيد
قام بنشر

أخي الفاضل الكود واضح

والتغيير فيه سيكون سهل .. النطاق الذي تريد فيه النتائج هو H3:H8 ويعتمد على النطاق  في العمود بجواره بحيث يأتي بناتج الجمع ...كما طلبت

قام بنشر

نعم أخي يمكنك تكرار الكود

ولكن باستخدام هذا السطر مرة أخرى مع النطاق الجديد
 

If Not Intersect(Target, Range("H3:H8")) Is Nothing Then
هنا يتم العمل على النطاق الجديد 

End If
  • 3 weeks later...
قام بنشر

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

فيستحيل على ما أعتقد في هذه الحالة عمل النطاق بشكل ديناميكي ...!!

والتعديل على الكود لن يستغرق منك ثواني !!

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information