mn20
-
Posts
74 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
-
mn20's post in بحث بأكثر من شرطين was marked as the answer
السلام عليكم ورحمة الله وبركاته
استاذي محمد Mohamed Hicham ما شاء الله تبارك الله كود جميل وفكر رائع ( لا زلت احلله واتعلم منه ما شاء الله).
أوافقكم الرأي بوجوب توضيح المطلوب وتحديدها وهو ما حاول Goldkamel أن يعرضه من خلال ملفين الأول متعلق بالصيانة ، والآخر متعلق ببيانات مدرسية.
مع أن الهذف لازال غير واضح، مع لذلك وحسب فهمي لمطلوب وبعد الاستفادة مما طرحه الاستاذ محمد هشام ، ارفق لكم ملفين الأول متعلق بالصيانة والاخر متعلق ببيانات مدرسية اجتهدت أن تكون وفق المراد.
يمكن تحديد ثلاث عناصر للبحث، ويمكن اختيار اي عمود للبحث فيه، مع الحرية في تحديد البيانات التي ترغب في عرضها في القائمة كنتيجة لعملية البحث.
ملاحظات: مع اسفي على تشتتي بين الملفات المرفوعة ومحاولة تحديد المطلوب مع تقديم المقترح في ردي الأول بأهمية وجود ورقة (Prime) تتضمن القوائم التي من خلالها يتم توحيد الادخال والبحث والمعالجة لتجنب الأخطاء المطبعية عند الادخال أو البحث، وعند الرغبة في البحث في اكثر من ورقة فيجب مراعاة توحيد الأعمدة في جميع أوراق العمل.
بحث بشرطين kml2.xlsm البحث فى كل اوراق العمل.xlsb
-
mn20's post in ترتيب الطلاب بحسب درجاتهم was marked as the answer
ابشر .. تم
ترتيب الطلاب(العاشر).xls
-
mn20's post in مساعدة في حساب اعادة ترتيب الموظفين was marked as the answer
وعليكم السلام ورحمة الله وبركاته
حسب ما فهمت من شرحكم .. يمكن ذلك باستخدام الدالتين (INDEX) و (MATCH)
بالمرفقات ملف لعله يوضح ذلك ..
الرقم الاستدلالي.xlsx
-
mn20's post in مقارنة مصنفين مع اظهار التغييرات بمصنف جديد was marked as the answer
حياك الله أخي (Abu Rafat) .. تم التعديل أرجو التجربة.
مقارنة (1).xls
-
mn20's post in تحويل معادلة الى كود was marked as the answer
السلام عليكم ورحمة الله وبركاته
ممكن تجرب الكود
Application.WorksheetFunction.Text(now(),"yy")&"/01/01"
-
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
-
mn20's post in أريد كود للتقريب في الأرقام was marked as the answer
اخي الأستاذ أحمد
الله يبارك فيكم .. المطلوب غير واضح .. ما الحاجة الى كود لتقريب الأعداد العشرية مع وجود الدوال Round، RoundUp، RoundDown ...
وان كان مطلوبكم غير ذلك ، فلعلكم توضحون.
دوال تقريب الاعداد العشرية.xlsx
-
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"
-
mn20's post in كيف عمل قائمة منسدلة مبنه على الشيت was marked as the answer
وعليكم السلام ورحمة الله وبركاته
أتوقع باستخدام الدالة (INDIRECT) ولعل هذا هو المطلوب 😘
نموذج (1).xlsx