اذهب الي المحتوي
أوفيسنا

احمد بدره

الخبراء
  • Posts

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

  • Days Won

    6

كل منشورات العضو احمد بدره

  1. يجب أن تقوم بالضغط بالماوس على السهم ثم تختار أي اسم بالوقوف عليه ثم بعد ذلك تقوم بتحريك عجلة الماوس
  2. هذه محاولة مني ولكن ليس عندي نظام 64 بت فقم بالتجربة DataValidationMouseScroll.rar
  3. تم إرفاق دالة التفقيط باللغة العربية تسمى NoToTxt وأخرى للتفقيط باللغة الإنجليزية تسمى =NumberToTextEN كل ما عليك كتابة اسم العملة وكسر العملة تفضل المطلوب Cash Payment Request.xlsm
  4. بعد البحث عن الخلل وبعد تعب ومشقة للوصول للخطأ في الكود تبين أن الكود يعمل بشكل سليم والخطأ لديك في العمود BB وتم تصويبها تفضل المطلوب الدور الثانى 2019 علمى.xlsm
  5. تسلم أستاذ وجيه ولكني أرى أنه يجب أن تكون الخلية B3 تكون بها معادلة الأستاذ الفاضل سليم ويكون واستخدام العمودK والعمود L أفضل لأنه الخلية B3 سوف يتم الاستعلام عن ورقة العمل التي سوف يتم أخذ منها البيانات ولإثراء الموضوع فاتوره.xlsm
  6. بارك الله فيك أستاذ علي ولكن سهوًا منك قمت بكتابة صيغة الجمع للمفرد فتم التعديل حتى يكون التفقيط صحيحًا شهادات سادس2018-2019.xls
  7. أحسنت أستاذ وجيه ولكن لم تتنتبه أن هناك طلب ثاني فالملف بعد العمل على الطلب الثاني نسخة من Book1.xlsm
  8. ممكن تجرب هذا على أساس أن رقم العميل إذا كان فرد يأخذ السعر 1 وإذا كان زوجي يأخذ السعر2 New Microsoft Excel Worksheet(1)(1).xlsx
  9. طلبك غير مفهوم يجب إرفاق مثال مكتوب بالنتيجة المتوقعة حتى يتم العمل عليها من أحد الأعضاء أو المشرفين بالموقع ثانيًا ثم تعديل في ورقة 2 حتى لا تكون المعادلات تعطى بأي نوع من الأخطاء وإليك الملف بعد التعديل ويجب أن تقوم بالشرج الوافي بالمطلوب عمله New Microsoft Excel Worksheet(1).xlsx
  10. عليكم السلام ورحمة الله وبركاته جرب تم التعديل فيتم جمع والغياب فيالإحصاء شرطه غ في درجة التحريري كنترول اولى - ت النهائى 201999.rar
  11. إليك كود فتح ملف إكسيل Sub open_file() Dim file_name As Variant Dim open_wk As Workbook On Error GoTo 1 file_name = Application.GetOpenFilename(Title:="اختار ملف الاكسل", FileFilter:="Excel Files *.xlsm (*.xlsm),") If file_name = False Then 1 MsgBox "من فضلك اختار ملف الاكسل xlsm", vbCritical Exit Sub Else Set open_wk = Workbooks.Open(file_name) End If End Sub
  12. رائع أستاذ وجيه أستاذنا الفاضل مجدي ممكن تجرب هذا الملف يعمل في بيئة ويندوز64 استخراج البيانات من الرقم القومى.xlsm
  13. أستاذ عمراوى الملف مضبوط 100% لأنه إذا كان الطالب غائب في التحريري يكون غ حتى يمكن احتساب الإحصاء
  14. نسخة الأوفيس بها ملفات ناقصة والله أعلم
  15. ممكن تستخدم هذه الطريقة التي أرسلها في الملف بحيث بعد الكتابة والطباعة يتم ترحيل البيانات في مكان الحفظ وتكتب في أماكن ثابتة وعند الطباعة تختار طباعة التحديد وبعد الطباعة اختر أمر ترحيل فيتم ترحيل البيانات في مكان للحفظ ويتم تفريغ المكان للكتابة فيه من جديد والسعر للتغيير في ورقة 2 k1.xls
  16. بعد إذن أستاذنا الفاضل إبراهيم الحداد تم عمل التحقق من الصحة بالمعاداة مثلاً لمادة الرياضة العامة في خانة آخر العام =AND(OR(BA8="غ";BA8="صفر";AND(BA8>=0;BA8<=$BA$6))) حتى إذا تم تغيير درجة المادة يتماشى معها وتم عمل المعادلة التي ذكرها في خانة المجموع وإليكم الملف بعد التعديل كنترول اولى - ت النهائى 201999.rar
  17. فقط استبدل الجزء هذا بمكان الحفظ C:\Documents and Settings\ahmed\Desktop\New Folder (2) ولمعرفة المكان الذي تريد الحفظ فيه فمثلاً عند فتح مجلد التنزيلات نلاحظ في الصورة
  18. ممكن عمل ذلك بدون أكواد من قائمة ملف اختر خيارات ثم اختر خيارات متقدمة ثم إلغاء علامة صح من أمام إظهار علامات التبويب الأزرق ثم موافق شاهد الصورة وإليك الملف بعد التعديل المطلوب 2202.xlsm
  19. بعد إذن الأستاذ / وجيه قمت بعم ماكرو للتنقل بين أوراق العمل جرب هذا التعديل لعله يفي الغرض 2202.xlsm
  20. يمكن عمل تصفية للمادة بدون تسمية أي نطاقات النطاقات(1).xlsx
×
×
  • اضف...

Important Information