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

mn20

02 الأعضاء
  • Posts

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

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

Community Answers

  1. mn20's post in معادلة If was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    يتم ذلك باستخدام الدالة (int) ... الملف بالمرفقات به المطلوب ان شاء الله.
    IF.xlsx
  2. mn20's post in بحث بأكثر من شرطين was marked as the answer   
    السلام عليكم ورحمة الله وبركاته
    استاذي محمد Mohamed Hicham ما شاء الله تبارك الله كود جميل وفكر رائع ( لا زلت احلله واتعلم منه ما شاء الله).
    أوافقكم الرأي بوجوب توضيح المطلوب وتحديدها وهو ما حاول Goldkamel  أن يعرضه من خلال ملفين الأول متعلق بالصيانة ، والآخر متعلق ببيانات مدرسية.
    مع أن الهذف لازال غير واضح، مع لذلك وحسب فهمي لمطلوب وبعد الاستفادة مما طرحه الاستاذ محمد هشام ، ارفق لكم ملفين الأول متعلق بالصيانة والاخر متعلق ببيانات مدرسية اجتهدت أن تكون وفق المراد.
    يمكن تحديد ثلاث عناصر للبحث، ويمكن اختيار اي عمود للبحث فيه، مع الحرية في تحديد البيانات التي ترغب في عرضها في القائمة كنتيجة لعملية البحث.
    ملاحظات: مع اسفي على تشتتي بين الملفات المرفوعة ومحاولة تحديد المطلوب مع تقديم المقترح في ردي الأول بأهمية وجود ورقة (Prime) تتضمن القوائم التي من خلالها يتم توحيد الادخال والبحث والمعالجة لتجنب الأخطاء المطبعية عند الادخال أو البحث، وعند الرغبة في البحث في اكثر من ورقة فيجب مراعاة توحيد الأعمدة في جميع أوراق العمل.
     
    بحث بشرطين kml2.xlsm البحث فى كل اوراق العمل.xlsb
  3. mn20's post in ترتيب الطلاب بحسب درجاتهم was marked as the answer   
    ابشر .. تم 
    ترتيب الطلاب(العاشر).xls
  4. mn20's post in مساعدة في حساب اعادة ترتيب الموظفين was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    حسب ما فهمت من شرحكم .. يمكن ذلك باستخدام الدالتين (INDEX) و (MATCH)
    بالمرفقات ملف لعله يوضح ذلك ..
    الرقم الاستدلالي.xlsx
  5. mn20's post in مقارنة مصنفين مع اظهار التغييرات بمصنف جديد was marked as the answer   
    حياك الله أخي (Abu Rafat) .. تم التعديل أرجو التجربة.
    مقارنة (1).xls
  6. mn20's post in تحويل معادلة الى كود was marked as the answer   
    السلام عليكم ورحمة الله وبركاته
    ممكن تجرب الكود
    Application.WorksheetFunction.Text(now(),"yy")&"/01/01"  
  7. mn20's post in طلب كود طباعة الصفحة الأولى من كل شيت بملف الاكسيل was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    لطباعة الصفحة الاولى فقط من جميع الأوراق في الملف جرب الكود:
    Sub Print1() Dim WS As Worksheet For Each WS In ActiveWorkbook.Sheets WS.PrintOut From:=1, To:=1 Next End Sub  
  8. mn20's post in أريد كود للتقريب في الأرقام was marked as the answer   
    اخي الأستاذ أحمد
    الله يبارك فيكم .. المطلوب غير واضح .. ما الحاجة الى كود لتقريب الأعداد العشرية مع وجود الدوال Round، RoundUp، RoundDown ...
    وان كان مطلوبكم غير ذلك ، فلعلكم توضحون.
    دوال تقريب الاعداد العشرية.xlsx
  9. mn20's post in مقارنة بين شيتين .خطأ في الكود was marked as the answer   
    السلام عليكم ورحمة الله وبركاته
    ضع جميع الملفات (File1 , File2 , vba Code) في مجلد (فولدر) واحد وجرب .. لعله يفي بالمطلوب 😘.
    File1.xlsx File2.xlsx vba code.xlsm
     
    بعد اذن اخى @mn20
    عدل
    File1 = "File1.xlsx" File2 = "File2.xlsx" الى File1 = ThisWorkbook.Path & "\" & "File1.xlsx" File2 = ThisWorkbook.Path & "\" & "File2.xlsx"  
  10. mn20's post in كيف عمل قائمة منسدلة مبنه على الشيت was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    أتوقع باستخدام الدالة (INDIRECT) ولعل هذا هو المطلوب 😘
    نموذج (1).xlsx
×
×
  • اضف...

Important Information