ياسر خليل أبو البراء

جرب تعمل كليك يمين على الخلية ثم اختر Format Cell ثم Custom واكتب التنسيق hh:mm

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

وجزيت خيراً بمثل ما دعوت لنا أخي الحبيب أسامة .. نرجو لك التوفيق والسداد تقبل وافر تقديري واحترامي

أخي الكريم قيس رجاءً عند طرح موضوعات أن يكون العنوان معبر عن الطلب .. مساعدة جزاكم الله خيراً : وجزيتم بمثل ما دعوتم لنا الطلب قد يكون صعب لقلة الخبرة في هذا المجال ، وهذا لا يعني أنه مستحيل فقد يكون من الأعضاء ممن يتصفح المنتدى لديه خبرة بهذا المجال ، فما وجب عليك فقط أن توضح الأمر بمزيد من التفاصيل .. إذ أن أي مشكلة لا يمكن حلها بسهولة إلا بعد معرفة كافة جوانب المشكلة ذكرت أن لديك برنامج يقوم بالأمر ، قم بإرفاق البرنامج .. ووضح أين تكمن المشكلة في البرنامج المقدم لك (وما هي لغة البرمجة المعمول بها البرنامج ؟ وهل لديك السورس للأكواد أم لديك البرنامج فقط؟) ولما لا تتواصل مع المبرمج صاحب البرنامج؟ أمور كثيرة لابد من توضيحها تقبل تحياتي

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

أخي العزيز م / هاني فاروق مشاركتي لا تعني أبداً التقليل من المساهمة الرائعة والجميلة من أخونا أبو عبد الباري ، إنما هي للنقاش وإثراء الموضوع .. وأخونا عبد الباري بارك الله فيه قام بالعمل على الملف المرفق كما توقع أن يكون بالنسبة لشرحك للمطلوب ، فتوقع أن تكون الأرقام بهذا الشكل (مرتبة تصاعدياً) فعمل على المطلوب بهذا الشكل وأجاد فقمت أنا بتوقع أن تكون الأرقام غير مرتبة ، وقمت بالتعديل فقط على معادلته ليتناسب مع المنطق الذي قمت بشرحه لك وفي النهاية نحمد الله عزوجل أن تم المطلوب على خير تقبلوا وافر تقديري واحترامي

أخي الكريم الشيباني الموضوع الجيد لابد أن يكون له عنوان معبر عن الطلب .. لاحظ العنوان "سند قبض ودفع" لم يعبر عن المطلوب الأفضل أن يكون العنوان معبر عن الطلب بدقة أمر آخر عند إرفاق ملف لا تضع كلمة سر للملف حتى يتسنى لمن يريد تقديم المساعدة المساهمة ... كلمة المرور 111 لاحظ أن غيري قد لا يتعدى على الملف ويحاول معرفة كلمة السر ، وما قمت بالتعدي على الملف إلا للمساعدة فقط .. الطلب غير واضح بشكل كبير .. لاحظ أن الملف يحتوي على كثير من الأكواد مما يستلزم الكثير من الوقت لدراسته ومعرفة المشكلة بالضبط ، فحاول أن تكون أكثر دقة وتحدد المشكلة أي عند النقر على زر الأمر كذا في الفورم المسمى كذا .. يحدث كذا ومن المفترض أو المطلوب أن يحدث كذا ... هكذا يكون أسهل على من يريد تقديم المساعدة لأن الصورة في هذه الحالة تكون مكتملة بالنسبة له تخميناً مني ولا أحب التخمين في حل المشكلات أنك تريد التعديل على زر الطباعة الموجود في الفورم المسمى Toumana لاحظ أن الكود متشعب أي عند النقر دبل كليك على زر الأمر طباعة ، ينتقل بك الزر لتنفيذ الإجراء المسمى CmdPrint_Click ، وهذا الإجراء به سطر ينفذ إجراء آخر اسمه Printingout وعند الانتقال للإجراء Printingout ستجد في آخر سطر أنه ينقلك لإجراء آخر اسمه Print_All ، وفي هذا الإجراء الأخير الأمر المسئول عن الطباعة PrintOut قم بالتعديل على هذا السطر لزيادة عدد النسخ المطلوبة بالشكل التالي .PrintOut Copies:=2 أرجو أن يفي هذا بالغرض .. تقبل تحياتي

أخي الكريم عامر لابد أن تقوم بالأمر بنفسك الخطأ المتوقع أنه يجب استبدال الفاصلة العادية بفاصلة منقوطة .. قم باستبدال الفاصلة العادية في المعادلة المقدمة من قبل أخونا سليم بفاصلة عادية (يرجع ذلك لإعدادات الويندوز) ثم لا تنسى بعد أن تكتب المعادلة أن تضغط CTRL + SHIFT + ENTER معاً لأنها معادلة صفيف .. شاهد الفيديو التالي لتعرف كيف يتم الأمر ولما لم تعمل معك المعادلة .. أمامك خياران إما أن تقوم بتغيير الإعدادات الإقليمية لتستخدم الفاصلة العادية وفي هذه الحالة يمكنك نسخ المعادلة بشكل طبيعي وتطبيقها على الملف بدون حدوث أخطاء أو تقوم بتغيير الفاصلة تبعاً لما هو موجود في الإعدادات لديك الفيديو سيوضح لك الأمر 2016-08-29_10-08-50.rar

وعليكم السلام أخي الكريم مأمون الرجاء إرفاق ملف للإطلاع عليه ولتسهيل تقديم المساعدة (توفيراً للوقت والجهد) مع إرفاق مثال لشكل النتائج المتوقعة والمعطيات المطلوب إدخالها .. تقبل تحياتي

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

بارك الله فيك أخي العزيز أبو عبد الباري .. وجزيت خيراً على مساهماتك الرائعة أرجح إرفاق الحل في المشاركة مع الملف المرفق .. أخي الكريم م / هاني طبعاً أنت أدرى بملفك مني ، ومشاركتي لإثراء الموضوع فقط ليس إلا .. دعنا نتحدث بلغة المنطق : الحل المقدم قارن بين الخلية D2 وأول خلية في النطاق وآخر خلية في النطاق .. هكذا اعتمدت المعادلة السؤال المنطقي : هل هذا صحيح بهذا الشكل ؟ ماذا لو كانت الأرقام في النطاق A1:A5 غير مرتبة تصاعدياً ؟؟ أي ماذا لو كانت الخلية A3 تحتوي على الرقم 151 >> سيكون الناتج في هذه الحالة "خارج النطاق" إذاً لابد من التفكير بأسلوب مشابه ولكن بما يفي بالغرض .. أولاً سنقوم باستخراج أقل قيمة في النطاق وأكبر قيمة في النطاق ، ثم نقارن القيمة في الخلية D2 بالنطاق ونرى إذا ما كان خارج النطاق أم في النطاق .. جرب المعادلة التالية =IF(AND(D2>=MIN(A1:A5),D2<=MAX(A1:A5)),"In Range","Out Range") الشرط الأول هو أن تكون الخلية D2 أكبر من أو يساوي أقل قيمة في النطاق A1:A5 والشرط الثاني هو أن تكون الخلية D2 أقل من أو يساوي أكبر قيمة في النطاق A1:A5 إذا تحقق الشرطين معاً وركز في قولي معاً (بسبب استخدام الدالة AND) سيتم كتابة النص "في النطاق" ، أما إذا لم يتحقق الشرطين يكتب النص "خارج النطاق" إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة ملحوظة أخرى : قم بتغيير النص فقط للشرح حيث أن اللغة العربية تظهر العكس في المشاركة .. فقط للتوضيح قم بتغيير النص In Range إلى النص "في النطاق" ، والنص Out Range إلى "خارج النطاق" تقبلوا تحياتي

أخي العزيز أسامة أولاً يرجى عند طرح موضوعات أن توضع عناوين مناسبة للموضوعات حتى نستطيع أن نتابع الموضوع بسهولة بالنسبة للملفات أشعر أن هناك أمر غير منطقي (كيف يكون هناك فائض وناقص في الشاحنات A مثلاً في نفس الوقت؟؟؟!!! هذا الأمر غير منطقي) أي انظر لناتج الفائض -15 والناقص 300 لما لا يكون الأمر في هذه الحالة أن هناك نقص 285 ...!! ونقطة أخرى لما لا يكون العكس في الإدخال أي الموجب هو الفائض والسالب هو الناقص (هذا هو المنطق في لغة الحساب : السالب يعني تحت الصفر أي غير موجود فيعتبر ناقص ، والموجب موجود فيعتبر زائد أو فائض) المهم طلبك الثاني ضع المعادلة التالية في الخلية O13 =IF(OR(N13<=0,N13=""),"","take " & VALUE(N13) & " trucks from " & E13) أرجو أن يفي هذا بالغرض إن شاء الله

أحسنت أخي العزيز سليم .. هكذا يجب أن تكون المشاركات (أصبت الهدف تماماً ..) كفانا ملفات جاهزة وحسب ..هذا لن يقدم للعضو شيئاً جديداً علموهم الصيد لنرتقي ..علموهم الصيد لنرتقي

أخي الكريم أحمد يرجى تغيير اسم الظهور للغة العربية .. قمت بعمل كود واحد يتم النقر على الزر المرسوم "توكل على الله وانقر هنا" ، ليتم وضع جميع النتائج .. كل ما عليك أن تكتب الدرجات في الخلايا الصفراء : L3 بدلاً من الخلية P2 التي أشرت إليها ، والخلية A26 لتحصل على جميع النتائج مرة واحدة .. ملحوظة : تركت لك الأزرار المرسومة الأخرى كدليل فقط ، وعند النقر عليها لن يحدث شيء أي أنها غير مرتبطة بحدث معين .. وحذفت لك جميع الأكواد الأخرى الموجودة وتركت لك الكود التالي فقط Sub Test() Application.ScreenUpdating = False Range("M3:O3,B26:E26").ClearContents If Not IsEmpty(Range("L3")) Then With Range("M3:O3") .FormulaR1C1 = "=IFERROR(INDEX(R3C[-4]:R134C[-4],MATCH(R3C12,R3C8:R134C8,0),1),"""")" .Value = .Value End With End If If Not IsEmpty(Range("A26")) Then With Range("B26:E26") .FormulaR1C1 = "=IFERROR(INDEX(R3C:R22C,MATCH(R26C1,R3C1:R22C1,0),1),"""")" .Value = .Value End With End If Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub أرجو أن يفي هذا بالغرض تقبل تحياتي

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

أخي الكريم يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى ضع الأكواد بين أقواس الكود .. لتظهر بشكل منضبط الملاحظات على الملف المرفق : أكرر الملف المرفق لا يحتوي على موديول ولا على أية أكواد على الإطلاق الأزرار الموضوعة بالملف من النوع ActiveX أي أن الأكواد الخاصة بها توجد في موديول ورقة العمل وليس في موديول عادي أسماء الإجراءات الفرعية غير مناسبة حيث أنها تشير لخلايا في ورقة العمل ، أقصد التسمية mh1 اسم الماكرو غير مناسب ، حيث من المفترض أن هذا اسم عمود (العمود MH في الصف رقم 1) ارفق الملف مرة أخرى وبه الأكواد ووضح المشكلة بالضبط أعتقد أن هناك موضوع مشابه قمت بالمساهمة فيه .. كان تقريباً نفس الملف مع تغييرات في الأعمدة

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

وعليكم السلام أخي الكريم سامح أهلاً بك في المنتدى ونورت بين إخوانك الدالة المعرفة المرفقة في الملف المرفق في مشاركتك هي دالة لعد الألوان في نطاق محدد ويمكن استخدامها في جمع القيم للون محدد طريقة استخدام الدالة .. تكتب اسم الدالة المعرفة يليها الخلية التي تحتوي اللون المراد عده ثم النطاق المراد عد اللون داخله والدالة تعمل بشكل جيد حسب رؤيتي للملف .. وضح المشكلة بالضبط لتتضح الصورة .. اذكر مثال خطأ من الملف المرفق للإطلاع عليه

أخي الكريم أحمد يرجى تغيير اسم الظهور للغة العربية اطلعت على الملف ولم أجد أكواد بداخله ..قم برفع الملف مرة أخرى محتوياً على الأكواد ، وقم بوضع صورة لرسالة الخطأ التي تظهر لك .. وعند ظهور الخطأ يظهر لك كلمة Debug انقر عليها سينتقل بك لمحرر الأكواد لسطر أصفر قم بنسخه ووضعه في المشاركة للإطلاع على موضع الخطأ

أخي الكريم صلاح وضعت لك رابط فيه كود مشابه لما سأقدمه الآن وقد كان الحل بين يديك (نفس الفكرة تقريباً مع بعض التعديلات ليتناسب مع ملفك) جرب الكود التالي عله يفي بالغرض ويكون أسرع في التعامل مع البيانات Sub Data_Between_Two_Dates() Dim Ws As Worksheet, Sh As Worksheet Dim Arr, Temp Dim I As Long, P As Long, T As Long Dim startDate As Date, endDate As Date Set Ws = Sheets("all data"): Set Sh = Sheets("filter") Arr = Ws.Range("A2:K" & Ws.Cells(Rows.Count, 1).End(xlUp).Row).Value startDate = Sh.Range("L2").Value2: endDate = Sh.Range("M2").Value2 ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For I = LBound(Arr, 1) To UBound(Arr, 1) If Arr(I, 2) >= startDate And Arr(I, 2) <= endDate Then For T = 1 To 11 Temp(P + 1, T) = Arr(I, T) Next T P = P + 1 End If Next I Sh.Range("A2").Resize(P, UBound(Temp, 2)).Value = Temp End Sub

وعليكم السلام أخي الكريم صلاح راجع الرابط التالي عله يفيدك https://www.officena.net/ib/topic/68426-تصفية-متقدمة-بين-تاريخين-وفق-عدة-معايير-بالأكواد-والمعادلات-للتاريخ/?do=findComment&comment=445127

أخي الكريم الدبعي لم أتابع الموضوع منذ آخر مشاركة لي فيه .. وكنت قد قمت بتقديم حل لك يشمل الطلب الأول والثاني ، وبحثت في الردود فلم أجدك علقت على الملف المرفق .. وإذا كان الملف لا يعمل لديك فلما لم تخبرنا بذلك .. أو إذا كان هناك خطأ لما لم تقم بتصوير الخطأ لنبين لك موضع الخطأ .. أرجو تفهم الأمر ومراعاة وقت وجهد الآخرين ...

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

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

ماذا لو كان هناك خلية في النطاق D2:D4 غير فارغة ؟؟ استخدام xlDown قد يسبب مشاكل في حالة وجود خلايا غير فارغة حيث أنه لن يعطي نتائج صحيحة في هذه الحالة عموماً الأمر دائماً يرجع لهيكلة الملف ووقة العمل لذا دائماً نطلب ملف مرفق لتتضح الصورة ونطلب أن يكون الملف المرفق معبر عن الملف الأصلي بشكل كبير جزاك الله خيراً أخي العزيز سليم