ابو تراب

حيا الله اخوي السيد سليم و السيد الصقر الجريح بعد اذان الجميع ..المعادلات صحيحة مع تعديل بسيط فقط في معادلة اخي سليم لحساب عدد الشهور بين تاريخين: هذه محاولة: مع المحافظة على الترتيب اذا افترضنا ان A2 هو التاريخ الاحدث (2015/1/5) و A1 التاريخ الماضي (2014/8/5) و كلا التاريخين يشيران لنفس اليوم فأن المعادلة مع تعديل بسيط ستكن: (YEAR(A2)-YEAR(A1))*12 + MONTH(A2)-MONTH(A1) اما في حالة اختلاف اليوم في كلا التاريخين .. فأعتقد ان معادلة ايجاد عدد الشهور ستكن كالتالي: =IF(DAY(A2)-DAY(A1)>=0,(YEAR(A2)-YEAR(A1))*12 + MONTH(A2)-MONTH(A1),(YEAR(A2)-YEAR(A1))*12 + MONTH(A2)-MONTH(A1)-1)

وعليكم السلام جرب اصلاح الملف عبر الاكسل اولا..لمزيد من التوضيح انظر للصورة ادناه

مشكوووووووووور اخي الغالي ياسر على التنبية...حفظت الملف بالصيغة الخطأ تفضلوا الملف المرفق .. ملاحظة: الملف المرفق يلون الخلاياء من A2 الى A5 ... اما اذا اردت ان يغير جميع الخلاياء التي تحتوي على كومنت .. يمكنك استخدم الكود التالي: For Each cell In Cells.SpecialCells(xlCellTypeComments) بدلا عن: For Each cell In Range("A2:A5") Color By Comment.zip

جميل جميل يامختار ... استمرفي هذا الموضوع المهم ال ADO اداة رهيبة لنقل الاكسل الى مستوى قواعد البيانات و الاستعلامات SQL

طالت غيبة أخيينا الحبيب الغالي ابوحنين ،أسأل الله أن يرده الينا سالما غانما آمين

وعليكم السلام جرب المرفق Color By Comment.zip

وعليكم السلام جرب المرفق مثال.zip

وعليكم السلام و رحمة الله و بركاته....ياهلا و غلا باخي KHMB .... شاكرا لك مرورك العطر و دوام تشجيعك لنا

ياهلا و غلا أبو ايمان ... جزاك الله و جزانا من فضله... لا تحرمنا من زياراتك

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

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

وعليكم السلام جرب المرفق Sheet.zip

هلا و غلا باخي الجموعي ... شاكرا على مرورك العطر

استاذنا الكبير عبدالله باقشير تشرفنا بمرورك الكريم .... و تقبل شكري و تقديري على كلماتك طيبة المشجعة

يامرحبا بمن زارنا ... شكرا على مرورك العطر اخي صلاح

هلا و غلا باخي نايق ... شاكرا لك كلماتك المشجعة و مرورك الكريم

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

هلا باخي فخفخينا الفكرة و اضحة الان و لا ادري اذا كان ممكن تطبيقها . على حسب علمي اذا كانت خلية من خلاياء الاكسل في و ضع التحرير كما في الصورة ادناه: http://im86.gulfup.com/ojpGzx.jpg فان احداث الورقة لن تنفذ و الاخطر ان المؤقت اذا كان قيد التشغيل سيؤدي الى تعارض مما يجعل نظام الويندوز يتدخل لايقاف العملية و ايقاف تنفيذ برنامج الاكسل. على كلا هذا المرفق بعد التعديل و ان كان يتوجب عليك خروج الخلية من وضع التحرير اولا ليتم الانتقال الى الخلية التالية. ربما هناك حل و طريقة ما لتنفيذ الفكرة و الاعضاء الكرام لن يتأخروا عليك بها تحياتي انتقال تلقائى بعد زمن محدد للخلية التالية.zip

هلا باخي ياسر شكرا على مرورك و اهتمامك بالموضوع. لا ادري ماالسبب ربما بسبب اختلاف اصدار ويندوز 64 بت و 32 بت...على كلا فقد اضفت الكود التالي للمؤقت : سارد على اخينا فخفخينا و سارفق الملف بعد التعديل #If VBA7 And Win64 Then ' 64-bit Public Declare PtrSafe Function SetTimer Lib "user32" ( _ ByVal hWnd As Longlong, ByVal nIDEvent As Longlong, _ ByVal uElapse As Longlong, _ ByVal lpTimerFunc As Longlong) As Long Public Declare PtrSafe Function KillTimer Lib "user32" ( _ ByVal hWnd As Longlong, _ ByVal nIDEvent As Longlong) As Longlong Public Declare PtrSafe Function GetTickCount Lib "kernel32" () As Longlong #Else '32-bit Private Declare Function SetTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long) As Long #End If

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة تشغيل مؤقت Timer بالملي ثانية. ولتوضيح فقد عملت كلاس صغيرة اسميتها SuperTimer سأوضح طريقة استخدامها بمثال مرفق في الموضوع في المرفق ستجد ملفان الاول ملف اكسل و هو المثال الذي استخدمناه و ملف اخر وهو ملف الكلاس SuperTimer.cs طريقة الاستخدام ========= 1 - لتعريف متغير يمثل المؤقت اكتب الكود التالي : Dim st As New SuperTimer 2 - بعد تعريف المتغير (في حالتنا هو st) يمكننا انشاء اجراء بأي اسم. (سيحتوي الاجراء على الكود الذي سينفذ من قبل المؤقت) مثال: نرغب بزيادة قيمة الخلية A1 بمقدار 1 كل ربع ثانية. و ان يتم التوقف عند و صول قيمتها الى ال 100 Private Sub F1() [A1] = [A1] + 1 If [A1] >= 100 Then If st.Active Then st.StopTimer End Sub 3 - الكود التالي يوقف المؤقت اذا كان يعمل: If st.Active Then st.StopTimer 4 - لتشغيل المؤقت اكتب الامر StartTimer و مرر عنوان الاجراء الذي ترغب في تنفيده (في حالتنا الاجراء F1) اليها: هنا سنطلب من الاكسل تشغيل المؤقت كل ربع ثانية (كل ثانية تساوي 1000 ملي ثانية) و ان يتم تنفيذ الاجراء F1 st.StartTimer 250, AddressOf F1 5- الكلاس ممكن ان تنشء مجموعة من الاخطاء منها: 1 - خطأ المؤقت ليس قيد التشغيل : اذا تم ايقاف المؤقت بينما لا يعمل st.ERROR_TIMER_IS_NOT_ACTIVE 2 - خطأ المؤقت قيد التشغيل : اذا تم اعادة تشغيل المؤقت وهو يعمل st.ERROR_TIMER_ALREADY_STARTED 3 - خطأ المدة : اذا تم وضع قيمة اقل او تساوي صفر لمدة تشغيل المؤقت st.ERROR_TIMER_DURATION_ERROR 4 - عند حدوث خطأ في تهيئة المؤقت st.ERROR_TIMER_INITIALIZATION_FAILED ملاحظة ===== استخدمه بحذر و عند الحاجة. يمكنك تحميل الكلاس و المثال من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال SuperTimer.zip

هلا فخفخينا عملت لك كلاس باسم SuperTimer جرب المرفق انتقال تلقائى بعد زمن محدد للخلية التالية.zip

موضع مميز من شخص مميز .. استمر في ابداعاتك

وعليكم السلام جرب المرفق انتقال الى أخر خلية.zip

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

وعليكم السلام و رحمة الله و بركاته جرب الكود المرفق Generate Report based on Pivot Table.zip