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

رجب جاويش

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3492

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

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

  • Days Won

    41

 نوع المحتوي 

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

  1. رجب جاويش
    أخى الفاضل / الدهشوري جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة
  2. رجب جاويش
    أخى الفاضل / وليد تأكد من وضع الكود فى حدث الـ thisworkbook
  3. رجب جاويش
    الأخ الفاضل والأستاذ المحترم / أحمد فضيله جزاك الله كل خير على هذا المرور العطر والكلمات الطيبة
  4. رجب جاويش
    تفضل أخى تاريخ الجمعة.rar
  5. رجب جاويش
    السلام عليكم هذا ملف من اعداد الأستاذ الكبير عادل حنفى يقوم بعمل نسخة احتياطية عند غلق الملف ولكنها مضغوطة كما تريد backup.zip
  6. رجب جاويش
    أخى الحبيب / أبو محمود تسلم ايديك على هذه الابداعات ولاثراء الموضوع هذه دالة معرفة لفصل الأسماء اعتمادا على وجود المسافة الفاصلة بينها Function rg_split(rng As Range, n As Integer) On Error Resume Next r = Split(rng) rg_split = r(n - 1) If Err.Number <> 0 Then rg_split = "" End Function دالة معرفة لفصل مكونات خلية الى عدة خلايا 1.rar
  7. رجب جاويش
    أخى الفاضل / إبراهيم ابو ليله ألف مليون مبروك الترقية المستحقة والف مبروك علينا كلنا هذا المستوى المتميز والف شكر لادارة المنتدى وللأستاذ / أحمد فضيله على حسن الإختيار
  8. رجب جاويش
    أخواى الحبيبين / أبو حنين و حمادة عمر شرفنى جدا وأسعدنى هذا المرور العطر منكما زادكما الله من الفضل والعلم
  9. رجب جاويش
    أخى الفاضل /demo hot جزاك الله كل خير على هذه الكلمات الطيبة
  10. رجب جاويش
    ولاثراء الموضوع هذا كود يقوم بعمل المطلوب Sub ragab() LR = [D10000].End(xlUp).Row For i = 5 To LR r = Split(Cells(i, 4), "/") T = 6 For ii = UBound(r) To LBound(r) Step -1 Cells(i, T) = r(ii) T = T + 1 Next Next End Sub book2.rar
  11. رجب جاويش
    أخى الفاضل الأستاذ / مجدى يونس جزاك الله كل خير لعبة جميلة وشيقة فعلا للأطفال تسلم ايديك
  12. رجب جاويش
    أخى الحبيب / حمادة عمر بسم الله ما شاء الله ابداع وتميز واضحين وقدرة جميلة على الابتكار بارك الله فيك والشكر موصول لأستاذنا مجدى يونس
  13. رجب جاويش
    أخى الفاضل / أبو محمد أشرف أحسنت أخى الفاضل والى مزيد من التقدم والنجاح ان شاء الله
  14. رجب جاويش
    أخى الحبيب / حمادة عمر أحييك على هذا الإبداع وعلى هذه الأفكار الجميلة
  15. رجب جاويش
    أخى الفاضل / أحمد عبد الناصر تسلم ايديك وتسلم أفكارك
  16. رجب جاويش
    أخى الحبيب / أبو حنين شكرا جزيلا أخى الحبيب على كلماتك العطرة وجزاك الله كل خير
  17. رجب جاويش
    تفضل أخى ترحيل مع mach.rar
  18. رجب جاويش
    الأستاذ والمبدع الكبير / يحيى حسين المنتدى نور بابداعات الأساتذة الكبار الذين علمونا وما زالوا جزاك الله كل خير
  19. رجب جاويش
    أخى الحبيبب / أبو حنين تسلم ايديك على هذه الابداعات جزاك الله كل خير
  20. رجب جاويش
    أضم صوتى الى صوت إخوتى الأحبة فى الترحيب بأخى الحبيب المبدع / أبو حنين وأقول له نورت المنتدى كله ولك منى أجمل وأرق تحية :fff: :fff:
  21. رجب جاويش
    هل تقصد هكذا المصنف1.rar
  22. رجب جاويش
    أخى الحبيب / حمادة عمر شكرا جزيلا أخى الحبيب على مرورك العطر
  23. رجب جاويش
    والله أنت اللى وحشتنا جدا أخى الحبيب / محمود نورت المنتدى وأسعدت كل محبيك بعودتك الحميدة ويارب ما تغيب عننا تانى أخوك / رجب جاويش
  24. رجب جاويش
    ولاثراء الموضوع هذه معادة لايجاد آخر بيان فى العمود A سواء كان نص أو رقم أو شئ آخر =OFFSET(A1;MAX(ROW(A:A)*(A:A<>""))-1;0) وهى معادلة صفيف أى لابد من الضغط على مفاتيح CTRL + SHIFT + ENTER معا
  25. رجب جاويش
    أخى ابراهيم جرب الكود التالى فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D:D")) Is Nothing Then For Each cl In Intersect(Target, Range("D:D")).Cells If cl = "" Then Target.Borders.LineStyle = xlNone Else Target.Borders.ColorIndex = 1 End If Next End If End Sub وهو يعمل عند وضع بيانات فى العمود D ويمكنك تغيره كما تريد
×
×
  • اضف...

Important Information

  I accept