ناصر سعيد قام بنشر فبراير 15, 2017 مشاركة قام بنشر فبراير 15, 2017 من فضلكم اريد شرح لهذا الكود 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 جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 16, 2017 مشاركة قام بنشر فبراير 16, 2017 (معدل) بإختصار الكود يقوم بتحديد الصف السابع والوقوف على الخلية e7 ويمكن اختصاره الى سطرين تم تعديل فبراير 16, 2017 بواسطه محمود_الشريف رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 16, 2017 الكاتب مشاركة قام بنشر فبراير 16, 2017 استاذ محمود الشريف جزاك الله كل خير وبارك فيك اختصره يا باشا =========================== لو تكرمت عايز اعرف معنى هذين السطرين ActiveWindow.ScrollRow = 627 ActiveWindow.SmallScroll Down:=366 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 16, 2017 مشاركة قام بنشر فبراير 16, 2017 أخى الكريم السطرين الذى تسأل عنهما هما الوضع الطبيعى لإطار النافذة ويعود الكود الى جعل إطار النافذة يبدأ من السطر السابع ورفع السطور السته التى قبلها الى الأعلى مع تنشيط الخلية e7 ويمكن اختصاره الى سطرين فقط Sub سري() ActiveWindow.ScrollRow = 7 Range("e7").Select End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها