ابو تراب

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

بارك الله فيك اخي ياسر و سعدت بمرورك و تصحيح الخطأ...ولي الشرف ان اتعلم منكم و من جميع الاعضاء الكرام تحياتي

اضغط الملف بتنسيق ZIP او RAR

اخي الفاضل محمد..بالنسبة للاداة الاضافية هل هي نسخة تجريبية...على حسب علمي انها تباع 39 دولارا.

ممكن ترفق نسخ من الملف

ظلل الجدول القديم ثم اختر Insert ---> Table ....من المفترض ان تظهر لك علامة تصميم الجدول

اخي الفاضل هل جربت تظليل الجدول اولا و من ثم اختيار Insert ---> Table

جربت الكود وهو يعمل بدون مشاكل. الذي يبدو انه يفتح مباشرة ابدون تنفيد الكود ذا كانت اعدادات الماكر على الخيار الاول او الثالث كما في الصورة. جرب اختيار الخيار المحدد في الصورة و بعدها اعد فتح الملف:

هلا بيك اخي اكرم اخي ياسر شكرا على الملاحظة: تصحيح بالنسبة لحقل الاسم من المفترض ان يكن C2 و حقل العمر D2 Key1:=ws.Range("B2"), Order1:=xlAscending, _ Key2:=Range("C2"), Order2:=xlAscending, _ Key3:=Range("D2"), Order3:=xlAscending, _

بعد اذن اخي ياسر خليل هذا كود مع مثال: Sub btnSort_Click() Dim rngSort As Range Dim ws As Worksheet Set ws = Sheets("Data") Set rngSort = ws.Range("B2", "D7") 'Key1 = التاريخ, Key2=الاسم, Key3=العمر rngSort.Sort _ Key1:=ws.Range("B2"), Order1:=xlAscending, _ Key2:=Range("B3"), Order2:=xlAscending, _ Key3:=Range("B4"), Order3:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub Sort by Date.zip

حياك الله اخي ال Pivot table له استخدامات كثيرها منها تحليل اليانات. الطريقة: قمت بتضليل الحقلي (الرقم التسلسلي و المبلغ المدفوع) مع جميع الخلاياء التي تقع تحتيهما (اي لحد الرقم التسلسلي 50): و من ثم اختر ال Pivot Table و ضغطت موافق فقط بعدها ,سحبت حقل الرقم التسلسلي و حقل المبغ المدفوع في مربع ال Pivot Table. انظر لصورة المرفقة. بعدها اختر الدالة Count بدلا عن Sum كما في الخطوة رقم 3. هذا ملف فديو يشرح طريقة استخدام ال Pivot Table http://www.youtube.com/watch?v=8YKyWmgYQkw في الملف المرفقة اقتراح 2 يعطي مثال لتطبيق جدول ال Pivot table على اكثر من جدول. بالنسبة لادراج النتائج في الجدول الاصلي اعتقد تحتاج طريقة اخرى لتسهيل ذلك. بالتوفيق دفتر الايصالات والاقساط 2.zip

وعليكم السلام اقترح عليك استخدام ال Pivot Table انظر المرفق دفتر الايصالات والاقساط.zip