Ali Mohamed Ali

رائع .. احسنت استاذ سليم بارك الله فيك

وعليكم السلام-اذا كان المطلوب كما قلت فتكون المعادلة كالتالى بالخلية I4 =IFERROR((Y4/X4)*H4,"") New ورقة عمل Microsoft Excel (2).xlsx

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

أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm

تفضل -بعد اذن استاذنا حسين -لك ما طلبت بمعادلات المصفوفة 1استعلام.xlsm

وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx

بارك الله فيك اخى الكريم

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx

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

وعليكم السلام-تفضل اخى الكريم ,كان عليك استخدام خاصية البحث بالمنتدى كيفية كتابة معادلة داخل مربع نص او اشكال هندسية

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx

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

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

وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb

أحسنت اخى الكريم عمل ممتاز بارك الله فيك

تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm

وعليكم السلام-تم تعديل وضبط الملف واستخدام هذه المعادلة =SUMIFS('2001'!$D$6:$D$770,'2001'!$C$6:$C$770,$A5,'2001'!$B$6:$B$770,C$3) FIX Formula1.xlsx

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

بارك الله فيك اخى الكريم وزادك الله من فضله

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

وعليكم السلام-لك ما طلبت كميات مقاولين556 .xlsm

جزاك الله كل خير استاذنا الكريم

بارك الله فيك وزادك الله من فضله

أحسنت استاذ مجدى عمل رائع بارك الله فيك وزادك الله من فضله

بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A2:D1000"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub