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

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


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


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

Preview




ترتيب

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



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

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

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

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





28-05-2019 06:25 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8986
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 459
قوة السمعة : 26591
الاعجاب : 651
 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




29-05-2019 09:42 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 538
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4101
الاعجاب : 189
 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





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



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

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




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




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

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

شكرا81




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

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





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




30-05-2019 01:27 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 538
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4101
الاعجاب : 189
 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





08-06-2019 01:33 صباحا
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1493
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 80
قوة السمعة : 9582
الاعجاب : 89
موقعي : زيارة موقعي
 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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 1086 YasserKhalil
ترتيب خلايا بشكل معين احمد شريف
1 204 احمد شريف
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
5 509 YasserKhalil
ترتيب الاوائل حسب الفصل خالد الشاعر
5 363 خالد الشاعر
ترتيب التاريخ من الاصغر للأكبر وعرضها فى الليست بوكس عبدالرحمن صبحى
12 728 YasserKhalil

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


 








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

الساعة الآن 10:18 مساء

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