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

عبدالله بشير عبدالله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    932

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

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

  • Days Won

    69

 نوع المحتوي 

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

  1. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته هذا الموضوع به طلبك ان شاء الله https://www.officena.net/ib/topic/66864-استدعاء-فورم-عن-طريق-رقم-سري/#comment-434812
  2. عبدالله بشير عبدالله
    تستحقها عن جدارة الف مبارك وفقك الله
  3. عبدالله بشير عبدالله
    بارك الله بك ولك اضعاف ما دعوت لي جرب الملف المرفق البرنامج الجديد 2021 (1) (12) (6).xlsm
  4. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته قم بتظليل عمود التاريخ تم انقر الفارة اليمين تظهر قائمة منسدلة اختر منها تنسيق خلايا ثم من القائمة الاخرى اختر تاريخ بالنسبة لمعاينة الطباعة قم باستبدال كلمة PrintOut بـ PrintPreview بالكود تحياتي
  5. عبدالله بشير عبدالله
    قم بنغيير اسم الشيت كما افاد استاذنا عبد الفتاح
  6. عبدالله بشير عبدالله
    Sub COPYPASTE() ActiveCell.Copy Range("C9").Select Sheets("SHEET2").Select Range("C8").Select ActiveSheet.Paste End Sub
  7. عبدالله بشير عبدالله
    جسب فهمي لطلبك طبعا C9 خلية اللصق التابتة يمكنك تغييرها Sub COPYPASTE() ActiveCell.Copy Range("C9").Select ActiveSheet.Paste End Sub
  8. عبدالله بشير عبدالله
    اخي الفاضل لو قمت بالبحث بالمنتدى لوجدت حلا لطلبك كما اخبرك استاذنا الفاضل محمد صالح في المرفق التالي كود لطباعة الكل وطباعة اختيارية عن طريق الفورم وهذا الكود للعلامة الاستاذ عبدالله باقشير شهادة مرتب.xls
  9. عبدالله بشير عبدالله
    الملف بعد تحويل الى رقم SA2.xlsx
  10. عبدالله بشير عبدالله
    ارفق الملف حتى يتمكن الزملاء من معرفة سبب المشكلة
  11. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته السبب هو الارقام الموجودة تم تخزينها الى نص ستجد في زواية الخلية علامة انقر عليها تظهر لك خيارات اختر تحويل الى رقم او يمكنك تضليل كل الخلايا والنقر عى العلامة في اول خلية واحتر تحويل الى رقم فيتم تحويلها كلها مرة واحدة شاهد الصورة المرفقة
  12. عبدالله بشير عبدالله
    الجدول في ملف الوورد غير موجود بملف الاكسل جهز الجدول في ملف الاكسل وان شاء الله احوله الى وورد تحياتي
  13. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته كيف حالك استاذ خيري حسب فهمى لطلبك ارفق لك هذا الملف اظافة الى طلبات اخرى من مشاركة اخرى https://www.officena.net/ib/topic/109798-نرنيب-الطلبة-حسب-المدرسة-ككل-وحسب-الفصل/ تحياتي SA.xlsm
  14. عبدالله بشير عبدالله
    ارفق الملف لتحديد سبب المشكلة
  15. عبدالله بشير عبدالله
    لو ارفقت ملفا لكان اجدى مرفق ملف به كود بسيط جدا الكود لا تغير به شئ سوى مدى ورقة الاكسل تحياتي ... الملف المرفق من احدى المواقع الاجنبية تحويل الى وورد.xls
  16. عبدالله بشير عبدالله
    تم التعديل خطأ بالمعادلة.xlsx
  17. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته جرب الملف تلوين المكرر.xlsm
  18. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك ارجو ان يكون بالملف المرفق طلبك النقل البري بيانات الموظفين (2).xlsm
  19. عبدالله بشير عبدالله
    طلبك غير واضح بالنسبة لى ارجو تحديد المعادلة في اي عمود واي خليةوهل البيانات في ملفك صحيحة حت يتم التطبيق عليها
  20. عبدالله بشير عبدالله
    المعادلة للاستاذ نزار سليمان عيد والكود للسيد عبدالله باقشير خفظهما الله تم تحويل المعادلة الى كود لعدد الف صف تحياتي يومية.xlsb
  21. عبدالله بشير عبدالله
    السلام عليكم اكتب المعادلة التى تريد تحويلها الى كود وايشر خيرا ان شاء الله وان كانت معادلة الاستاذ نزار هي المطلوبة فاعلمنى .
  22. عبدالله بشير عبدالله
    جرب هذا المرفق وهو من كنوز المنتدى للسيد عبدالله باقشير البرقيات.xls
  23. عبدالله بشير عبدالله
    وعليكم السلام ورحمة الله وبركاته فكرة رائعة وعملية هدية مقبولة وان شاء الله في ميزان حسناتك كل العام وانت بخير
  24. عبدالله بشير عبدالله
    وعليكم السلام رحمة الله وبركاته وكل عام وأنتم بخير Application.ScreenUpdating = True MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok" ActiveWorkbook.Save End Sub
  25. عبدالله بشير عبدالله
    هذا الكود يحول الى وورد ولكن يتعين عليك تعديل اعددات الصفحة في الوورد من حيث الصفحة افقية او راسية وغيره Sub wordexport() Set Word = CreateObject("Word.Application") Word.Documents.Add Word.Visible = True Range("E1:Q1010").Copy Word.Selection.PasteExcelTable False, False, False Application.CutCopyMode = False End Sub
×
×
  • اضف...

Important Information

  I accept