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

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


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





كود الترتيب تصاعدياًوتنازلياً

السلام عليكم ورحمة الله وبركاته كود الترتيب تصاعدياًوتنازلياً فى ورقة الشيت الاساسى ومرفق نموذج عمل للتوضيح عشان انا اتع ..



06-07-2020 06:46 مساء
abohatab
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-12-2017
رقم العضوية : 2548
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 113
 offline 

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


 
كود الترتيب تصاعديا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LR As Integer
Dim KH As Range
Dim KH_1 As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With ActiveSheet
   Set KH = .Range("a3:j" & LR)
         
                 KH.Sort Key1:=Cells(10, 7), Order1:=xlAscending
              
End With
Application.ScreenUpdating = True

End Sub
***************************
كود الترتيب تازليا
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LR As Integer
Dim KH As Range
Dim KH_1 As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With ActiveSheet
   Set KH = .Range("a3:j" & LR)
         
                 KH.Sort Key1:=Cells(10, 7), Order1:=xlDescending
              
End With
Application.ScreenUpdating = True

End Sub
 
 
  ترتيب.xlsm   تحميل xlsm مرات التحميل :(33)
الحجم :(34.254) KB


06-07-2020 07:30 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود الترتيب تصاعدياًوتنازلياً
وعليكم السلام أخي العزيز أبو حطب وجزاك الله خيراً على الموضوع
حاول في التعامل مع أحداث ورقة العمل أن تحدد النطاق المطلوب التعامل معه والتأثير فيه ، حتى لا يؤثر سلباً على أداء الملف فتخيل أنه مع كل تحديد لأي خلية سيتم تنفيذ الكود .. 

06-07-2020 10:23 مساء
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كود الترتيب تصاعدياًوتنازلياً
[قمت بتعديل الموضوع فيما يخص وضع الكود داخل مربع النص الخاص به لسهولة القرائة]
حاول بعد كدا تحط الكود بين جملتى [ code ]your code here[ /code ] دون مسافه بين القوسين []
وجزاك الله خيرا على الكود اخى الكريم وعلى افادة الاخرين
واضم صوتى لاستاذ ياسر فيما يتعلق على اختيار الحدث
فثلا اجعل الحدث على Change بدلا من SelectChange ليعمل الكود عند تغيير النص وليس مجرد الوقوف على الخليه
وثانيا وضع شرط لتنفيذ خطوات الكود على العمود المراد ترتيبه بدلا من تنفيذ جميع خطوات الكود فى اى تغيير لاى خليه
مثل السطر التالى (لتحدد تنفيذ خطوات الكود)

if target.column = 2 and target.row > 1

ومشكور مجهودك فى الاول والاخير ، دا مجرد اقتراح بسيط لا ينقص من ابداع عملك
تقبل وافر احترامى وتقديرى

 

07-07-2020 12:15 صباحا
مشاهدة مشاركة منفردة [3]
abohatab
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-12-2017
رقم العضوية : 2548
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 113
 offline 
look/images/icons/i1.gif كود الترتيب تصاعدياًوتنازلياً
الف شكر للمتابعة والرد وتوضيح المعلومة وشكراً للاستاذ ياسر والاستاذ اسلام على االمشاركة فى توضيح الكود والاستفاده منه لى وللاعضاء ايضاً وانا لسه مبتدا فى  مجال الاكسل واعذرونى ان قصرت فى الشرح وبارك الله فيكم ولكم منى وافر الاحترام والتقدير اخيكم ابراهيم ابوحطب 




الكلمات الدلالية
الترتيب ،


 










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

الساعة الآن 11:40 صباحا