كود الاكسل

[فراس قاسم]

ممكن كود بزيادة عدد الاحرف في ذيل ورقة الاكسل

او تكرار السطر الأخير كما هوة الحال في السطر الاول في طباعة العناوين 

وها يمكن كتابة كودين في نفس ورقة الاكسل

[Ali Mohamed Ali]

على سبيل المثال

فهذا أول كود :

Sub ali_Fail_Students()

    Sheets("ÇáäÇÌÍæä").Range("a6:aq100") = ""
    Sheets("ÇáäÇÌÍæä").Range("a6:aq100").Interior.ColorIndex = 0

    Application.ScreenUpdating = False

    X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row

    For T = 11 To X Step 3
   
        Y = Sheets("ÇáäÇÌÍæä").[A1000].End(xlUp).Row + 1

        If Sheets("ÊÌãíÚí").Range("au" & T).Value = "äÇÌÍ" Then
            Sheets("ÇáäÇÌÍæä").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value
            Sheets("ÇáäÇÌÍæä").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value
             Sheets("ÇáäÇÌÍæä").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value
            Sheets("ÇáäÇÌÍæä").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value
    Else
    End If
    Next
   
    Clear_and_Highlight
    Application.ScreenUpdating = True
End Sub

وذلك الكود الثانى :

Sub rakan_Fail_Students()

    Sheets("ÑÇÓÈ").Range("a6:aq100") = ""
    Sheets("ÑÇÓÈ").Range("a6:aq100").Interior.ColorIndex = 0

    Application.ScreenUpdating = False

    X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row

    For T = 11 To X Step 3
   
        Y = Sheets("ÑÇÓÈ").[A1000].End(xlUp).Row + 1

        If Sheets("ÊÌãíÚí").Range("au" & T).Value = "áå ÏæÑ ËÇä Ýì" Then
            Sheets("ÑÇÓÈ").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value
            Sheets("ÑÇÓÈ").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value
             Sheets("ÑÇÓÈ").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value
            Sheets("ÑÇÓÈ").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value
    Else
    End If
    Next
   
    Clear_and_Highlight
    Application.ScreenUpdating = True
End Sub

ولدمجهم  أو استدعائهم بزر واحد نستخدم هذا الكود الضغير:

Sub Test()
    Call ali_Fail_Students
    Call rakan_Fail_Students
End Sub
ملحوظة كود الدمج للنابغة أستاذنا الغالى ياسر خليل أبو البراء جزاه الله كل خير وجعله دائما زخرا لنا وفى ميزان حسناته دائما

 

وهذا مثال أخر لدمج الكواد

للعلامة أستاذنا العزيز بن علية حاجي

 

Code Merge.xlsm