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

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


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





ترتيب تلقائى للأسماء

بسم الله والحمد لله والصلاة والسلام على رسول الله أهلا ومرحبا بكم اخوانى الكرام من جديد اليوم أقدم لكم كود مرن لترتيب ال ..



30-12-2018 02:43 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم اخوانى الكرام من جديد

اليوم أقدم لكم كود مرن لترتيب الأسماء تلقائيا
لنفترض ان لدينا بيانات كما بالصورة التالية


NzE1Njgx001

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


MTU5MzUwMQ8585002

يمكنك تطويع الكود بتحديد راس الحقل الخاص بالاسماء باى مكان بالاكسل
ستجد بالكود بالصف الاول كلمة rw وكلمة col
rw تعنى بداية الصف وcol تعنى بداية العمود
فيتم تحديد راس الحقل الذى سيتم عليه العمل وفق لون الخط لترتيب الاسماء ادناه تلقائيا

الكود يوضع داخل الشيت الذى تريد الترتيب بداخله
والكود المستخدم هو التالى

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw%, col%, lr&: rw = 1: col = 1
If Target.Row > rw And Target.Column = col And Cells(rw, col).Font.Color <> 0 Then
    lr = Cells(Rows.Count, col).End(3).Row
    Range(Cells(rw + 1, col), Cells(lr, col)).Sort Key1:=Cells(rw + 1, col), Order1:=xlAscending, Header:=xlNo
End If
End Sub

لتحميل ملف العمل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 


30-12-2018 03:32 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترتيب تلقائى للأسماء
بارك الله فيك أخي اسلام
نشاط منقطع النظير ..بس دا يمكن عشان روحك بترفرف ، وهتلبس في الجيش قريب smile

30-12-2018 03:41 مساء
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif ترتيب تلقائى للأسماء
دا للاجابة على احد الاسئله مش اكتر
بجهز للجيش اليومين دول بقى biggrin2

30-12-2018 03:52 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif ترتيب تلقائى للأسماء
عمل رائع استاذ اسلام بارك الله فيك وجعله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

31-12-2018 06:11 مساء
مشاهدة مشاركة منفردة [4]
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 206
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ترتيب تلقائى للأسماء
جزاك الله خيرا

31-12-2018 10:10 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترتيب تلقائى للأسماء
كان الله في العون وربنا يعدي فترتك على خير إن شاء الله

04-01-2019 12:46 صباحا
مشاهدة مشاركة منفردة [6]
mohamedtayebus
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 132
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 26-2-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/mf_bookread.gif ترتيب تلقائى للأسماء
مجهود متميز بالتوفيق




الكلمات الدلالية
ترتيب ، تلقائى ، للأسماء ،


 










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

الساعة الآن 07:48 صباحا