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

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


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



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





ترتيب

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



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

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

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

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

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







28-05-2019 06:25 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 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
المشاركات : 410
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3295
الاعجاب : 242
 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
المشاركات : 1335
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 53
قوة السمعة : 6133
الاعجاب : 874
 Online 
look/images/icons/i1.gif ترتيب
بارك الله فيكم جميعا كلها حلول ممتازة

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


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


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

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




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

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




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

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

شكرا81





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

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


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




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

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




30-05-2019 01:27 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 410
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3295
الاعجاب : 242
 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
المشاركات : 1445
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 75
قوة السمعة : 9126
الاعجاب : 216
 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،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب التاريخ من الاصغر للأكبر وعرضها فى الليست بوكس عبدالرحمن صبحى
12 250 YasserKhalil
فورم خاص للعمل على الجدول مع ترتيب الاسماء ابجدى مجدى يونس
8 741 مجدى يونس
فورم هوايات وانشطة بالنادى مع ترتيب الاسماء مجدى يونس
10 216 مجدى يونس
مدموج :اريد طريقة ترتيب البيانات في جدول من خلال الليست بوكس محمدعبدالسلام
15 309 YasserKhalil
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 716 YasserKhalil

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


 







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



الساعة الآن 12:10 صباحا

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