خالد الرشيدى

اخي الكريم الامر بسيط .. فقط قم بتغيير تنسيق الخلايا من Date الى General المراقب1.zip

السلام عليكم حقيقة لم ابحث كثيراً فيما يخص التاريخ الهجرى ولا اعرف الكثير عن كيفيه التعامل معه .. ولكن هذه هي محاوله منى للمساعده وعل احد من اساتذتى بالمنتدي يقدم معادلة ابسط من المعادله التى استخدمتها ليستفاد الجميع اخى الكريم تم الحل باستخدام معادلة تنسيق شرطي .. راجع المرفق وابدي ملاحظاتك =DATEDIF(TODAY(),IF(ISNUMBER($D2),SUM($D2),IF(ISERROR(VALUE("a"&$D2)),FALSE,VALUE("a"&$D2))),"d") المراقب.zip

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

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

السلام عليكم جرب الكود التالى كأحد الطرق علة المطلوب تماماً Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 4 Then Dim lRow As Long lRow = Sheet3.Range("C" & Rows.Count).End(xlUp).Row Sheet3.Range("C4:C" & lRow).Name = "MyList" With Range("B" & Target.Row).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=MyList" End With End If End Sub تفضل المرفق قائمة منسدلة.rar

السلام عليكم اخي الكريم اعد رفع الملف مرة اخرى ... لا استطيع تحميلة

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

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

السلام عليكم انظر المرفق علة المطلوب .. وان لم يكن كذلك يرجي مزيد من التوضيح مطلوب دالة اللازم والعجز والزيادة.rar

السلام عليكم ا. mostafa zaki قم حضرتك بفتح موضوع جديد اعرض فيه استفسارك ودائما وابداً ارفق مع السؤال ملف مشروح به المطلوب تقبل مرورى وتحياتي

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

السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالي كأحد طرق الحل .. علة المطلوب تماماً Option Explicit Sub GetUniques() Dim d As Object, c As Variant, i As Long, lr As Long Set d = CreateObject("Scripting.Dictionary") lr = ورقة3.Cells(Rows.Count, 2).End(xlUp).Row c = ورقة3.Range("b2:b" & lr) For i = 1 To UBound(c, 1) d(c(i, 1)) = 1 Next i ورقة9.Range("B2").Resize(d.Count) = Application.Transpose(d.keys) With ورقة9.Range("C2:C" & d.Count + 1) .FormulaR1C1 = "=LOOKUP(2,1/('قائمة حساب الفواتير'!R2C2:R10000C2=RC[-1]),'قائمة حساب الفواتير'!R2C4:R10000C4)" .Value = .Value End With End Sub اعطاء رمز للمادة واعتماد السعر الاخير للمادة123_2.rar

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

السلام عليكم اخي الكريم المطلوب غير واضح.. ما المقصود بإعطاء رمز لكل ماده.. هل تقصد بكتابه الرمز تظهر الماده؟؟؟؟... واي سعر باي عمود يعد السعر الاخير للماده.. ايضا لاحظت ان الاسعار بالدينار العراقي وليس الدولار..؟؟؟؟ يرجي مزيد من التوضيح

السلام عليكم ضع المعادلة التالية بالخلية C2 ثم اسحبها لاسفل =RIGHT(B2,4)

السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالى كأحد الحلول Sub Test() Dim ws As Worksheet, Lastrow As Long Set ws = ورقة2 Lastrow = ورقة2.Cells(Rows.Count, 3).End(xlUp).Row ws.Range("C4:C" & Lastrow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ورقة11.Range("B4"), Unique:=True End Sub

السلام عليكم تفضل اخى الكريم علة المطلوب تعديل واضافة على فورمة الادخال_2.rar

السلام عليكم تفضل اخي الكريم علة المطلوب ...وان لم يكن كذلك يرجي مزيد من التوضيح او وضع نموزج مصغر من الملف الاصلى ... بإستخدام معادلة تنسيق شرطي =SUMIF($E$3:$E3,"<>",$E$3:$E3)<=$F$3 Book1_5.rar

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

السلام عليكم اخى الكريم المعادلة موجودة ولكنها معادلة تنسيق شرطي من قائمة Home اختار Conditional Formatting ثم Manage Rules ثم ThisWorkBook ثم حدد الاجراء الموجود واضغط Edite ستظهر لك المعادلةضمن Use Formula To Determine Which Cells To Format تقبل تحياتى

السلام عليكم ورحمة الله طرح الاستاذ سليم لفت نظري الى انني باستخدام المعادلات Sum و CountIf حسبت المتوسط ونسيت ان هناك المعادلة Average ... لهذا ابسط المعادلات هذه =AVERAGE($B2:$N2)<>MAX($B2:$N2) واستخدمت الدالة Max وليس B2 او اى خليه اخرى بشكل مباشر لان كل الاعمده قابلة لان تخلو من القيم ومن ثم المعادلة تختل ..وايضاً لان متوسط مجموعة قيم مختلفة لن يتساوي باكبر قيمه بينهم واخيراً استخدام <> وليس = ولتبسيط المعادله من حيث الشكل والتركيب.. لغيت استخدامي لمعادله if تقبلوا خالص تحياتي

استاذي القدير / ابو البـراء جزاك خيراً استاذي الحبيب و كل عام وحضرتك بخير خالص حبي وتقديري لشخصك المحترم

تفضل اخى الكريم علة المطلوب =VLOOKUP(DAY($D$3),INDIRECT("'"&C13&"'!C14:Z44"),MONTH($D$3)*2,FALSE) البحث في جداول متعددة.rar

السلام عليكم ورحمة الله أستأذن استاذي القدير / ابو البـراء جزاه الله عنا كل خير في عرض حل بطريقة معادلات التنسيق الشرطي ... كطريقة اخرى للحل =IF(SUM($B2:$N2)/COUNTIF($B2:$N2,"<>")=MAX($B2:$N2),0,1) كل عام وحضراتكم بخير تجربة_2.rar

وجزيت خيرا اخي الكريم الحمد لله الذي بنعمته تتم الصالحات