ترتيب

[anton146]

السلام عليكم 

لم اجد ابدا دالة او معادلة تلوين الخلية بلون معين بشرط ما

لذلك نفرض عندنا 8 خلايا  A و8 خلايا 8 خلايا Cو الخلية D3

في الخلايا A  ارقام و في الخلايا B اما عبارة مقبول او مرفوض و في الخلايا C اسماء

المطلوب في حال كتبت في D3  العدد 1 يتم ترتيب الاعمدة بحسب الاسم 

في حال العدد 2 يتم الترتيب  بحيث تصبح كل المقبولات في الاعلى و المرفرضات في الاسفل ثم يتم ترتيب ثاني للمقبولات بحسب الاسم ثم للمرفوضات بحسب الاسم 

في حال العدد 3 يتم الترتيب بحسب الرقم  ( اعادة الجدول الى حالته الاولى) 

0Choose_Num.xlsx

[سليم حاصبيا]

الدوال في اكسل لا تتعاطى مع تنسيق الخلايا 

كل ما تنظر اليه هو محتويات الخلايا وليس  لون الخط فيها او لونها بالذات أو طولها أو عرضها الخ.....

[سليم حاصبيا]

جرب هذا الملف

الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address = "$H$1" And Target.Count = 1 Then
 sort_please
 End If
Application.EnableEvents = True
End Sub
'=========================

Sub sort_please()
Dim Rg As Range
Dim s
Dim ro%: ro = Range("b2", Range("b1").End(4)).Rows.Count + 1
Set Rg = Range("a1").Resize(ro, 3)
Rg.Sort key1:=Cells(1, Range("h1")), _
Order1:=IIf(Range("h1") = 2, 2, 1), Header:=2
s = "Row( 1:" & ro & ")"
Range("a1").Resize(ro) = Evaluate(s)
End Sub

الملف مرفق

0Choose_Num_sort.xlsm

[أحمد يوسف]

الأستاذ

anton146

ان لا ارى اى ضغط على الإعجاب لإجابة الأستاذ سليم على الرغم انها أعجبتك واعتقد ان هذا هو اقل ما يقدم له لكل هذا المجهود المبذول فى حل مشكلتك

[علي بطيخ سالم]

الأندرويد ليس به vba ولذلك لا تعمل عليه الأكواد جرب الكود على جهاز كمبيوتر