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

saad abed

05 عضو ذهبي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1380

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

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

  • Days Won

    4

 نوع المحتوي 

كل منشورات العضو saad abed

  1. saad abed
    استاذى ضاحى الغريب استاذى شوقى ربيع ابداع ابداع ابداع جزاكم الله خيرا جارى التجربة للمناقشة
  2. saad abed
    اخى ياسر اسال الله ان يرضى عنك وعنى وكل المسلمين جزاك الله خيرا
  3. saad abed
    اخى محمود الشريف شرح ممتاز جزاك الله خيرا
  4. saad abed
    اخى شوقى ربيع جزاك الله خيرا اوامر vba تابع مطيع لك زادك الله نورا وعلما
  5. saad abed
    اخى ضاحى ابو عمرو اشكرك كل الشكر اسال الله ان يديم عليك نعمه وان يحفظك انت واولادك بحفظه اللهم امين
  6. saad abed
    اخى ابوعلى اعمالك جميله ومفيده جزاك الله خيرا دمنم بخير
  7. saad abed
    اخى ابوعمرو كيف حالك برنامج جميل كم تمنيت ان تشرح لى كيف اظهر اسماء المالتى بيج اسفل الصفحة وعلى اليمين ان اردت بالاكواد اسال الله لك التوفيق اخوك سعد عابد
  8. saad abed
    اخى ابوعمرو كيف حالك اتمنى ان تكون بخير انت واولادك وكل من تحب اعمالك جميله كاخلاقك اسال الله لك التوفيق اخوك سعد عابد
  9. saad abed
    اخوتى السلام عليكم اشكر الفريق الاعلامى كاملا واخص بالشكر اخى شوقى ربيع درس الخوارزميات مهم جدا الكثير منا يعلم اوامر الفى بى اه ولكن الية الحل تكون صعب فى انتظار الدرس الثانى اخى رجب جاويش دروسك ممتازة كاخلاقك بارك الله فيك جزاكم الله خيرا اخوكم سعد عابد
  10. saad abed
    ابو عمرو جزاك الله خيرا
  11. saad abed
    اخى سليم اشكرك كل الشكر على اهتمامك جزاك الله خيرا بارك الله فيك ما اخرنى فى الرد لانى تواصلت مع اخى وصديقى شوقى ربيع وقدم لى الكود التالى Sub ffff() Application.ScreenUpdating = False With sheet5 Last1 = .Cells(Rows.COUNT, "b").End(xlUp).Row For R = 4 To Last1 If .Range("B" & R) < .Range("B" & R + 1) Then With .Range("b" & R & ":m" & R).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Color = -16776961 .TintAndShade = 0 .Weight = xlThick End With Else With .Range("b" & R & ":m" & R).Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With End If Next End With Application.ScreenUpdating = True End Sub
  12. saad abed
    اخى عبدالله ابواحمد اولا اشكرك على ردكم السريع المطلوب فى المجال b4:b5000 القيود لها ارقام اريد فاصل بوردر كلما تغير الرقم فى هذا المجال اشكرك
  13. saad abed
    السلام عليكم حاولت عمل عمل حد اذا اختلف رقم القبد بالزيادة دون جدوى استخدمت اف وغيرت نوت اف ولم افلح ارجو المساعدة Sub hh() With Sheets("íæãíÉ") For R = 4 To 5000 If .Cells(R, 2).Value < .Cells(R, 2).Value Then Last1 = .Cells(Rows.COUNT, "b").End(xlUp).Row .Range("b" & Last1 & ":m" & Last1).Borders.Value = 1 .Range("b" & Last1 & ":m" & Last1).Borders(xlEdgeTop).LineStyle = xlNone .Range("b" & Last1 & ":m" & Last1).Borders(xlEdgeBottom).Weight = xlThick .Range("b" & Last1 & ":m" & Last1).Borders(xlEdgeBottom).ColorIndex = 3 End If Next End With End Sub acc.rar
  14. saad abed
    استاذ عادل ابوزيد شكرا لك اخى رجب جاويش اسال الله العظيم رب العرش الكريم ان يديم عليك نعمه وان يرزقكك من حيث لا تحتسب قوالله اخى اودادت معلوماتى بمتابعت ردودك اللهم امين
  15. saad abed
    اخى رجب جاويش هو المطلوب شكرا شكرا والله اهم من وجود العلم هو وجود الاخلاق اخلاقك عاليه بارك الله فيك اشكرك
  16. saad abed
    استاذ عبدالله باقشير كل الشكر والتقدير اخى عبدالله الكود بعد الاختصار يعمل بكفاءة هو المطلوب والغريب انى لم الاحظ تكرار الكود---------وان الكود القديم كان يجلب البيانات بنفس رقم الصف فى صفحة اليومية اشكرك كل الشكر بارك الله فيك وفى اولادك وجعلهم قرة عين لك اللهم امين الى اللقاء مع طلب اخر فهذا قدرك ان تتحملنا
  17. saad abed
    كود استدعاء بيانات بشروط توصلت لان يعمل الكود كما اريد الا نقطة واحدة الكود يستدعى البياانات بنفس رقم الصف من الورقة المرحل منه بمعنى اختار فبراير من خلية b1 سياتى بطريقة صحيحة لان البيانات فى اول البيانات اختار مارس يبدا من الخلية 71 واريد ان تكون بداية البيانات الصف السادس ارجو ان يكزن الشرح واضح acc.rar
  18. saad abed
    اخى رجب جاويش اكواد متقنة ومفيدة بارك الله فيك لى سؤال اخى هل من الممكن تطبيق الكود على عدة اعمدة بدل العمود a فقط اشكرك كل الشكر
  19. saad abed
    اخى هناك فيرس يزيل الاكواد لا تفتح ملفات اخرى حتى 1- ارفع مجموعة الاوفيس من remove program 2- ادخل بروجرم فيل على السى وامسح بقايا الملف اعد التثبيت وستحل المشكلة
  20. saad abed
    صديقى العزيز جدا جدا جدا ابوعمرو دعواتى لك بالصحة والعافية اتمنى ان تكون انت وكل من تحب بخير جزاك الله خيرا
  21. saad abed
    استاذى عبدالله باقشير جزاك الله خيرا عن كل ابداعاتك التى تقدمها لنا بارك الله فيك وجعل علمك وتعليمك لنا فى ميزان حسناتك
  22. saad abed
    اخوتى لدى مشكلة عند فتح ملفات الاكسيل التى يوجد به اكواد فور الفتح يزيل المشروع باكملة من لديه معلومات او علاج يدلنى عليه اشكركم
  23. saad abed
    استاذى حماده عمر اكوادك متقنة وخطواتها مفهومه جزاك الله خيرا
  24. saad abed
    اخى نادر لا توجد اخطاء فى المعادله الرقم مقرب لاكبر رقم صحيح علشان تقتنع بسرعة اكتب رقم 2 ستجد الرقم صار 48 وفقكم الله
  25. saad abed
    اخى سليم جزاك الله خيرا
×
×
  • اضف...

Important Information

  I accept