أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع عدة مصنفات في مصنف واحد اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





Private Sorting Code

اساتذتنا الكرام الافاضل ارجو المساعدة في تفعيل هذا الكود بشكل Praivate اتفضلو هذا هو الملف لمشاهدة الروابط يلزمك التسج ..



27-12-2019 02:10 مساء
Abo Sohaib
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 263
الاعجاب : 25
 offline 
اساتذتنا الكرام الافاضل ارجو المساعدة في تفعيل هذا الكود بشكل Praivate 

اتفضلو هذا هو الملف

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Test.rar   تحميل rar مرات التحميل :(7)
الحجم :(31.624) KB





31-12-2019 08:50 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1461
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 77
قوة السمعة : 9270
الاعجاب : 261
 offline 
look/images/icons/i1.gif Private Sorting Code
جرب الكود دا ياغالى
Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Goto Reference:="LLayout"
    ActiveWorkbook.Worksheets("Support").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Support").Sort.SortFields.Add Key:=Range("ClientNameRng" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Support").Sort
        .SetRange Range("LLayout")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Main").Activate
    Sheets("Main").Range("A1").Select
    Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تفعيل الكود ب Private -Selection Change Abo Sohaib
3 526 مالك ماريه

الكلمات الدلالية
Private ، Sorting ، Code ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:31 مساء

أعلن هنا
أعلن هنا
أعلن هنا