logo

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



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





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




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


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

***************************
كود الترتيب تازليا
CODE
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 مرات التحميل :(32)
الحجم :(34.254) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، ali mohamed ali، محمد أبو عبدو،



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

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



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

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

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

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



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

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



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ممكن تصحيح الكود ayoub2007
1 70 ayoub2007
تحويل معادله لكود gemy2010
2 156 Saleh Ahmed Rabie
تعديل كود اسئلة مادة الرياضيات بطريقة الاتمتة صالح ربيع
3 812 Saleh Ahmed Rabie
اريد كود لطباعه جميع ملفات البى دى اف مره واحده EM_ACC
3 148 Excelawy
ارجو المساعدة فى كود استدعاء من اكثر من شيت ahmed88872
5 38 YasserKhalil

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









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

الساعة الآن 05:04 AM