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

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


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



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





ترتيب

اساتذتى الكرامكل عام وانتم بخيرالمطلوب بسيط جدا , هو الترايب بناء على الارقام دون النظر الى الاشارة مرفق مثالوشكرا



28-05-2019 04:46 مساء
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 309
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
يتابعهم : 6
يتابعونه : 9
قوة السمعة : 533
الاعجاب : 11
 offline 

اساتذتى الكرام

كل عام وانتم بخير

المطلوب بسيط جدا , هو الترايب بناء على الارقام دون النظر الى الاشارة 
مرفق مثال

وشكرا
 
 
  Sort.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(8.947) KB







28-05-2019 06:25 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif ترتيب
جرب التالي
Sub Test()
Columns(4).Insert
With Range("C3").CurrentRegion
.Offset(, 1).Formula = "=IFERROR(ABS(C3),""Title"")"
End With

With Range("C3").CurrentRegion
.Sort Key1:=Range("D3:D" & .Rows.Count + 2), Order1:=xlAscending, Header:=xlYes
End With
Columns(4).Delete
End Sub

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




29-05-2019 09:42 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif ترتيب
بعد اذن الاخ باسر أعتقد ان هذا المطلوب

Option Explicit
Sub Sort_by_Collection()
Dim Col As Object
Dim i%: i = 4
Dim My_rg As Range
Dim r%, FRG As Range
Dim My_cel As Range
Set Col = CreateObject("System.Collections.ArrayList")
Do Until Range("C" & i) = vbNullString
Col.Add Abs(Range("C" & i).Value)
i = i + 1
Loop
Col.Sort
Range("G4").Resize(Col.Count) = Application.Transpose(Col.toarray)
Set My_rg = Range("G4").Resize(Col.Count)
Set FRG = Range("c4").Resize(Col.Count)
For Each My_cel In FRG
r = My_rg.Find(Abs(My_cel)).Row
Range("G" & r) = My_cel
Next
End Sub

الملف مرفق
 
 
  Sort_by_abs_values.rar   تحميل rar مرات التحميل :(8)
الحجم :(12.489) KB


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




29-05-2019 11:02 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif ترتيب
بارك الله فيكم جميعا كلها حلول ممتازة

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


30-05-2019 02:36 صباحا
مشاهدة مشاركة منفردة [4]
OmarGad
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 113
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 5
قوة السمعة : 314
الاعجاب : 23
 offline 
look/images/icons/i1.gif ترتيب
جزاكم الله خيرا اساتذتنا الكرام استاذ ياسر واستاذ سليم وكل عام وانتم بخير

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




30-05-2019 09:58 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif ترتيب
بارك الله فيكم إخواني وأحبابي في الله
أخي الغالي سليم .. حل رائع لكن الجزء الأخير الخاص بالبحث .. أعتقد ربما يكون هناك طريقة أفضل

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




30-05-2019 10:13 صباحا
مشاهدة مشاركة منفردة [6]
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 309
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
يتابعهم : 6
يتابعونه : 9
قوة السمعة : 533
الاعجاب : 11
 offline 
look/images/icons/i1.gif ترتيب
جزاكم الله كل خير اساتذتى الكرام

حلول رائعه و جميلة جدا , 
لنجعل الامر أكثر صعوبة g
هل يمكن لاستغناء عن العمود المساعد ؟
يعنى يترتب بمجرد الضغط على زرار معين ؟؟

شكرا81





30-05-2019 10:18 صباحا
مشاهدة مشاركة منفردة [7]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif ترتيب
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيكم إخواني وأحبابي في الله
أخي الغالي سليم .. حل رائع لكن الجزء الأخير الخاص بالبحث .. أعتقد ربما يكون هناك طريقة أفضل

اذا لاحظت اخي ياسر ان السائل يريد اعادة اشارة الناقص الى حيث كانت مع كل رقم من العامود C الذييحتوي عل ناقص


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




30-05-2019 10:26 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18512
الاعجاب : 740
 offline 
look/images/icons/i1.gif ترتيب
نعم أخي سليم أعلم جيداً ما قمت به لإرجاع الإشارة
أنا أقصد الطريقة .. بفرض (لم أجرب هذا الفرض) .. بفرض أن لديك قيمتان 500 و -500 .. هل عند البحث سيكون هناك لبس في الأمر ؟!

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




30-05-2019 01:27 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif ترتيب
المشاركة الأصلية كتبت بواسطة: YasserKhalil
نعم أخي سليم أعلم جيداً ما قمت به لإرجاع الإشارة
أنا أقصد الطريقة .. بفرض (لم أجرب هذا الفرض) .. بفرض أن لديك قيمتان 500 و -500 .. هل عند البحث سيكون هناك لبس في الأمر ؟!

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

Option Explicit
Sub Sort_by_Collection()
Dim Col As Object
Dim i%: i = 4
Dim My_rg As Range
Dim r%, FRG As Range
Dim My_cel As Range
Range("G4", Range("g3").End(4)).ClearContents
Set Col = CreateObject("System.Collections.ArrayList")
Do Until Range("C" & i) = vbNullString
Col.Add Abs(Range("C" & i).Value)
i = i + 1
Loop
Col.Sort

Range("G4").Resize(Col.Count) = Application.Transpose(Col.toarray)
Set My_rg = Range("G4").Resize(Col.Count)
Set FRG = Range("c4").Resize(Col.Count)
For Each My_cel In FRG
If My_cel <= 0 Then
r = My_rg.Find(Abs(My_cel)).Row
Range("G" & r) = My_cel
End If
Next

End Sub

تبقى مشلكلة وحيدة وهي تكرار القيمة أكثر من مرتين
مثلا 3-  / 3  / 3-
سأحاول حلها من خلال الدالة FindNxt









 
 
  Sort_by_abs_values_New.rar   تحميل rar مرات التحميل :(5)
الحجم :(12.999) KB


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




08-06-2019 01:33 صباحا
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1431
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 8892
الاعجاب : 149
 offline 
look/images/icons/i1.gif ترتيب
حل اخر لاثراء الموضوع دون عمود مساعد
هتظهر رسالة اضغط Yes للترتيب التصاعدى واضغط No للترتيب التنازلى
Sub Alsaqr_test()
Dim a&, b&, lr&, temp#, Answer As Byte
lr = Range("C" & Rows.Count).End(xlUp).Row
Answer = MsgBox("Click Yes for ascending order." & Chr(10) & "Click No for Descending order.", vbYesNoCancel + vbQuestion + vbDefaultButton1, "Devolper: Eslam Abdullah")
If Answer = vbCancel Then Exit Sub
For a = 4 To lr
For b = 4 To lr - 1
If Answer = vbYes Then
If Abs(Cells(b, 3).Value) > Abs(Cells(b + 1, 3).Value) Then
temp = Cells(b, 3).Value
Cells(b, 3).Value = Cells(b + 1, 3).Value
Cells(b + 1, 3).Value = temp
End If
ElseIf Answer = vbNo Then
If Abs(Cells(b, 3).Value) < Abs(Cells(b + 1, 3).Value) Then
temp = Cells(b, 3).Value
Cells(b, 3).Value = Cells(b + 1, 3).Value
Cells(b + 1, 3).Value = temp
End If
End If
Next b
Next a
End Sub

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب التاريخ من الاصغر للأكبر وعرضها فى الليست بوكس عبدالرحمن صبحى
10 81 محمود ابو الدهب
فورم خاص للعمل على الجدول مع ترتيب الاسماء ابجدى مجدى يونس
6 393 مجدى يونس
شرح كيفية عمل فورم بالترتيب بالمسلسل او الاسم الجزء 12 مجدى يونس
3 382 مجدى يونس
هل يمكن كود يقوم بالترتيب التلقائي بشرطين  ابوعلي الحبيب
9 310 ابوعلي الحبيب
ترتيب تلقائى للأسماء Eslam Abdullah
15 919 الترياق

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


 







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



الساعة الآن 02:37 صباحا

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