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

أخي الكريم إذا أردت أن تكتب 1:00 م قم بكتابة رقم 13 ثم : (نقطتين فوق بعض) الفورمات يعمل بنظام الـ 24 ساعة جرب 8:00 م اكتب 20 ثم : واضغط إنتر

أخي الحبيب عبد العزيز لم ألاحظ الملف المرفق إلا بعد أن قمت بالمشاركة رقم 5 وبعد الإطلاع وجدت فكرتك رائعة بكل ما تحمل كلمة رائعة من معنى بارك الله فيك وجزاك الله خير الجزاء أفضل إجابة إلى الآن في وجهة نظري هي المشاركة رقم 4 من حيث سهولة استخدامها تقبل وافر تقديري واحترامي

أخي الحبيب عبد العزيز البسكري بارك الله فيك وجزاك الله خير الجزاء ..كود في منتهى الجمال والروعة ولكني لاحظت أن الأخ الكريم أكرم طلب نطاقات مختلفة وليس نطاق ثابت لكل أوراق العمل المطلوبة إليك الحل التالي عله يفي بالغرض ضع الكود التالي في حدث الفورم Private Sub OptionButton1_Click() OptionChange (1) End Sub Private Sub OptionButton2_Click() OptionChange (2) End Sub Private Sub OptionButton3_Click() OptionChange (3) End Sub Sub OptionChange(myOption As Long) Select Case myOption Case 1 With Sheets("KKK") ComboBox1.List = .Range("A4:A" & Sheets("KKK").Cells(Rows.Count, "A").End(xlUp).Row).Value End With Case 2 With Sheets("GGG") ComboBox1.List = .Range("C2:C" & .Cells(Rows.Count, "C").End(xlUp).Row).Value End With Case 3 With Sheets("HHH") ComboBox1.List = .Range("B6:B" & .Cells(Rows.Count, "B").End(xlUp).Row).Value End With End Select End Sub وجرب الملف المرفق ComboBox & Option Buttons On UserForm YasserKhalil.rar

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

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

فيه مستطيل للبحث تحت كلمة تسجيل خروج

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

أخي الكريم المعادلة في العمود E معادلة صفيف أي أنه بعد التعديل يجب الضغط على Ctrl + Shift + Enter أما المعادلة في العمود D وF فمعادلات عادية يمكنك التعديل وبعد التعديل تضغط Enter فقط

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

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

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

الأخ الفاضل أبو حسنين إليك الملف التالي عله يفي بالغرض Sub TestRun() Const PI As Double = 3.14159265358979 Const D2R As Double = PI / 180# Const CtrX As Double = 300 Const CtrY As Double = 300 Dim A As Double Dim RadBig As Double Dim RadSml As Double Dim ICol As Long Dim SHP As Shape Dim AvdInp As Variant For Each SHP In ActiveSheet.Shapes If SHP.Type = msoAutoShape Or SHP.Type = msoTextBox Then SHP.Delete Next SHP AvdInp = Range("B2:C4").Value2 For ICol = 1 To UBound(AvdInp, 2) RadBig = CDbl(AvdInp(1, ICol)) DrawCircle CtrX, CtrY, RadBig RadSml = AvdInp(2, ICol) For A = 0 To 359.99 Step 360 / AvdInp(3, ICol) DrawCircle CtrX + RadBig * Sin(A * D2R), CtrY - RadBig * Cos(A * D2R), RadSml Next A Next ICol End Sub Sub DrawCircle(CtrX As Double, CtrY As Double, rad As Double) Dim SHP As Shape Set SHP = ActiveSheet.Shapes.AddShape(msoShapeOval, CtrX - rad, CtrY - rad, 2 * rad, 2 * rad) With SHP.Fill .Visible = msoTrue .ForeColor.RGB = vbWhite .Transparency = 0 .Solid End With End Sub يتم كتابة المعطيات في النطاق D2:E4 ثم تنفيذ الكود لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" ولا تضغط عليها إذا لم ينل الملف إعجابك Draw Circles By Code.rar

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

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

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

أعتقد المشاركة رقم 33 فيها حل لمسألتك الأولى

أخي الحبيب أبو حنين حاول مرة أخرى .. شووف المعادلة والخلايا المرتبطة بها وحاول لأكثر من 20 أو 30 مرة .. ولو فشلت إن شاء الله أحاول أساعدك Come easy Go easy مش كدا ولا ايه يا عزيزي تقبل تحياتي

وعليكم السلام أخي وحبيبي في الله أبو يوسف مشكور على مرورك العطر بالموضوع ، وجزيت خيراً بمثل ما دعوت تقبل وافر تقديري واحترامي

أخي الكريم سليم الموضوع بسيط عدل المعادلة بحيث يكون النطاق إلى رقم الصف 50 أو ارفق ملف وإن شاء الله نطبق عليه المطلوب

أخي الحبيب أبو حنين إليك المعادلة التالية (ويا ريت متسألش اتعملت إزاي .................) =SUM(IF(B5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=B$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&B5))),0))+SUM(IF(C5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=C$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&C5))),0))+SUM(IF(D5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=D$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&D5))),0))+SUM(IF(E5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=E$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&E5))),0))+SUM(IF(F5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=F$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&F5))),0))+SUM(IF(G5>0,LARGE((عام!$I$5:$I$50=$A5)*(عام!$H$5:$H$50>=$A$2)*(عام!$H$5:$H$50<=$E$2)*(عام!$M$5:$M$50=G$4)*(عام!$P$5:$P$50),ROW(INDIRECT("1:"&G5))),0)) يبدو أن المعادلة لم يتم نسخها بالشكل المناسب نظراً لطولها المفرط فسأضطر إلى إرفاق الملف مرة أخرى إليك الملف المرفق لا تنسى أن تضغط Ctrl + Shift + Enter لأنها معادلة صفيف ولا تنسى أن تحدد أفضل إجابة وتعمل 5 أو 10 إعجابات .. اتصرف عايز أكمل الألفين نقطة حركة السائقين.rar

جرب المعادلة بهذا الشكل =SUMPRODUCT(($D$7:$D$2000=$B3)*($C$7:$C$2000)*($G$7:$G$2000=INDEX(G7:G2000,MATCH(1,(SUBTOTAL(3,OFFSET(G7:G2000,ROW(G7:G2000)-MIN(ROW(G7:G2000)),0,1)))*(G7:G2000<>""),0)))) البداية من الصف السابع في المرفق الخاص بك

أخي الحبيب أحمد الرشيدي ماذا تقصد بفك الحماية ؟ هل تقصد فك حماية أوراق العمل أم فك حماية محرر الأكواد؟ ارفق ملفك

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

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

أخي الحبيب أبو حنين إليك المعادلة التالية علها تفي بالغرض =SUMIFS(عام!P$5:P$100,عام!I$5:I$100,A5,عام!H$5:H$100,">="&$A$2,عام!H$5:H$100,"<="&$E$2) لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. و يا ريت ميبقاش فيه أكتر من ملف مرفق في الموضوع الواحد حتى لا يتشتت الأعضاء (النصيحة للجميع .. وليس لشخص أبو حنين) كل عام وأنتم بخير حركة السائقين.rar