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

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

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

إذا كنتي كما تقولين لحاولتي أولاً ثم إذا تعثر الأمر طلبتي المساعدة الموضوع مش محتاج ملف مرفق لأني أرفقت ملف بالفعل من قبل في المشاركة رقم 16 افتحي المصنف ، ادخلى على محرر الأكواد Alt + F11 ، دبل كليك على موديول رقم 1 تقريبا مش متذكر عدلي النطاق كما تريدين كما ذكرت في المشاركة السابقة .. في ورقة العمل قومي بتنسيق هذه الخلايا حتى لا تظهر البيانات في القائمة المنسدلة على شكل شهور ..عن طريقة كليك يمين على الخلايا ثم تنسيق خلايا Format cells ثم اختاري Text ثم ومن التبويب Home انقري Left-To-Right Text Direction واختاري Right-to-Left إذا لم يفلح الأمر ستجدين المساعدة بعون الله تقبلي تحياتي

هل هناك قانون رياضي يحكم الأمر ؟؟ لأني لست خبيراً في القوانين الرياضية

بسيطة جدا قومي بتغيير هذا السطر ليناسب طلبك With Sheets("الاوائل").Range("S7:S100").Validation مع مراعاة تحديد الخلايا المراد عمل قائمة منسدلة لها وجعل التنسيق كنص Text ، ومن التبويب Home انقري Left-To-Right Text Direction واختاري Right-to-Left

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

تفضل أخي الفاضل قمت بإعداد الشروط التي قدمتها في المشاركة الأولى وعليك بتكملة الشروط بما يناسبك Sub Test() Dim LR As Long Dim Rng As Range, Cell As Range LR = Cells(Rows.Count, 1).End(xlUp).Row Set Rng = Sheets("Sheet1").Range("A2:A" & LR) For Each Cell In Rng If Cell.Value >= 1 And Cell.Value <= 100 Then Cell.Offset(, 1).Value = "A" ElseIf Cell.Value >= 101 And Cell.Value <= 250 Then Cell.Offset(, 1).Value = "B" ElseIf Cell.Value >= 151 And Cell.Value <= 400 Then Cell.Offset(, 1).Value = "C" ElseIf Cell.Value >= 401 And Cell.Value <= 550 Then Cell.Offset(, 1).Value = "D" ElseIf Cell.Value >= 551 And Cell.Value <= 600 Then Cell.Offset(, 1).Value = "E" 'قم بنسخ آخر سطرين والتعديل عليهما بما يناسبك من شروط وهكذا End If Next Cell End Sub

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

تفضل أخي الحبيب الكود التالي يقوم بعمل القائمة المنسدلة كما طلبت Sub UniqueSortedList() Dim Arr, X As Object Application.ScreenUpdating = False With CreateObject("System.Collections.ArrayList") Set X = .Clone: X.Add " " Sheets("بيانات").Activate For Each Arr In Range("A1", Cells(1, Columns.Count).End(xlToLeft)).Value If Arr <> "" And Left(Arr, 3) = "بنك" Then If IsNumeric(Arr) Then If Not .Contains(Arr) Then .Add Arr Else If Not X.Contains(Arr) Then X.Add CStr(Arr) End If End If Next .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",") End With Sheets("قصاقيص").Activate With Sheets("قصاقيص").Range("D4").Validation .Delete .Add xlValidateList, 1, 1, Arr End With Application.ScreenUpdating = True End Sub

مرحبا بك أخي الكريم خالد رضوان بين إخوانك ومشكور على كلماتك الطيبة ومرورك العطر .. تقبل تحياتي

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

أخي الفاضل جرب هذه الدالة بهذا الشكل Function PicA(R As Double, I As Double) As Variant PicA = R * I / 2 'Put this formula in C1 =PicA(A1,B1) End Function ضع المتغيرات في A1 و B1 ثم اكتب المعادلة في C1 بهذا الشكل =PicA(A1,B1)

تفضلوا قائمة منسدلة بدون أعمدة مساعدة وبدون الاستعانة بورقة العمل ، ومنقحة وبلا فراغات وبها قيم فريدة أي غير مكررة وعلاوة على كل ما سبق مرتبة أيجدياً.. إليكم الملف المرفق Unique Sorted Validation List.rar

الأخوة الكرام إليكم الإصدار الأخير .. فيه تعديل طفيف على بعض الأكواد Codes Library v1.9.5.rar

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

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

مشكور أخي أيمن على التحية تقبل تحياتي

جرب المعادلة باستخدام Rows =MAX(INDEX(($I$3:I3=I4)*ROWS($S$3:S3),0))

تفضلي المرفق التالي جمع مشروط.rar

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

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

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

إليك الملف المرفق جمع مشروط.rar

أعمل على ويندوز 7 نسخة Ultimate ، وأوفيس 2007 ثم إني لاحظت أن حجم الملف صغير جدا بالنسبة لفيديو .. ممكن يكون فيه ملف مرفق مع الملف المضغوط حضرتك نسيت ترفعه

أخي الكريم أيمن حاول أن تبتعد عن دمج الخلايا ، فهي تسبب مشاكل كبيرة مع الأكواد إليك الملف المرفق عله يفي بالغرض دوائر راسب.rar