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

أخي الكريم ولد الحجاز لاحظت أن موضوعاتك موجزة .. يرجى دائماً إلقاء مزيد من التوضيح والشرح للموضوع .. تقبل تحياتي

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

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

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

إذا كان الأمر كذلك فلما لا تستخدم معادلة بسيطة جداً بالشكل التالي =COUNTIF(H:H,">=0") لعد الأرقام الموجبة والمعادلة التالية =COUNTIF(H:H,"<0") لعد الأرقام السالبة اما إذا كنت تقصد المجموع فيمكن استخدام المعادلة التالية لجمع الأرقام الموجبة فقط =SUMIF(H:H,">=0",H:H) ولجمع الأرقام السالبة فقط استخدم المعادلة التالية =SUMIF(H:H,"<0",H:H) باستخدام الكود .. بفرض أن لديك الأرقام في العمود H .. جرب الكود التالي (النتائج تظهر بعد آخر خلية فارغة بمجموع الأرقام الموجبة والسالبة) Sub SUMPositiveNegativeA() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Cells(Rows.Count, "H").End(xlUp).Row Set C = Range("H1:H" & LR) PositiveSum = Application.WorksheetFunction.SumIf(C, ">=0") NegativeSum = Application.WorksheetFunction.SumIf(C, "<0") Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub وهذا كود آخر يؤدي الغرض بدون استخدام دوال الإكسيل داخل محرر الأكواد Sub SUMPositiveNegativeB() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Range("H" & Rows.Count).End(xlUp).Row For Each C In Range("H1:H" & LR) If IsNumeric(C) Then If Sgn(C) = 1 Then PositiveSum = PositiveSum + C If Sgn(C) = -1 Then NegativeSum = NegativeSum + C End If Next Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub تقبل تحياتي

الموضوع متجدد بإذن الله

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

تسلم يا أخي الغالي مختار .. مشكور على الكود المتميز بس تعالى هنا قولي (بتغطس كتير مش عارفلك سكة ؟!) ... ارسى في المينا لأبعتك على مارينا !! طبعاً هتقولي ابعتني هناك !!!

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

أخي الكريم المستخدم يرجى توضيح المطلوب بشيء من التفصيل ماذا تحاول أن تقوم بفعله؟ بالنسبة للإعلان عن المتغير يكون بكلمة Dim يليها اسم المتغير ثم كلمة As ثم نوع المتغير على سبيل المثال Dim R As Long في السطر تم الإعلان عن المتغير R من النوع Long الخاص بالأرقام الصحيحة الطويلة يمكن تعيين رقم صحيح طويل للمتغير بهذا الشكل مثلاً R = 5000 أو يمكن الإشارة إلى قيمة خلية معينة مثلاً R = Range("A1").Value

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

أخي الكريم طاهر إذً لا مجال في هذه الحالة إلا بالكود وقد قدمه العلامة الكبير جعفر الطريبق لك

أخي الكريم أنا ناس ... أكيد أنا ناس (مش حاجة تانية) أولاً هتحتاج خلية من خلايا ورقة العمل أي خلية تعجبك .. وليكن هشرح على الخلية O1 حدد الخلية روح للتبويب Data ثم Data Validation واختار من القايمة List عشان تعمل قايمة واكتب في مستطيل الـ Source كلمتين ON و OFF ON,OFF تمام .. قووووووووول تمام (مقلتش على فكرة وأنا سامعك) روح بقا للتبويب الأول Home وروح للتنسيق الشرطي Conditional formatting واختار New Rule ومن النافذة اللي قدامك (ركز وصحصح واصحى) اختار آخر خيار Use a formula to determine ...... وضع المعادلة التالية في المستطيل الكبير اللي على يمينه علامة حمرا =IF($O$1="OFF",TRUE,FALSE) طبعاً لو فيه رسالة خطأ طلعت لك ابقا استبدل الفاصلة بفاصلة منقوطة .... اضغط OK .. وكمل معايا >>>>>>>>>>>>>>>>>>>>> ادخل مرة تانية على التنسيق الشرطي بس المرة دي اختار Manage Rule عشان هنغير حاجة بسيطة كدا اختار من القايمة This worksheet عشان تظهر لك كل المعادلات الخاصة بالتنسيق الشرطي في كل ورقة العمل لما تبص على معادلاتك هتلاقي إن المعادلات مرة بتنطبق على العمود A ومرة على العمود B ومرة على العمود C ..بكدا نفهم إننا لازم نعمل نطاق يلم الثلاثة أعمدة وليكن النطاق A2:C1503 .... نحدد المعادلة بتاعتنا الجديدة (ملناش علاقة بمعادلاتك القديمة) نحدد ونيجي في صندوق Applies to ونكتب النطاق =$A$2:$C$1503 هتلاقي مربع في ناحية اليمين هتعلم عليه علامة صح Stop If True وأخيراً اضغط OK بس خلاص ... جرب بقا روح للخلية O1 واختار مرة ON ومرة OFF ولاحظ التغيير أرجو أن أكون قد أفدتك تقبل تحياتي

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

جرب الملف التالي وأعلمنا بالملاحظات (ويرجى دائماً مزيد من التوضيح ...) Put TURE Or Y.rar

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

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

أخي الكريم أنس هل المطلوب وضع التاريخ في مربع النص TextBox الذي به المؤشر فقط؟ لو انتقل المؤشر هل يتم مسح التاريخ من مربع النص الذي كان به المؤشر أم لا بعد الانتقال منه إلى مربع نص آخر؟

والله قصرت أخي محمود لما استخدمت حرف العين بدلاً من كلمة عبد كان هيبقا شكلها أحلى لو كان اسم الظهور : محمود عبد المنعم عموماً أحسن من الاسم الأولاني d1425hd

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

إن شاء الله ليلاً إن تيسر لي الوقت سأقدم لك شرحاً للكود ... تقبل تحياتي ويرجى مراجعة التوجيهات (خاصةً اسم الظهور) أخي الكريم جرب المعادلة التالية في الخلية B2 في ورقة العمل data =IF(SUMPRODUCT(('Sheet 1'!$A$2:$A$500=$A2)*(B$1>='Sheet 1'!$B$2:$B$500)*(B$1<='Sheet 1'!$C$2:$C$500))>0,TRUE,"") ثم قم بسحب المعادلة لأسفل وإلى اليمين إلى آخر النطاق للأعمدة والصفوف إذا لم تعمل المعادلة يمكنك استبدال الفاصلة في المعادلة بفاصلة منقوطة كما يمكنك استخدام المعادلة التالية =IF(COUNTIFS('Sheet 1'!$A$2:$A$500,$A2,'Sheet 1'!$B$2:$B$500,"<="&B$1,'Sheet 1'!$C$2:$C$500,">="&B$1)>0,TRUE,"")

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

أعتقد أن كثرة المعادلات بالملف مع هذا العدد من الأعمدة سيتسبب في ثقل الملف .. عموماً ننتظر الأخوة المتخصصين في المعادلات لمعالجة الأمر

برنامج نور التجاري والخدمي (هدية العام الهجري الجديد) ضاحي الغريب و شوقي ربيع ************** سلسلة : تعلم اكسل معي بالصوت والصورة محمد نصري ************** دروس فى VBA Excel _ نتعلم معا برمجه اكسل محمود الشريف ************** افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) ياسر خليل أبو البراء ************** سلسلة علمنى كيف اصطاد ( الفورم ) Forms حسام عيسى (صقر المنتدى) ************** فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد الأستاذ المخضرم / مجدي يونس **************

بسم الله ما شاء الله متميز كعادتك أيها الصقر (اللي مش جارح طبعاً) بارك الله فيك وجزاك الله كل خير عايز أعرف ايه الفرق اللي بين الخاصية Enabled والخاصية Locked ؟؟؟