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

حسونة حسين

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1092

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

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

  • Days Won

    32

 نوع المحتوي 

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

  1. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته هذه ليست صفحه بيضاء هذه اخر اعمده في الشيت عدل زووم صفحات الشيت اجعلها ١٠٠ % وستجد ان المشكله تم حلها ان شاء الله
  2. حسونة حسين
    بارك الله فيك أخي الغالي ابو يوسف @محمد حسن المحمد لو المشكله في الاميل يمكنه كتابه الاميل القديم له وان شاء الله سوف نجد حلا لمشكله الاخ السائل @ايمن حرب
  3. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته ما معني تصكر هل اتقفل ام تم حذفه ؟؟ لو ملف اكسيل يمكن رفعه هنا
  4. حسونة حسين
    السلام عليكم ورحمه الله وبركاته تفضل راس الصفحة - كود.xlsb
  5. حسونة حسين
    اين الملف المرفق
  6. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته عدل هذا السطر Set xRg = Worksheets("Sheet1").Range("C1:C" & I) الى Set xRg = Worksheets("Sheet1").Range("E1:E" & I)
  7. حسونة حسين
    السلام عليكم ورحمه الله وبركاته وبها نبدأ يرجي رفع ملف للعمل عليه
  8. حسونة حسين
    بارك الله فيك ابو حبيبه وجعله الله في ميزان حسناتك يوم القيامة
  9. حسونة حسين
    تفضل اخي INVOICE.xlsm
  10. حسونة حسين
    السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اضغط مرتين في اي خليه في عامود اسم الصنف في الفاتورة واكتب ما تريد البحث عنه في التيكست بوكس سوف يظهر لك الاصناف في الليست بوكس اضغط مرتي علي اي صنف تريده من الليست بوكس سوف يتم وضعه في اول خليه فارغه INVOICE.xlsm
  11. حسونة حسين
    السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل طباعة تقرير.xlsb
  12. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي الكريم ماجد تَيِّم (أبو عبد الرحمن) وجعله الله في ميزان حسناتك يوم القيامة
  13. حسونة حسين
    وعليكم السلام ورحمه الله وبركاته مدي المقارنه مفتوح وليس محدود اخي
  14. حسونة حسين
    بارك الله فيك دكتورنا الغالي جعله الله في ميزان حسناتك يوم القيامه
  15. حسونة حسين
    السلام عليكم ورحمة الله وبركاته هذا موضوع اخر اخي محمود
  16. حسونة حسين
    السلام عليكم ورحمة الله وبركاته وبها نبدأ ارفق ملف للعمل عليه
  17. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته أكواد VBA لا تعمل على الجوال لأن الجوال لا يدعم تشغيل برامج Excel التي تحتوي على VBA
  18. حسونة حسين
    السلام عليكم ورحمة الله وبركاته وبها نبدأ قم بالضغط على enable content كما بالصورة ولو لم تحل المشكله يمكنك الاطلاع على هذا الموضوع
  19. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته تفضل =SUBSTITUTE(B2;",";" ")
  20. حسونة حسين
    السلام عليكم ورحمة الله وبركاته وبها نبدأ ارفق ملف للعمل عليه
  21. حسونة حسين
    السلام عليكم ورحمة الله وبركاته وبها نبدأ وحضرتك بخير اخي ايهاب وبصحه جيده يرجي تصميم الفورم بالشكل الذي تحب ورفع الملف وان شاء الله ستجد ما يسرك
  22. حسونة حسين
    بارك الله فيك أخي وجعله الله زيادة في ميزان حسناتكم يوم القيامة
  23. حسونة حسين
    السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل ورقة عمل Microsoft Excel جديد.xlsx
  24. حسونة حسين
    جرب هذا الكود Sub test() Dim cell As Range For Each cell In Range("D2:D5000") If not IsNumeric(cell.Value) Then cell.Value = Val(Replace(cell.Value, "٫", ".")) End If Next cell End Sub
  25. حسونة حسين
    وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل =IF(G2>=0;ROUND(G2; 0);ROUND(ABS(G2);0)) او =IF(G2>=0,ROUND(G2, 0),ROUND(ABS(G2),0))
×
×
  • اضف...

Important Information

  I accept