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

دغيدى

أوفيسنا
  • Posts

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

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

  • Days Won

    14

كل منشورات العضو دغيدى

  1. أخى الفاضل / قم بالبحث سوف تجد ضالتك ..لأن المنتدى طرح هذا الموضوع كثيرا .. كى تتعلم أما وضع الصفر فنسق الخلية كنص
  2. أخى الفاضل / ارسل الملف وسوف تجد المطلوب
  3. أخى الفاضل / عبد الله المجرب سلام الله عليكم اينما حللتم أشكركم .. كل الشكر لتكريمى الكبير بنسب الفكرة لى وما أنا إلا مستخدم لهذا الصرح الذى ميزنى عن كثير من زملاء العمل .. لأنه سكنى الحالى ==================== مطلوب قائمة منسدلة بدون ( فراغات أو تكرار ) مرفق ملف به : 1 -قائمة أسماء بها تكرارات 2 - قائمة اخرى بدون تكرارات للقائمة الأولى 3 - قائمة منسدلة بدون تكرار ولكن بها فراغات المطلوب اكتمال العمل بأن تكون القائمة المنسدلة بدون ( فراغات أو تكرار ) تحياتى قائمةبدون تكرار.rar
  4. أخى الفاضل / عبد الله المجرب أشكركم على بساطة العمل
  5. أخى الفاضل يجب توزيع الملاحظين يدويا لمراعاة كل الظروف
  6. أخى الفاضل / محمد صــالح مروركم شرف لى أشكركم من قلبى
  7. أخى الفاضل / جمال الفار ذوق .. فن .. علم .. خلق .. هدف .. رائع
  8. Sub change_sheet_tab_color() ActiveWorkbook.Sheets(1).Tab.ColorIndex = 0 ActiveWorkbook.Sheets(2).Tab.ColorIndex = 1 ActiveWorkbook.Sheets(3).Tab.ColorIndex = 2 ActiveWorkbook.Sheets(3).Tab.ColorIndex = 3 ActiveWorkbook.Sheets(4).Tab.ColorIndex = 4 End Sub كود تلوين تبويبات الأوراق غير فى أرقام الألوان ولاحظ ملحوظة : يجب أن يكون الكود مناسبا للعدد الأوراق كود تلوين تبويبات الأوراق.rar
  9. أخى الفاضل / احمد حمور-ابوعبدالله سلام الله عليكم فى حالة استخدام ملفك وانا لا أعلم الاختصارات سوف تكون مشكلة
  10. أخى الفاضل / بن علية السلام عليكم تغيير جميل وتستحق الشكر
  11. أخى الفاضل اتبع ما قاله "أخى سعد " لأنها اسهل طريقة
  12. اخى عبد الله اثابكم الله على ماتقدمه من خير
  13. أخى الفاضل ..أبو الحارث كل عام وأنتم بخير شكرا جزيلا
  14. أخى أبو عبد الله جزاكم الله خيرا أحد الزملاء كان له ملف كل ماكرو معه اختصار من لوحة المفاتيح فكان متعب جدا لنه كان لا ينتقى الأزرار الخالية شكرا لكم
  15. Sub deletshape() Dim sh As Shape For Each sh In activesheet.Shapes If sh.Type = msoPicture Then sh.Delete End If Next sh End Sub حذف جميع الصور الموجودة فى الصفحة النشطة
  16. لمعرفة عدد ايام شهر محدد ( معين ) =DAY(DATE(YEAR(A2);MONTH(A2)+1;DAY(1))-1)
  17. إدراج صف فارغ عند تغيير البيانات في عمود منقول إدراج صف فارغ.rar
  18. وهذا الكود لفتح control panel Sub open_control_panel_by_vba() Shell ("control panel") End Sub
  19. أخى الفاضل / يوسف تم عمل كود من الأخوة الأفاضل ولكن هناك مشكلة وهى : الهمزة الوسطية مثل : رأفت ستكون رافت
  20. Sub open_notepad_by_vba() Shell ("notepad") End Sub كود لاظهار النوت باد notepad
  21. Sub open_Calculator_by_vba() Shell ("calc") End Sub كود لاظهار الآلة الحاسبة
  22. أخى الفاضل / عبد الله المجرب شكرا جزيلا فمنكم تعلمت . وأرغب فى التعلم شكرا
  23. أخى الفاضل / جمال الفار أشكركم وهدية مقبولة
  24. =TEXT(DATE(YEAR(A5);MONTH(A5);DAY(1));"dddd") لمعرفة أول أيام الشهر =TEXT(DATE(YEAR(A5);MONTH(A5)+1;DAY(1))-1;"dddd") لمعرفة آخر أيام الشهر
×
×
  • اضف...

Important Information