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

ارجو اضافة تعديلات بسيطع على الكود


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

السلام عليكم ورحمة الله وبركاته

احلى وارق تحيه مسائيه لجميع

اساتذه وعباقرة الصرح الكبير

عندي ملف وفيه ورقة3 لجلب تصنيفات

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

شاكر تعاونكم

تلميذكم المحب أبو نصار

اليكم المرفق

http://www.2shared.com/file/LktDkrus/test.html

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

اخي ابو نصار

الرابط لا يعمل

يرجى رفعه الى المنتدى افضل من رفعه على مواقع الرفع الاخرى

وان كان ولا بد فانصحك بموقع 4shard

بواحمد

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

الأخ المفضال ابو أحمد الرابط يعمل جيدا

السلام عليكم اخي ابوموضي

عند فتحي للرابط تظهر هذه الرسالة

Your free download limit is over

ولا استطيع التحميل

وشكراً

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

السلام عليكم

اخي ابو نصار استخدم الكود التالي

Private Sub ComboBox1_Change()

Application.ScreenUpdating = False

[a3: ax2000].ClearContents

ورقة1.[a3:az3].AutoFilter

ورقة1.[a3:az3].AutoFilter Field:=6, Criteria1:=ComboBox1

ورقة1.Range("A4:Az2000").SpecialCells(xlCellTypeVisible).Copy

Range("a3").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _

        xlNone, SkipBlanks:=False, Transpose:=False

ورقة1.[a3:az3].AutoFilter

x = Range("b15000").End(xlUp).Row + 1

Cells(x, "b") = "المجمـــــــــوع"

Cells(x, "c") = Application.WorksheetFunction.SUM(Range([c3], Cells(x, "c")))

Cells(x, "an") = Application.WorksheetFunction.SUM(Range([an3], Cells(x, "an")))

Cells(x, "ao") = Application.WorksheetFunction.SUM(Range([ao3], Cells(x, "ao")))

Cells(x, "aq") = Application.WorksheetFunction.SUM(Range([aq3], Cells(x, "aq")))

Cells(x, "aw") = Application.WorksheetFunction.SUM(Range([aw3], Cells(x, "aw")))

[d1].Select

End Sub

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

و السلام عليكم و رحمة الله و بركاته

بعد اذن الاخ العزيز / الحسامي

فقط لاثراء الموضوع

الاخ الحبيب / ابو نصار .. تفضل المرفق

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

و هذا هو الجزء الاول من الملف

و السلام عليكم و رحمة الله و بركاته

test HaNcOcK.part1.rar

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

السلام عليكم

الاستاذ القدير الحسامي كنت منتظر ردك

عبقري الله يجزيك الجنه قول امين

كفيت ووفيت واذا تضيف في عمود المسلسل

مجموع التسلسل يعني دالة count

وجمع تراكمي كل ماتختار تصنيف يجمع ويلصقها فلتكن في الخلايا c1,an1,ao1,aq1,aw1

واذا اخترت تصنيف اخر يقوم بعمل جمع تراكمي في كلن من الاعمدة 1 c1,an1,ao1,aq1,aw

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

يظهر جمع الكل في كلن c1,an1,ao1,aq1,aw1

او تضيف في التكست بوكس تحديد الكل بمعنى جلب كل التصنيفات

اللي تشوفه اسهل

وفي النهاية اتمنى لك كل التوفيق

تلميذك المحب أبو نصار

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

السلام عليكم

الاستاذ هانكوك وهذا برضه حل

مشكور الله يحفظك وفي ميزان حسناتك انشاء الله

واذا عندك فكره ااحلى للجمع التراكمي

تكون كذا جمل الله حالك

اشكرك

دمت في حفظ الله ورعايته

والسلام عليكم

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

السلام عليكم

الاستاذ القديرالحسامي

ارجو تعديل الكود يضيف لخلايا المجموع

اطار شكلي مبروز بالاسود او تنسيق تسطير ثنائي

ليكون واضح وارجو قراءه مشاركتي التي قبل هذه

للجمع التراكمي

منتظر ردك

والسلام عليكم

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

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