طارق محمود

السلام عليكم أخي العزيز أولا سأغير إسم الموضوع لمخالفة قواعد المنتدي ، أرجو الإلتزام في المستقبل ثانيا للحل جرب التنسيق الشرطي ، حيث أن الملف الذي أرسلته بفورمات 2007 وما بعدها فيوجد حل سهل جدا بالتنسيق الشرطي وللمزيد ، أنظر المشاركة رقم 22 بالموضوع التالي http://www.officena.net/ib/index.php?showtopic=43217&st=20

السلام عليكم مرة أخري لإثراء الموضوع بدون أكواد ، وبالتنسيق الشرطي إن كان الأوفيس لديك 2007 أو 2010 شاهد الفيديو ثم الملف المرفقين ممكن الدلالة بالألوان علي قيمة الخلايا ففي الملف ستجد الأرقام المنخفضة حمراء والأقل إنخفاضا أقل إحمرارا ثم المتوسطة حسب درجاتها تتلون بدرجات الأصفر وأخيرا المرتفعه حسب درجاتها تتلون بدرجات الأخضر جرب بالمرفق Cond_Format.rar

السلام عليكم لإثراء الموضوع وكما أشار أخي الحبيب م الشهابي في مشاركته رقم 10 مرفق حل بدون أكواد ، بالتنسيق الشرطي فقط ضع هذه المعادلة في شرط التنسيق =MOD(ROW(),2)=1 تفضل المرفق وجرب تلغي سطر منه ثم جرب تعمل Undo أو Ctrl-z تظليل سطر وترك سطر.rar

السلام عليكم أخي رائد بالفعل يتم المسح في كلا الورقتين (الصرف والقيد) قبل نقل البيانات إليهما مرفق الملف بصيغة 2003 تم تغيير طفيف بالكود لأن 2003 ليس به أسطر حتي 100,0000 فجعلتها 60,000 تفضل المرفق محاسبة 2012_2_2003.rar

السلام عليكم أخي الكريم تفضل المرفق به الإستدعاء في كلا الورقتين (الصرف والقيد) بالنسبة لجزئية الترحيل ثانية والتلوين بالأحمر ، تحتاج بعض الوقت مؤقتا فلتدرس المرفق لو به ملاحظات محاسبة 2012_2.rar

إن شاء الله سيتم الإستدعاء من نفس شيت اليومية الذي يتم الترحيل إليه

أخي العزيز عندك حق الأمر DisplayFormat يعمل فقط مع الكود ولايعمل مع الدوال المخلقة !!! لاأدري لماذا ما رأيك في إدخال الشروط (التنسيق الشرطي) في الكود وبذلك حتي 2003 يستطيع التعامل معها مثلا يمكنك استبدال الدالة الحالية Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer Dim rCell As Range Dim cell_count As Integer cell_count = 0 For Each rCell In cell_range If rCell.Interior.ColorIndex = color_cell_index Then cell_count = cell_count + 1 End If Next rCell Application.Volatile Compte_Couleurs = cell_count End Function بالدالة التالية Function new_col_Ind(rg As Range) As Integer Dim x As Integer, y As Integer, cl As Range x = 0 For Each cl In rg y = WorksheetFunction.CountIf([A:A], cl) + WorksheetFunction.CountIf([N:W], cl) If y = 4 Then x = x + 1 Next Application.Volatile new_col_Ind = x End Function مرفق الملف بعد التعديل جرب وأخبرني CA E70 SEP BID CLOSER_2.rar

أنا جربته ونفع بس عندي أوفيس 2010

السلام عليكم أخي العزيز يمكنك إضافة الأمر DisplayFormat للكود أو بمعني أدق تغيير السطر If rCell.Interior.ColorIndex = color_cell_index Then إلي If rCell.DisplayFormat.Interior.ColorIndex = color_cell_index Then ولكني أخشي ألا يكون فعالا إلا مع الأوفيس 2010

السلام عليكم أخي الحبيب / أبا حنين ماهذا ، علام المعذرة لم أقصد هذا أبدا أخي الحبيب ، كلنا هنا لنتعلم من بعضنا ونتبادل خبراتنا أنت تناولت الموضوع من زاوية تهم معظم الناس فذكرني هذا بنفس الموضوع تقريبا وكنت قد تناولته من زاوية أخري لاتهم إلا المتخصصين أو المهتمين بهذا فرأيت أن ألفت انتباهك وانتباه القراء إليه ، قد يكون منهم من يريد الإستزادة فقط ليس إلا أنا الذي أعتذر منك إن كنت فهمت غير ذلك أدام الله مابيننا خيرا دائما أخوك دوما / طارق محمود

أخي الكريم/هانى عدلى الف الف مبروك معذرة للتأخير والى الأمام دائما ومزيد من البذل والعطاء والتطور اتمنى لك كل التوفيق والتقدم اخوك /طارق محمود

طبعا بنفس النسق الذي أخبرتك عنه يعني تضع سنة وهمية مثلا 1900 تبدأ من عندها ثم تطرحها في الأخير أنظر المثال المرفق ولاحظ أنني لونت العمودين المساعدين بالأصفر - يمكنك إخفاؤهما ولاحظ أيضا أنني ضبطت المعادلة النهائية لتحصل علي المدة الإجمالية بعد التقريب ليزيد عدد السنوات إن كانت الأشهر بعد الجمع 13 جمع عدد ايام و عدد اشهر و سنوات مع التقريب.rar

السلام عليكم موضوع جميل ومتميز كعادتك أخي الحبيب / أبا حنين جزاك الله خيرا وفي هذا الخصوص لمن يريد الإستزادة ، كنت قد شاركت بموضوع له صلة قرابة بموضوعك هذا إسم الموضوع: رسم الدوال الهندسية تجدونه علي الرابط: http://www.officena....topic=30605&hl=

Cells(4, ActiveCell.Column).Range("A1:B1") = ActiveCell.Row

السلام عليكم كنت قد حاولت ولم أفلح وعندما رأيت حل أخي العبقري أبونصار باستخدام الثنائية الرائعة Application.EnableEvents = False ................ Application.EnableEvents = True عندها أكملت الحل ، سأرفقه أيضا للإثراء في المرفق لن تلتزم بخلية محددة ، أي خلية تضع بها رقم سيضاف علي ماكان فيها تفضل المرفق add_in_same_cell.rar

تقصد شهر فبراير الأسهل ان تتطلب إضافة مدة محددة إلي تاريخ معين مثلا ماهو التاريخ الناتج إذا أضفنا عدد 2 سنة و 1 شهر و 5 أيام للتاريخ 25/10/2003 لأن السنة التي ستبدأ بالإضافة عليها ايضا قد تكون 365 أو 366 فإذا كان هذا التاريخ مثلا 25/10/2003 موجود بالخلية A1 فضع المعادلة التالية في خلية أخري =EDATE(A1,1+2*12+5/30) لتحصل علي التاريخ الناتج إذا أضفنا عدد 2 سنة و 1 شهر و 5 أيام لهذا التاريخ

السلام عليكم أخي الكريم شرح أمر النسخ هذا بسيط وهو كهذه الصيغة Range1.Copy (Range2) حيث يتم ببساطة نسخ المجال الأول Range1 إلي المجال الثاني Range2 وفي حالتنا [B9:F48].Copy (.Cells(NR, 5)) يتم ببساطة نسخ المجال B9:F48 إلي المجال الذي يبدأ بالخلية التي بالعمود 5 أي E والصف NR بالورقة Data وحيث أننا لم نحدد تنسيقات خاصة فيتم نسخ المجال بالتنسيقات وقد تعمدت هذا لأنك طلبت نسخ المجال باللون الأخضر لو رجعت لردي بالأمس بالمشاركة رقم 5 حيث قلت لك وهذه المجالات بالتحديد لو نسختها كقيم فقط Paste Values وتحتفظ بالمعادلات في ورقة الفاتورة فسوف يؤدي المطلوب ويقلل من حجم الملف ليس به خطأ أنا استخدمته كما هو وأضفت عليه ستجد معظم الكود من السطر المرقم بـ 20 هو نفس كودك وقد أضفت مع الشرح مايمكن أن يجعل الكود أشمل ، مثل التأكد من عدم وجود الفاتورة قبل الترحيل

السلام عليكم ActiveCell.Range("A1:A8").Value = "بسم الله"

السلام عليكم تفضل أخي الملف وستجد بالكود بعض الشرح نظام حسابات شركة الأحسان2.rar

تفضل أخي المرفق به الشرح قائمه منسدله 4_مع الشرح.rar

السلام عليكم يوجد فيديو بسيط لي أنا في المشاركة رقم 2 بالموضوع التالي http://www.officena.net/ib/index.php?showtopic=43149 إذا لم يكفي فهذا شرح عام للجداول المحورية علي الرابط http://www.officena.net/Taher/Pivot/Pivot.htm

السلام عليكم أخي العزيز من المعروف أن الأكواد الصغيرة هذه يتم تفصيلها لتناسب المشكلة أو الموضوع الوقتي الحالي وعند التغيير لابد من الإلمام بكافة جوانبها ، مهما كانت دقيقة أو صغيرة مع أنني من عملت هذا الكود إلا أن التعديل عليه أصعب من إنشاء واحد جديد يناسب الحالة هذه علي سبيل المثال ، شكل الفاتورة عندك ثابت وعدد الصفوف غير متغير فيكون الأسهل نسخ المجالات B9:E17 ، B19:E28 ، B33:E43 ، B45:E48 جميعا إلي ورقة data أي حجز عدد 34 صف لكل فاتورة ، فإذا كنت تحفظ في تلك الورقة مثلا 1000 فاتورة فتصل للصف 34000 يعني أول 9 صفوف من كل فاتورة محفوظة تكون خاصة بالـ Sonar Device ثم 10صفوف ثم 11 ثم آخر 4 خاصة بــ Driver Weel فهمت أنك تحاول أن تحلها بنفسك لذلك سأترك لك فرصة بناءا علي ماسبق لتحاول وإلا سأحلها غدا إن شاء الله

السلام عليكم أخي العزيز أنظر المرفق بالجداول المحورية Pivot Table ومعها فيديو للشرح Piv_Table.rar

السلام عليكم بعد إذن أستاذنا العظيم/ بن علية أخي /أحمد غيرت في التنسيق الشرطي الأول ايناسب طلبك =ABS(E3-TODAY())<185 وهذا سيجعل اللون الأزرق فقط عند إقتراب موعد الترقية وليس بعد استحقاقها سيبدأ اللون بالظهور قبل 185يوما (حوالي 6أشهر) من ميعاد الترقية وسيظل موجودا أيضا 185يوما أخري (حوالي 6أشهر) بعد ميعاد الترقية تفضل المرفق استحقاق الدرجات - استفسار2.rar

إليك حل كما تريد بدون جداول محورية في المساحة الزرقاء Book2-3.rar