اذهب الي المحتوي
أوفيسنا

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

قام بنشر

اخوانى الكرام

اليكم هذا الكود للجمع

قد حصلت علية عند البحث .. وقد قام اخى كيماس جزاه الله خيرا بعمل كود للجمع ولكن بطريقه مختلفه عن هذا الكود

كل ما اريده

كيفية جعل هذا الكود يجمع نطاقات مخنلفه

في الملف المرفق يقوم بجمع نطاق ( A:D ) وحاصل الجمع في العمود ( E )

ولكم جزيل الشكر

كود للجمع.rar

قام بنشر

اخوانى الكرام

كل ما اريده

كيفية جعل هذا الكود يجمع نطاقات مخنلفه

في الملف المرفق يقوم بجمع نطاق ( A:D ) وحاصل الجمع في العمود ( E )

ولكم جزيل الشكر

اخي جلال

قمت بالتعديل على الكود ليجمع النطاق (A:D) والنطاق (F:H) ويكون الناتج في العمود (E)

Private Sub Worksheet_Change(ByVal Target As Range)

i = Target.Row

Range("e" & Target.Row) = Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, 4))) + _

Application.WorksheetFunction.Sum(Range(Cells(i, 6), Cells(i, 8)))


End Sub

هل هذا ماتريد اخي جلال

ابواحمد

قام بنشر

اخى عبد الله ( ابو أحمد ) جزاك تااه خيرا

الحل جميل ولاكن اذا اردت ان اجعل حاصل الجمع في عمودين وليس في عمود واحد فكيف ذلك

اخى الفاضل عادل

الكود والله جميل جزاك الله كل خير

ولكن تبقى المشكله اذا اردت اجمع اكثر من نطاق وحاصل الجمع في اكثر من عمود كيف الحل

انا حاولت في الكود الأصلي ولم اصل الي حل

وشكرا للجميع

قام بنشر

اخى عبد الله ( ابو أحمد ) جزاك تااه خيرا

الحل جميل ولاكن اذا اردت ان اجعل حاصل الجمع في عمودين وليس في عمود واحد فكيف ذلك

وشكرا للجميع

تفضل المرفق

ناتج الجمع في عمودين.rar

قام بنشر

اخى عبد الله

جزاك الله خيرا وجعل الله اعمالك في ميزان حسناتك

شكرا لك علي المجهود الطيب .. الكود شكله اتغير كثير .. مجهود رائع .. شكرا لك

قام بنشر

اخى عبد الله

جزاك الله خيرا وجعل الله اعمالك في ميزان حسناتك

شكرا لك علي المجهود الطيب

استاذي الفاضل جلال شكراً على كلامك الطيب

الكود شكله اتغير كثير .. مجهود رائع .. شكرا لك

استاذ جلال المهم النتيجة ههههههههه

تلميذك ابواحمد

  • 1 month later...
قام بنشر (معدل)

السلام عليكم

اكواد جميلة جزاكم الله كل خير

:clapping: :clapping: :clapping:

:fff: :fff: :fff:

تم تعديل بواسطه MAHMOUDFOXMAM

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