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

كود بطئ جدا رجاء التعديل

ايمن جباره

بواسطه ايمن جباره
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

ايمن جباره

ايمن جباره

قام بنشر
قام بنشر

السلام عليكم
كيفكم يا اعضاء المنتدى الكرام

اليوم طلبى كبير شوية ولكنى اعلم ان رجالة المنتدى هنا قدها واكبر

 

انا اعمل على كود تم اخذه من المنتدى هنا وتم التعديل عليه و هو لاظهار المتأخرين فى دفع الاقساط الى تاريخ معين

طبعا البرنامج كان على 12 قسط وانا كنت احتاجه على 70 قسط فتم التعديل على الكود كما هوضح بعد قليل
بس بعد التعديل لاحظت بطئ شديييييييييييييييييييييييييييييد عند تشغيل الكود من الفورم ياخذ اكتر من 2-3 دقائق للظهور وطبعا هذا مرفوض

فجئت اليكم بالكود لاى افكار للاختصار او للتسريع مع بعض الملاحظات لى بعد الكود

Sub Remin_2()
Sheets("المبيعات كلها").Activate
Sheet3.Cells.ClearContents
LR = Cells.SpecialCells(xlCellTypeLastCell).Row
    Sheet3.[b5:AC1000].ClearContents
For c = 20 To 300
    If Cells(3, c) = "حالة السداد" Then
    N = (c - 2) / 4 - 4
    For R = 4 To LR
        V = Cells(R, c - 1)
        D = Cells(R, c - 2)
        If Cells(R, c) = "لم يسدد" And D <= [P1] Then
            Clnt_N = Cells(R, 2)
            C_Nam = Cells(R, 4)
            Clnt_T = Cells(R, 5)
            C_Add = Cells(R, 6)
        Else: GoTo 10
        End If
        With Sheet3
            s = .[H1000].End(xlUp).Row + 1
            For s_r = 5 To s - 1
                If .Cells(s_r, 3) = C_Nam Then
                   clm = .Cells(s_r, "IV").End(xlToLeft).Column
                   .Cells(s_r, clm + 1) = N
                   .Cells(s_r, clm + 2) = D
                   .Cells(s_r, clm + 3) = V
                   GoTo 10
                End If
            Next s_r
            .Cells(s, 2) = Clnt_N
            .Cells(s, 3) = C_Nam
            .Cells(s, 4) = Clnt_T
            .Cells(s, 5) = C_Add
            .Cells(s, 6) = N
            .Cells(s, 7) = D
            .Cells(s, 8) = V
        End With
10
    Next R
    End If
Next
Sheets("المبيعات كلها").Activate
Cells(1, 2).Value = "رقم العميل"
Cells(1, 3).Value = "الاسم"
Cells(1, 4).Value = "رقم الهاتف"
Cells(1, 5).Value = "العنوان"
  Cells(1, 6).Select
  ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveCell.Value = "رقم القسط"
     ActiveCell.Offset(0, 1).Range("A1").Select
       ActiveCell.Value = "التاريخ"
      ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = "قيمة القسط"
ActiveCell.Offset(0, 1).Range("A1").Select


Sheet3.Activate

End Sub

الملاحظه انه فى هذا السطر
For c = 20 To 300

عند تقليل ال 300 فانه يساعد فى سرعة تنفيذ البرنامج ولكن لا تظهر جميع الاقساط مثلا يظهر الى القسط رقم 30 فقط
منتظر الحل من الاخوه الكراام
شكرا مقدما لتعاونكم

رابط هذا التعليق
شارك
ايمن جباره

ايمن جباره

قام بنشر
  • الكاتب
قام بنشر

اولا انا شاكر جدااااااا لتجاوبك معى وردك على استفساراتى حيث انى جديد فى مجال برمجة الاكسيل وارجو ان انال القدر الكافى من توجيهاتك فى هذا المجال

ثانيا بالنسبه للكود دى داله بتشوف ميين اللى مدفش الاقساط وتطلعهم فى شيت جديد فيه الاسم ورقم العميل وعنوانه وتليفونه وحصر بالاقساط المتأخره عليه
المشكله كلها ان الاقساط عباره عن 70 قسط يعنى 70 شهر
فالكود اللى عملتو زى محضرتك شوفتو عقيم وبطئ جدا فى العمل هوه بيطلع المطلوب ولكنه بطئ جدااااا بسبب انى بخلى البرنامج يبحث فى 300 عمود فى الشيد عن حالة السداد ازا كانت لم يسدد يضع بيانات العميل ورقم القسط فى شيت جديد وطبعا العميل ممكن يكون مسددش اكتر من قسط فلازم يبحث فى ال 70 قسط لكل عميل

وهذه المشكله يعنى فى الكود لو قللت عدد الاعمده من 300 الى 30 فالنتيجه بتكون لحظيه


Sub Remin_2()
Sheets("المبيعات كلها").Activate
Sheet3.Cells.ClearContents
LR = Cells.SpecialCells(xlCellTypeLastCell).Row
    Sheet3.[b5:AC1000].ClearContents
For c = 20 To 300
    If Cells(3, c) = "حالة السداد" Then
    N = (c - 2) / 4 - 4
    For R = 4 To LR
        V = Cells(R, c - 1)
        D = Cells(R, c - 2)
        If Cells(R, c) = "لم يسدد" And D <= [P1] Then
            Clnt_N = Cells(R, 2)
            C_Nam = Cells(R, 4)
            Clnt_T = Cells(R, 5)
            C_Add = Cells(R, 6)
        Else: GoTo 10
        End If
        With Sheet3
            s = .[H1000].End(xlUp).Row + 1
            For s_r = 5 To s - 1
                If .Cells(s_r, 3) = C_Nam Then
                   clm = .Cells(s_r, "IV").End(xlToLeft).Column
                   .Cells(s_r, clm + 1) = N
                   .Cells(s_r, clm + 2) = D
                   .Cells(s_r, clm + 3) = V
                   GoTo 10
                End If
            Next s_r
            .Cells(s, 2) = Clnt_N
            .Cells(s, 3) = C_Nam
            .Cells(s, 4) = Clnt_T
            .Cells(s, 5) = C_Add
            .Cells(s, 6) = N
            .Cells(s, 7) = D
            .Cells(s, 8) = V
        End With
10
    Next R
    End If
Next
end sub

رابط هذا التعليق
شارك
سليم حاصبيا

سليم حاصبيا

قام بنشر
قام بنشر
 
استعمل هذا الكود و عدّل علية حسب ما ينابسبك
Sub rep3()
Dim rngunion As Range
Sheet2.Cells.ClearContents
Sheet1.Select
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lr
For j = 1 To lc
If Cells(i, j) = 3 Then
 If rngunion Is Nothing Then
            Set rngunion = Range(Cells(i, 1), Cells(i, lc))
            Else
            Set rngunion = Union(rngunion, Range(Cells(i, 1), Cells(i, lc)))
 End If
 End If
 Next
 Next
 
   rngunion.Select
  
   rngunion.Copy Destination:=Sheets("Sheet2").Range("A1")
   'Application.CutCopyMode = False
   Sheet1.Activate
   Range("A1").Select
End Sub

 

انه يقوم بتجميع الصفوف التي تحتوي العدد 3 و يرحلها الى الورقة 2  بسرعة 
" "و انت ستقوم باستبدال العدد 3 بكلمة   "لم يسدد"  بين  
 
سأرسل لك ملف مع الكود لتعرف كيف يعمل  
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept