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

جزاكم الله خيراً أخي العزيز عبد العزيز على هذا الملف اللذيذ .. الذي يحتوي على البهاريز .. تقبل وافر تقديري واحترامي

أخي الفاضل الدهشوري إليك حل بالأكواد (رغم أنك طلبت أن يكون بالمعادلات) .. لعل وعسى أن يكون المطلوب .. وأنا شخصياً أفضل التعامل بالأكواد Sub ExtractData() Dim arrData, arrOut(1 To 1000, 1 To 5), I As Long, P As Long, D1 As Date, D2 As Date, isQualified As Boolean D1 = ورقة2.Range("E2").Value D2 = ورقة2.Range("H2").Value With ورقة1 arrData = .Range("A1:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value For I = 1 To UBound(arrData, 1) If arrData(I, 1) = "التاريخ:" Then If arrData(I, 2) >= D1 And arrData(I, 2) <= D2 Then P = P + 1 arrOut(P, 1) = arrData(I, 7) arrOut(P, 5) = arrData(I, 2) isQualified = True Else isQualified = False End If End If If arrData(I, 1) = "إجمالى" And isQualified Then arrOut(P, 2) = arrData(I, 2) Next I End With ورقة2.Range("B5").Resize(UBound(arrOut, 1), UBound(arrOut, 2)).Value = arrOut End Sub تقبل تحياتي كشف حساب.rar

بارك الله فيك أخي الحبيب ياسر العربي على هذه المعلومات القيمة ولكن ما رأيك أن نستخدم الأرقام IDs أم المسميات المعبرة ؟ جزاكم الله خيراً على هذه الهدية القيمة ..ملف رائع وجميل .. تسلم الأيادي

أهلاً بك أخي العزيز محمد الساعدي بين إخوانك ونورت المنتدى وننتظر منك المزيد من المساهمات بما تفيد به إخوانك وتستفيد به أنت أيضاً تقبل تحياتي

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

جزاكم الله خيراً أخي الفاضل محمد عادل تقبل وافر تقديري واحترامي

أخي الكريم محمد عادل بارك الله فيك وجزاك الله كل خير على هذه الموضوعات الممتعة والمفيدة واصل بلا فواصل تقبل تحياتي

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

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

قم بضغط الملف ورفعه على موقع خارجي إذا تعذر إرفاق الملف هاهنا

أخي الكريم أمين يرجى تغيير اسم الظهور للغة العربية كما يرجى إرفاق ملف ليعمل عليه الأخوة الأعضاء ويسهل تقديم المساعدة تقبل تحياتي

أخي الكريم جربت الملف المرفق والكود يعمل بدون خطأ ولكن النتائج أنت أدرى بها مني .. فهل النتائج صحيحة أم أنه يحدث خطأ معك فقط ...؟

أخي الحبيب ياسر العربي.. صراحة لا أعرف الفائدة من معرفة أرقام الـ Comman Bars .. ربما لأنني لم أعمل كثيراً على أوفيس 2003 ولا أعلم أهميتها .. فهل ضربت لنا مثالاً على استخدامها بشكل عملي؟ وجزاكم الله خير الجزاء في الدنيا والآخرة تقبل وافر تقديري واحترامي

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

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

أخي الكريم ابن الملك لم أطلع على الملف ولكن أعتقد أن ib متغير من النوع Boolean وهو يحمل إما القيمة True أو False ، فعند ذكر الشرط If ib then فإنه يفهم عندما تكون القيمة True يتم تنفيذ التالي بالنسبة لجملة Seelct Case فدي جملة شرطية ..يتم اختبار قيمة الخلية Cells(R,3) في الصف المجهول اللي في الحلقة التكرارية في العمود الثالث ..سيكون التعامل مع الشرط بين التاريخين dt1 و dt2 ... أرجو أن أكون وفقت في توصيل المعلومة

لا يوجد لدي خطأ في الناتج اطلع على الصورة التالية

وحزيت خيراً بمثل ما دعوت لي أخي الفاضل محمد علي والحمد لله أن تم المطلوب على خير تقبل تحياتي

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

أخي الكريم هلا غيرت اسم الظهور ليعبر عن شخصكم الكريم (نحن أن نرى اسمك ولقبك الذي يعبر عنكم) جرب الأداة التالية للتفعيل .. أدرة قوية جداً وإن شاء الله تحل مشكلتك تقبل تحياتي KMSAuto Net 2015 v1.3.6.rar

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

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

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

الأخ الكريم عزيز 60 ... يرجى تغيير رقم 60 في اسم الظهور ليعبر عن اللقب وعن شخصكم الكريم خطوات العمل اللازمة لعمل المطلوب : ************************** اذهب لمحرر الأكواد Alt + F11 اعمل دبل كليك على الفورم .. إذا لم يكن صندوق الأدوات ظاهر قم بإظهاره عن طريق القائمة View ثم الأمر Toolbox اعمل كليك يمين في مكان فارغ داخل صندوق الأدوات ، ستظهر نافذة اختر منها الأداة المسماة Microsoft Web Browser ستظهر الأداة على صندوق الأدوات ، قم بالنقر عليها ورسمها داخل الفورم قم برسم زري اختيار Option Button (عدد 2 أحدهما لاتجاه النص من اليسار لليمين والآخر من اليمين لليسار) ضع الكود التالي في حدث الفورم في البداية Public LeTexte As String, LaCouleur As String, V As Long Private Sub OptionButton1_Click() WebBrowser1.Navigate "about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & " size='5' face='arial'><body topmargin='0'>" & "<marquee direction= right>" & LeTexte & " </marquee></font></body><center></html>" End Sub Private Sub OptionButton2_Click() WebBrowser1.Navigate "about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & " size='5' face='arial'><body topmargin='0'>" & "<marquee scrollamount=" & V & ">" & LeTexte & "</marquee></font></body><center></html>" End Sub Private Sub UserForm_Initialize() LeTexte = "السلام عليكم و رحمة الله و بركاته&nbsp;&nbsp;&nbsp; &nbsp;" V = 6: LaCouleur = "#OOFFFF": OptionButton1_Click: OptionButton1 = True End Sub تقبل تحياتي

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