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

يحيى حسين

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

    2,148
  • تاريخ الانضمام

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

  • Days Won

    3

كل منشورات العضو يحيى حسين

  1. أخي و انت في صفحة الاكسيل قم بالضغط على Alt+F11 و ستفتح لك شاشة الفيجوال بيسك و من الشاشة قم باختيار Insert ثم Module و قم بنسخ الكود إلى هناك Sub Test() Application.DisplayFullScreen = False End Sub ثم اضغط F5 ليقوم الكود بعمله مباشرة
  2. أخي انور ارفق ملف به الدالة حتى تتضح الصورة
  3. أخي حسن أرفق لنا ملف يوضح إمكانيات الكريستال ريبورت في الاكسيل
  4. إضافة لطريقة الاخ محمد إذا كانت هذه القائمة ناتجة عن اضافة ملف Add-In قم بإلغاء هذا الملف من خلال القامئة Tools Add-Ins و قم بإلغاء علامة الصح من جوار الملف الذي تم إضافته ============= و طريق أخرى من القائمة Viem ToolBars Custmize و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك و ستختفي بعدها هذه القائمة
  5. كان الله في عونك اخي ابو عبد الرحمن
  6. يمكنك أيضاً أخي ان تجعل الكود مرتبط بحدث اخر مثلاً بحدث فتح الصفحة و أن يقوم الكود تلقائياً بالبحث في جميع الصفحات و تغيير الاسم حسب الخلية A1 في كل صفحة
  7. ربنا يبارك فيك اخي خبور و يزيدك من علمه
  8. اخي جرب هذا الكود Application.DisplayFullScreen = False End Sub
  9. كان الله في عونك و عون جميع الأخوة المدرسيين لكل مهنة مشاكلها و متاعبها و على رأي المثل اللي بشوف مصيبة غيره بتهون عليه مصيبته و نسأل الله أن يهون علينا و عليك هموم الدنيا و مصائبها هل المدرسة التي تعمل بها داخل العاصمة عمان ام خارجها ؟؟
  10. السلام عليكم و رحمة الله و بركاته بعد إذن أخي خبور يمكن اختصار المعادلة أعلاه إلى المعادلة التالية و ستعطي نفس النتيجة إن شاء الله =MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)
  11. أخي m_127899 لم أشاهد مشاركاتك منذ فترة عسى ان يكون المانع خير إن شاء الله
  12. جزاك الله كل خير اخي محمد لم اجرب الملف بعد و لكن الفكرة اعجبتني جعلها الله في ميزان حسناتك و رزقك الفردوس الأعلى
  13. تفضل أخي هذا طلبك و لكني مستغرب من تعقيدك للأمور بهذه الطريقة فلو استخدمت عموداً واحد افضل بكثير دالة الدينار و الكسور.rar
  14. أخي سالم هذه الميزة في النسخ الحديثة 2007 و 2010 فقط و لا توجد في النسخ القديمة و اخي محمد صالح شكرا لك على هذه الإضافة الجميلة
  15. السلام عليكم و رحمة الله و بركاته هذا حل اخر اخي و لكن لي سؤال لماذا لم تقم بجمع السعر في خانه واحدة بدل من وضعها في خانتين دالة الدينار و الكسور.rar
  16. السلام عليكم و رحمة الله و بركاته مرفق ملف به شرح بسيط عن طريق إضافة الدوائر الحمراء من خلال خاصية التحقق من صحة Validation أتمنى ان تفيد الأخوة في أعمالهم Red Cyrcle.rar
  17. السلام عليكم و رحمة الله و بركاته هذا الموضوع كنت قد كتبته في نهاية شهر رمضان و رفعته على المنتدى و لكن بعد الظروف التي مر بها منتدنا و فقدان بعض المواضيع و كان هذا احد المواضيع التي فقدت رفعته لكم مجددا و هو استكمال لموضوع شرح الدالة SumProduct و الملف يحتوي شرح الجزء الأول مع الجزء الثاني الدالة SumProduct.pdf
  18. أن شاء اللله أخي قصي سا أقوم بعمل ذلك قريباً
  19. إن شاء الله البرنامج الجديد يوفر هذه الميزة بحيث يمكنك تعديل ترويسة الشيك حسب رغبتك و بكل يسر و سهولة ان شاء الله
  20. نعم اخي محمد هذا الكود يعمل بهذه الطريقة بفحص فقط الخلية الاولى و من ثم يقوم بحذف السطر او العمود بناءاً عليها فهذا ما اقوم انا بعمله في الحياة العملية فعندما استورد اي بينات على الاكسيل و و أحتاج لحذف اسطر او اعمدة يكون المعيار لدي هو الخلية الاولى في السطر او العمود
  21. ما شاء الله عليك اخي خبور أستاذ و ستبقى استاذ في هذا المنتدى و الله اني احبك في الله
  22. أخي عمران إن كطنت تقصد ان يتم احتساب عمر كل ذمة لكل عميل بناء على تاريخ اليوم فشاهد المرفق لعلى و عسى ان يفي بغرضك مع اني قمت بعمله على ملف اخر كتجربة اعمار الديون Officena.rar
  23. أخي هذا برنامج شيكات كنت قد رفعته على الموقع قبل عام http://www.4shared.com/file/66995020/dbb21fc1/____.html و انا الآن اعمل على برنامج أخر يمكن المستخدم من تعديل ترويسة الشيك حسب الرغبة و ايضاً لأكثر من بنك و لكني لم أنتهي منه بعد شاهد اللمرفق لعلى و عسى أن يفيدك
  24. أخي هل هذا هو طلبك اعمار الديون.rar
  25. أخي إن كنت تقصد ان يتم وضع قيمة اي خلية في المدى الذي قمنا بتصفيته في الخلية D4 جرب هذا الكود البسيط Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 6 Then Exit Sub LR = Range("F" & Rows.Count).End(xlUp).Row If Target.Row > LR Or Target.Row <= 4 Then Exit Sub Range("D4").Value = ActiveCell.Value End Sub
×
×
  • اضف...

Important Information