ابو تراب

مشاء الله تبارك الله ..موضوع مميز فعلا جزاك الله خيرا عن كل حرف كتبت

وعليكم السلام و رحمة الله وبركاته نعم يمكن ذلك ... فقط ارفقي مثال ليتسنى للاعضاء الكرام المساعدة

هلا باخي طارق الكلاس مهمة جدا لدرجة انك لا تستغني عنها عند كتابة برامج ب الـ VBA و يكفي ان تعلم ان الفورم او النوذج هو في حقيقة الامر هو كائن من كلاس و و الازرار و مربعات النص هما الكائنات من كلاسات اخرى و الكائن Range هو كائن من كلاس ايضا و قس على ذلك. ال كلاس موديول له اهمية و خصوصا عند الرغبة بتطبيق مفاهيم برمجة الكائنية المنحى او Object Oriented Programming او اختصارا OOP. اذا كنت مهتما فربما اذا اسعف الوقت شرح استخدامها في موضوع منفصل تحياتي

راجع اخي الفاضل الرابط التالي: http://www.officena.net/ib/index.php?showtopic=57761&hl=

كالعادة شرح مميز من شخص مميز جزاك الله خيرا اخي الحبيب عن كل حرف كتبت

هل تقصد اخفاء قيمتها اسهل طريقة هى تغيير لون الكتابة ليوافق خلفية الخلية. مثلا لون الكتابة بالللون الابيض. الطريقة الاخرى هى عمل حماية للورقة و اختيار Hidden http://www.officena.net/ib/index.php?showtopic=57295&page=1

جزاك الله خيرا اخي الحبيب KHBM تقبل تحياتي

تقويم ام القرى غير مدعوم بشكل المطلوب و حتى لو استخدمت التقويم الهجري تبع الـ VBA سيعطي فروقات قد تصل لـ 3 ايام ما استطيع فعله لك هو محاولة الاستفاذة من خلية من خلاياء الاكسل في معرفة القيم الصحيحة لتواريخ تقويم ام القرى و تجد في الملف المرفق مثال. لتحقيق ذلك عملت لك دالة على السريع تحسب لك الفروقات بتقويم ام القرى مع الاخذ بالاعتبار التالي: 1 - لا يمكن استخدام الدالة في اي من خلاياء الاكسل و لكن بالطبع يمكنك استخدامها في كود ال VBA 2 - الدالة تحسب الفرق بالايام (md) و الاشهر (ym) و السنوات (y) و لكن لن تعطي الفرق الكلي بالايام (d) و الفرق الكلي بالاشهر (m).. لم اكتب الكود بعد لهما. 3 - المعيار الذي استخدمته لتقويم مدى صحة الدالة هو الحساب اليدوي ولهذا ارجوا من كل من استخدمها ان يخبرنا اذا كان هناك خطأ. بالتوفيق طرح التاريخ بتقويم ام القرى.zip

وعليكم السلام و رحمة الله و بركاته بعد اذن اخي الغالي ياسر هذه محاولة بالكود هلا عبدالله معدل التغيير Rate of Change بالنسبة لماذا... هل تقصد معدل التغيير بالنسبة للزمن اي كل 5 دقائق ام بالنسبة لاخر قيمة في الصورة ادناه معادلة التغير في ال y بالنسبة للـ x هنا سنحتاج فقط لايجاد متوسط التغييرات لايجاد المعدل مثال ---- اذا اردت معرفة التغير في الخلية A1 فقط سنفترض التالي: A1 ستمثل y في المعادلة بحيث يمثل y1 قيمة A1 السابقة , y2 يمثل قيمة A1 الحالية x التتغير في قيمته ثابت و يساوي 1 سنفترض ان قيم A1 كانت 4 ثم 5 ثم 3 ثم 6 =AVERAGE((5-4),(3-5),(6-3)) مرفق مثال للتوضيح معدل التغيير Rate of Change.zip

تفضل اخي مثال.zip

يامرحبا باخينا bedonada هل تستخدمون تقويم ام القرى ام التقويم الهجري العربي ... هناك فروقات بين التقويمين مثلا بتاريخ اليوم 3 بناير 2015 نجد فرق يوم (وهذا ليس ثابتا)

هلا ضاء ... هل اعتمدت على صور غير الامتداد bmp اذا كان كذلك فلن يتم جلب الصور. فقط خبرنا اذا كنت تريد اعتماد نوع معين من الصور كـ jpg عندها يمكن تعديل الدالة الدالة InsertPic تحتاج رتمرير اسم الشيت Feuil1 مسار الصورة : بامتداد bmp اسم لللصورة: غالب سيكون الاسم و اللقب الحالييا رقم سطر الخلية الحالية ورقم العمود الحالي InsertPic("Feuil1",GetPicPath()&$B7&".bmp",$B7,ROW($C7),COLUMN($C7))

سبب الاختلاف هو في الرابط التالي: MOD Function and Mod Operator Return Different Values

ما شاء الله تبارك الله فكرة ممتازة و مشروع ضخم و تحتاج لفريق عمل و Focal Points و وبتعاون الاعضاء الكرام سيرى هذا المشروع النور و سيكون مكتبة الصرح ..الزاخرة بالشرح بارك الله فيك استاذنا الغالي ياسر و انت فعلا عاشقا للأكسل تقبل تحياتي

وهذه طريقة اخرى بالاكسل كقاعدة عامة للحصور على بافي قسمة a على b فأن: a mod b =a-b*INT(a/b) مثال: باقي قسمة -4 على 3 =-4-3*INT(-4/3)

تفضل اخي بالتوفيق ترحيل بيانات بناءا على اسم الورقة.zip

وعليكم السلام و رحمة الله و بركاته جرب المرفق ترحيل بيانات بناءا على اسم الورقة.zip

لو ترفق مثال ليتمكن الاعضاء الكرام من تقديم المساعدة و تتضح الصورة و المطلوب

هلا و غلا بالاخ العزيز ياسر ... جزاك الله خيرا على كلماتك الطيبة اولا و على حسب علمي ان الدالة DateDif تعمل بشكل جيد في جميع اصدارات الاكسل و ان كان هناك مشاكل في Excel 2007 SP2 (ماعندي الاصدار لهذا ما اقدر أأكد) الا ان الدالة غير موثقة و لا تضهر ك Tipعند كتابتها في الخلية. ثانيا ال VBA لديها الدالة DateDIFF الا انها ليست بأمكانيات الدالة DateDif ... ولهذا اعتقد الدالة DateGap ممكن تكن بديل عن الدالة DateDIFF عند استخدامها مع VBA. تحياتي تحياتي

هلا ممكن ينفع هذا استبدل Set ShtNme = Worksheets("Sheet" & 0 & M) Else Set ShtNme = Worksheets("Sheet" & M) End If بـــ Set ShtNme = Sheets(M) جرب

هلا بالاستاذ عبدالله ... شاكرا لك مرورك العطر

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح محاكاة الدالة DateDif با المعادلات و الاكواد. بالنسبة المحاكلة بالاكواد عملت دالة بسيطة اسميتها DateGap في الصورة ادناه تم الاعتماد على الدلة DateDif كمعيار لقياس مدى دقة المعادلات و الدلة DateGap اولا المعادلات و الصيغ على افتراض ان التاريخ الاول هو A1 و التاريخ الثاني A2 فأن: 1 - لايجاد الفرق بين التاريخين باليوم و الشهر و السنين معا الايام =IF(DAY($A$2)>=DAY($A$1),DAY($A$2)-DAY($A$1),DAY($A$2)+DAY(EOMONTH($A$2,-1))-DAY($A$1)) الاشهر =MOD(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1),12) السنوات =TRUNC(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1)/12) 2 - ايجاد الفرق الكلي بالايام و الاشهر و السنوات الفرق الكلي بالأيام =A2-A1 الفرق الكلي بالأشهر =IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1) الفرق الكلي بالسنوات =TRUNC(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1)/12) ثانيا بالكود - الدلة DateGap 1 - لايجاد الفرق بين التاريخين باليوم و الشهر و السنين معا الايام =dategap($A$1,$A$2,"md") الاشهر =dategap($A$1,$A$2,"ym") السنوات =dategap($A$1,$A$2,"y") 2 - ايجاد الفرق الكلي بالايام و الاشهر و السنوات الفرق الكلي بالأيام =dategap($A$1,$A$2,"d") الفرق الكلي بالأشهر =dategap($A$1,$A$2,"m") الفرق الكلي بالسنوات =dategap($A$1,$A$2,"y") الملاحظة ===== الدلة DateGap تولد اخطا: 1 - خطأ التاريخ الاول اكبر من التاريخ الثاني DATEGAP_WRONG_DATE_ORDER 2 - خطأ معامل الدالة .. (المعمل يجب ان يكن احدى القيم التالية: y m d md ym) DATEGAP_WRONG_OPERATOR يمكنك تحميل الدلة و المثال من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال DateGap DateDif الفروقات بين التواريخ.zip

موضوع مميز فعلا ... شكرا الله لك اخي ياسر على مشاركتنا الموضوع و شكرا الله لصاحب الموضوع و كل من ساهم فيه

جزاك الله خيرا اخي على الملف القيم .. تقبل تحياتي

آميـــــــــــــــن و من قال