مصطفى محمود مصطفى قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 السلام عليكم.. كيف يمكن فرزالاسماء بثلاث شروط اولاحسب الفصل وثانيا حسب الجنس وثالثا حسب الاسم.. شكرا لكم وجزاكم الله خيرا الفرزبثلاث شروط.rar رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 تفضل اخي الكريم ادعو الله ان يكون هو المطلوب الفرز بثلاث شروط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 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر ديسمبر 23, 2017 الكاتب مشاركة قام بنشر ديسمبر 23, 2017 السلام عليكم بارك الله بكم اخي العزيز ناصر سعيد عمل ممتاز هل يمكن ان يكون الفرز في الشرط الثاني الذكور اولا ثم الاناث تحياتي لكم رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 جزاك الله خيرا ابجث عن هذه الجمله الخاصه بالشرط التاني في الكود Order2:=xlAscending ثم ضع بدل هذه الكلمه الرقم 2 xlAscending ادعو الله ان يكون ذلك هو المطلوب =========== ويمكنك التغيير في ترتيب الشروط بالطريقه التي تريدها بنفس الفكره وان لم تفهمها جيدا ابلغني لعل الله يرزقني بطريقه اسهل في التوصيل 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر ديسمبر 23, 2017 الكاتب مشاركة قام بنشر ديسمبر 23, 2017 رائع استاذ ناصر جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 بعد اذن اخي ناصر هذا الكود 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 2 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 ربنا يحفظك ويصونك استاذ سليم حل ولا اروع ========= منذ ساعه, مصطفى محمود مصطفى said: رائع استاذ ناصر جزاكم الله خيرا وجزاكم الله من الخير اكثر 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر ديسمبر 23, 2017 الكاتب مشاركة قام بنشر ديسمبر 23, 2017 الاساتذة الكرام وفقكم الله استاذناصر استاذ سليم جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 المحترم الاستاذ سليم مامعنى هذا الرمز r% ولم علامه النسبه المئويه ؟ رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 السلام عليكم أخي احبيب أبو أحمد، معنى الأمر %r في الأمر هو الإعلان أن المتغير r هو من نوع Integer وهذا الأمر هو اختصار للأمر Dim r As Integer... والله أعلم وهذه رموز لأنواع أخرى من المتغيرات: Integer % Long & Currency @ Single ! Double # String $ 2 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر ديسمبر 23, 2017 مشاركة قام بنشر ديسمبر 23, 2017 يحفظك الخالق استاذ بن عليه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان