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

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


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


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





Private Sorting Code

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



27-12-2019 02:10 مساء
Abo Sohaib
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
قوة السمعة : 263
الاعجاب : 0
 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
قوة السمعة : 9277
الاعجاب : 1
 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






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

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


 







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

الساعة الآن 01:19 صباحا

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