أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil حساب عدد الخلايا التي لا تحتوي على صفر اكسيل اسئله واجابات


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل على كود للاستاذ / سليم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم الكود رائع و لكن لا يظهر مجموع اخر يوم الا بعد الضغ ..



13-03-2019 10:52 صباحا
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم 
الكود رائع و لكن لا يظهر مجموع اخر يوم الا بعد الضغط على RUN  مرة اخرى
و هل يمكن اضافة سطر بلون مختلف للاجمالى العام
و اذا اردت ان اجمع كل الاعمدة مثلا ما هو التعديل الذي يمكن اضافته مع تحديد السطور بالكود للمرونة فى اختيار الاعمدة المراد جمعها
و شكرا
 
 
  Get Date _ Empty Row_salim.rar   تحميل rar مرات التحميل :(3)
الحجم :(64.373) KB







14-03-2019 06:41 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
ما هي الأعمدة المراد جمعها؟
لا يوجد في الملف المرفق سوى العمود الثامن فقط الذي يحتوي أرقام .. يفضل وضع ملف مرفق معبر عن المطلوب لتتضح المشكلة ويسهل تجربة الأكواد





14-03-2019 09:18 صباحا
مشاهدة مشاركة منفردة [2]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
اليك المرفق اخى ياسر

و لكن الاهم هو تحديد السطور فى الكود التي يمكن ان تتغير لامكانية التعديل فيها
اى اعمدة الجمع و الصف الذي سوف يجمع فيه 
يعنى شرح سطور الكود المهمة لسهولة التعامل و المرونة مع الاعمدة و التغيير فيها و الاضافة
 
 
  Get Date _ Empty Row_salim.rar   تحميل rar مرات التحميل :(3)
الحجم :(64.21) KB






14-03-2019 06:28 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
جرب الكود التالي عله يفي بالغرض إن شاء الله
سأترك لك تكلمة الكود
Sub Test()
    Dim lRow        As Long
    Dim lStart      As Long
    Dim lEnd        As Long
    Dim lLast       As Long

    Application.ScreenUpdating = False
        lLast = Cells(Cells.Rows.Count, "A").End(xlUp).Row
        lEnd = lLast
    
        For lRow = lLast + 1 To 5 Step -1
            If Cells(lRow, "A") <> Cells(lRow - 1, "A") Then
                Rows(lRow).EntireRow.Insert
                Cells(lRow, 1).Resize(1, 8).Interior.ColorIndex = 6
                
                If lRow <= lLast Then
                    lStart = lRow + 1
                    
                    'معادلة للعمود الثامن يمكنك تكرار نفس السطر مع تغيير اسم العمود
                    Cells(lEnd + 2, 8).Formula = "=SUM(H" & lStart & ":H" & lEnd + 1 & ")"
                    lEnd = lStart - 2
                End If
            End If
        Next lRow
    
        'يتم إضافة سطر هنا لكل عمود أيضاً
        Cells(lEnd + 1, 8).Formula = "=SUM(H4:H" & lEnd & ")"
    Application.ScreenUpdating = True
End Sub

Sub Reset()
    Dim last%
    
    With ActiveSheet
        last = .Cells(Rows.Count, 1).End(3).Row + 2
        Range("A4:A" & last).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub





17-03-2019 09:35 صباحا
مشاهدة مشاركة منفردة [4]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
شكرا استاذ / ياسر
بارك الله فيك





17-03-2019 03:40 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 326
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2876
الاعجاب : 63
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
تم التعديل على الماكرو ليتناسب مع المطلوب

Option Explicit
Sub insert_row()
Dim Final_Row%, k%
Dim t%: t = 0
Dim x%: x = 4
Dim y%, Exact_Row%
Application.ScreenUpdating = False

 With Sheets("Excurcion")
    reset
    Final_Row = .Cells(Rows.Count, "H").End(3).Row + 1
        For k = 4 To Final_Row + 1
          t = t + 1
          '===================================
            If Cells(k, 1) <> Cells(k + 1, 1) Then
              Rows(k + 1 & ":" & k + 1).Insert
               Cells(k + 1, 1).Resize(1, 11).Interior.ColorIndex = 6
               Cells(k + 1, "K").Formula = "=SUM(" & "H" & x & ":H" & k & ")"
               x = x + t + 1
             k = k + 1
               t = 0
             Final_Row = Final_Row + 1
            End If
           '===================================
        Next
    y = Range("a:a").Find("", After:=Cells(x, 1), _
      Searchdirection:=2).Row
      
      Exact_Row = .Cells(Rows.Count, "H").End(3).Row + 1
      
      With .Cells(Exact_Row, "A")
        .Resize(, 11).Interior.ColorIndex = 6
        .Offset(, 10).Formula = "=SUM(" & "H" & y + 1 & ":H" & Exact_Row - 1 & ")"
      End With
      
End With
 Application.ScreenUpdating = True
End Sub
Rem+++++++++++++++++++++++++++++++++++++++++++++++
Sub reset()
 Dim last%
 With Sheets("Excurcion")
 last = .Cells(Rows.Count, 1).End(3).Row + 2
 Range("a4:a" & last).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 End With
End Sub
Rem+++++++++++++++++++++++++++++++++++++++++++++++


الملف مرفق
 
 
  Get DateNew.rar   تحميل rar مرات التحميل :(5)
الحجم :(68.185) KB






18-03-2019 09:08 صباحا
مشاهدة مشاركة منفردة [6]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
شكرا استاذ / سليم
يوجد خطأ
 
  error.png   تحميل png error.png مرات التحميل :(3)
الحجم :(186.303) KB
 






18-03-2019 02:29 مساء
مشاهدة مشاركة منفردة [7]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 326
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2876
الاعجاب : 63
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
المشاركة الأصلية كتبت بواسطة:صلاح الصغير
شكرا استاذ / سليم
يوجد خطأ

امسح هذا السطر من الكود   m=t   (تم وضعه بالخطأ)





18-03-2019 02:36 مساء
مشاهدة مشاركة منفردة [8]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
sp8chpCMNIjcP8Z
 
 






18-03-2019 03:05 مساء
مشاهدة مشاركة منفردة [9]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 326
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2876
الاعجاب : 63
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
يظهر هذا الخطأ اذا لم يكن هناك صفوف فارغة في العامود الأول
​لتفادي ذلك اضف هذا السطر على الكود Reset
On Error Resume Next





18-03-2019 06:27 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
بارك الله فيك أخي الحبيب سليم
لا أدري هل الكود الذي قدمته أدى الغرض أم لا ..؟ يرجى التوضيح ليستفيد زوار المنتدى إذا قاموا بالإطلاع على الموضوع





19-03-2019 09:03 صباحا
مشاهدة مشاركة منفردة [11]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 82
الاعجاب : 14
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
بارك الله فيك
تم عمل المطلوب





25-03-2019 02:36 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6327
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17424
الاعجاب : 314
 offline 
look/images/icons/i1.gif تعديل على كود للاستاذ / سليم
بارك الله فيك أخي الكريم صلاح والحمد لله أن تم المطلوب على خير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شرح IF THEN للاستاذ العلامه / عماد الحسامى الصقر
5 372 بكار للأبد

الكلمات الدلالية
تعديل ، للاستاذ ، سليم ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 04:34 صباحا

أعلن هنا
أعلن هنا
أعلن هنا