شرح كود

[ناصر سعيد]

من فضلكم اريد شرح لهذا الكود

Sub سري()

    Rows("7:7").Select
    ActiveWindow.ScrollRow = 627
    ActiveWindow.SmallScroll Down:=366
    Rows("7:445").Select
    Selection.Sort Key1:=Range("e7"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.ScrollRow = 7
    Range("e7").Select
End Sub

جزاكم الله خيرا

[محمود_الشريف]

بإختصار الكود يقوم بتحديد الصف السابع والوقوف على الخلية e7

ويمكن اختصاره الى سطرين 

تم تعديل فبراير 16, 2017 بواسطه محمود_الشريف

[ناصر سعيد]

استاذ محمود الشريف

جزاك الله كل خير وبارك فيك

اختصره يا باشا

===========================

لو تكرمت عايز اعرف معنى هذين السطرين

  ActiveWindow.ScrollRow = 627
    ActiveWindow.SmallScroll Down:=366

 

[محمود_الشريف]

أخى الكريم 

السطرين الذى تسأل عنهما هما الوضع الطبيعى لإطار النافذة 

ويعود الكود الى جعل إطار النافذة يبدأ من السطر السابع ورفع السطور السته التى قبلها الى الأعلى مع تنشيط الخلية e7

ويمكن اختصاره الى سطرين فقط

Sub سري()

    ActiveWindow.ScrollRow = 7
    Range("e7").Select
End Sub