فرزالاسماء ابجديا بثلاث شروط

[مصطفى محمود مصطفى]

السلام عليكم..

كيف يمكن فرزالاسماء بثلاث شروط

اولاحسب الفصل

وثانيا حسب الجنس

وثالثا حسب الاسم..

شكرا لكم وجزاكم الله خيرا

 

الفرزبثلاث شروط.rar

[ناصر سعيد]

تفضل اخي الكريم

ادعو الله ان يكون هو المطلوب

 

 

الفرز بثلاث شروط1.rar

===============

Sub فرز_بتلات_شروط()
'
'
    Range("B6:Z1000").Select
    Selection.Sort Key1:=Range("L6"), Order1:=xlAscending, _
    Key2:=Range("F6"), Order2:=xlAscending, _
    Key3:=Range("C6"), Order3:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("A6").Select
End Sub

 

[مصطفى محمود مصطفى]

السلام عليكم

بارك الله بكم اخي العزيز ناصر سعيد

عمل ممتاز

هل يمكن ان يكون الفرز في الشرط الثاني الذكور اولا ثم الاناث

تحياتي لكم

[ناصر سعيد]

جزاك الله خيرا

ابجث عن هذه الجمله الخاصه بالشرط التاني

في الكود

Order2:=xlAscending

ثم ضع بدل هذه الكلمه الرقم    2

xlAscending

ادعو الله ان يكون ذلك هو المطلوب

===========

ويمكنك التغيير في ترتيب الشروط بالطريقه التي تريدها بنفس الفكره وان لم تفهمها جيدا 

ابلغني لعل الله يرزقني بطريقه اسهل في التوصيل

[مصطفى محمود مصطفى]

رائع استاذ ناصر جزاكم الله خيرا

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

بعد اذن اخي ناصر هذا الكود

Option Explicit
Sub Sort_For_Me()
With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
 End With
If ActiveSheet.Name <> "فرز" Then GoTo Final_Operation
 Dim r%, My_Sht As Worksheet
 Set My_Sht = Sheets("فرز")
 r = My_Sht.Cells(Rows.Count, 1).End(3).Row
 If r < 14 Then r = 14
    With My_Sht.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("k14:k" & r), Order:=1
        .SortFields.Add Key:=Range("e14:e" & r), Order:=2
        .SortFields.Add Key:=Range("c14:c" & r), Order:=1
        .SetRange Range("b14:k" & r)
        .Header = 1
        .Apply
    End With
Final_Operation:
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

 

الفرزبثلاث شروط Salim.rar

[ناصر سعيد]

ربنا يحفظك ويصونك استاذ سليم

حل ولا اروع

 

=========

منذ ساعه, مصطفى محمود مصطفى said:

رائع استاذ ناصر جزاكم الله خيرا

وجزاكم الله من الخير اكثر

[مصطفى محمود مصطفى]

الاساتذة الكرام وفقكم الله

استاذناصر

استاذ سليم

جزاكم الله خيرا

[ناصر سعيد]

المحترم الاستاذ سليم

مامعنى هذا الرمز

r%

ولم علامه النسبه المئويه ؟

[بن علية حاجي]

السلام عليكم

أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر  Dim r As Integer... والله أعلم

وهذه رموز لأنواع أخرى من المتغيرات:

Integer			%
Long		&
Currency			@
Single			!
Double			#
String			$

[ناصر سعيد]

يحفظك الخالق

استاذ بن عليه