ايمن جباره

مايو 28, 2014

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

ثانيا بالنسبه للكود دى داله بتشوف ميين اللى مدفش الاقساط وتطلعهم فى شيت جديد فيه الاسم ورقم العميل وعنوانه وتليفونه وحصر بالاقساط المتأخره عليه
المشكله كلها ان الاقساط عباره عن 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

مايو 26, 2014

up please

مايو 22, 2014

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

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

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

طبعا البرنامج كان على 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 فقط
منتظر الحل من الاخوه الكراام
شكرا مقدما لتعاونكم

مايو 20, 2014

شكراااااااااااااا جزيلا اخى

سليم حاصبيا

يجعله الله فى ميزان حسناتك

تم حل المشكله بفضل الله ثم مساعدتك

مايو 20, 2014

up plz

مايو 19, 2014

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

اليوم وقف معايا شئ وهوه انى اريد اخذ قيمه (رقم) من شيت 1 واطرحها من قيمه اخره من شيت 2

انا محتاج الفكره والكود المختصر للعمليه

للتوضيح
انا عملت كود ومتأكد انو غلط بس يمكن يفهمكو انا محتاج ايه

Dim a As Integer
Dim b As Integer
Remin_33
Macro1255
Macro1266

Sheets("Sheet1").Activate
a = Cells(6505, 8)
Macrosum
Sheets("Sheet2").Activate
b = [b20004]
TextBox1.Value = (a - b)

الماكروز اللى فوق دوول عمليات بتتم على كل شيت قبل اظهار الرقم اللى انا محتاجه وعاوز اخده فى متغير اسمه a

وهكذا فى الشيت الاخر

مايو 15, 2014

سعيد بيرم

والله انك رجل محترم جدااااا

وانا شاكر لمجهوداتك معى جداااااااااااااااا

واتمنى دائما الاستفاده من نصائحك وخبراتك والتعلم المستمر منك

شكرا جزيلا مره اخرى :)

مايو 13, 2014

شكرا جزيلا لك اخى

محمود_الشريف
بارك الله فيك

مايو 12, 2014

شكرا جزيلا لك
انا بالفعل حملت الملف وفتحت اكواده ولكنى بصراحه ميتدئ وضعت بين الاكواد الكثيره ولم افهم ترتيبها بصراحه

لو عند حضرتك فورم يقوم بهذه الوظيفه فقط ليكون سهل الفهم اكون شاكر جدا لتعب حضرتك

مايو 12, 2014

السلام عليكم
استفسارى اليوم عن كيفية انى اجعل المستخدم يضيف صوره الى قاعدة البيانات من جهازه الخاص يعنى مثلا يكون فيه زر يضغط عليه فيختار الصوره من جهازه ويضعها داخل البرنامج من اليوزر فورم
وايضا اريد كود استخراج الصوره من الاكسيل الى اليوزر فورم بابعاد معينه

ولكم جزيل الشكر

مايو 11, 2014

شطرا جزيلا اخى

محمود_الشريف
على مجهودك
انا حاولت الدخول لملفى الشخصى لتغيير الاسمولكنى لم استطيع الخيار الاول هوه تغيير الصوره ومن بعده باقى المعلومات عدا الاسم!!

انا مسجل حسابى هنا عن طريق الفيس بوك

مايو 11, 2014

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

تسجيل الدخول

ايمن جباره

Posts

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

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

نوع المحتوي

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه ايمن جباره

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

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

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

ارجو المساعدة فى طرح قيمتين من شيتين مختلفين

ارجو المساعدة فى طرح قيمتين من شيتين مختلفين

ارجو المساعدة فى طرح قيمتين من شيتين مختلفين

طلب! كيفية اضافة و اظهار صوره من الفورم

طلب! كيفية اضافة و اظهار صوره من الفورم

طلب! كيفية اضافة و اظهار صوره من الفورم

طلب! كيفية اضافة و اظهار صوره من الفورم

اول طلب! كيفية استخراج البرنامج exe من اكسيل

اول طلب! كيفية استخراج البرنامج exe من اكسيل

تصفح الموقع

تصفح جديد الموقع

Support

Important Information