اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11649
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    304

كل منشورات العضو Ali Mohamed Ali

  1. أحسنت استاذ صالح هدية بالطبع مقبولة وعمل ممتاز جعله الله فى ميزان حسناتك
  2. أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm
  3. تفضل -بعد اذن استاذنا حسين -لك ما طلبت بمعادلات المصفوفة 1استعلام.xlsm
  4. وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx
  5. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx
  6. وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض
  7. وعليكم السلام-تفضل اخى الكريم ,كان عليك استخدام خاصية البحث بالمنتدى كيفية كتابة معادلة داخل مربع نص او اشكال هندسية
  8. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx
  9. بارك الله فيك استاذ أحمد وجزاك الله كل خير وكل عام وأنتم بخير
  10. أخى الكريم sroodqadir أعتقد ان هذا بالطبع ليس من حقى فكما اوضحت مسبقا أن هذا العمل صمم من قبل الأستاذ سامى محمد على وهو الوحيد الذى له الحق فى ذلك فهذا يعتبر ثمرة تعب وسهر الليالى فى تصميم هذا البرنامج الممتاز أعتذر منك استاذى الكريم
  11. وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb
  12. أحسنت اخى الكريم عمل ممتاز بارك الله فيك
  13. تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm
  14. وعليكم السلام-تم تعديل وضبط الملف واستخدام هذه المعادلة =SUMIFS('2001'!$D$6:$D$770,'2001'!$C$6:$C$770,$A5,'2001'!$B$6:$B$770,C$3) FIX Formula1.xlsx
  15. فطالما انك لم تقم برفع ملف وشرح كل المطلوب عليه بكل دقة , فلما لم تقم بإستخدام خاصية البحث بالمنتدى فبه كل ما تطلب-تفضل تعديل وضبط كود التفقيط كود التفقيط بالريال السعودى
  16. وعليكم السلام-اخى الكريم وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة وذلك لأنه لا يمكن العمل على التخمين ... فلما لا تقوم بإستخدام خاصية البحث بالمنتدى فقد تكرر طلبك كثير وشوف بنفسك : كود تفقيط الارقام من رقم إلى كتابة تفقيط عربي مميز دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود
  17. وعليكم السلام-لك ما طلبت كميات مقاولين556 .xlsm
  18. بارك الله فيك وزادك الله من فضله
  19. أحسنت استاذ مجدى عمل رائع بارك الله فيك وزادك الله من فضله
  20. بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة 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
  21. وعليكم السلام-لك ما طلبت JC new1.xlsx
×
×
  • اضف...

Important Information