ترتيب اسماء حسب ابجد هوز

[زاكي بوشلاغم]

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

جدول تصفية المنح معدل جديد.rar

[أبو حنــــين]

اخي زاكي

الترتيب المعمول به الآن هو الترتيب الهجائي للحروف بالشكل

أ ب ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن هـ و ي
 

[زاكي بوشلاغم]

اخي  ابو  حنين  ممكن   دالة  ترتيب  حسب 

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

تم تعديل يناير 2, 2014 بواسطه زاكي بوشلاغم

[الخالدي]

السلام عليكم ورحمة الله

جرب المحاولة بالكود المرفق

والكود يعتمد على عمود اضافي فارغ (العمود K)

تم الغاء دمج الخلايا في العمود K (الخلية K154) حتى يعمل الكود

Sub AL_KHALEDI()
Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Lr = Rn.Rows.Count
ReDim Arr(Lr - 1)
For Each C In Rn.Cells
T1 = "": T2 = ""
For r = 1 To Len(C)
T1 = Mid(C, r, 1)
S = Application.Search(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1)
If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", S, 1)
T2 = T2 & T1
Next r
Arr(A) = T2: A = A + 1
Next C
Range("K2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr)
Range("B2:K2").Resize(Lr).Sort Range("K2"), xlAscending
Range("K2").Resize(Lr).ClearContents
Set Rn = Nothing: Erase Arr
End Sub

في امان الله

جدول تصفية المنح معدل جديد2.rar

[عبدالله باقشير]

السلام عليكم

 

احسنت اخي الحبيب الخالدي  ....حفظكم الله

كود رائع

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

تقبلوا تحياتي وشكري

[أم عبد الله]

أستاذنا الكبير / الخالدي

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على روعة هذا الكود . بجد رائع .جعل الله جميع أعمالك في ميزان حسناتك. لك كل التحية والتقدير.

[الخالدي]

 

والكود يعتمد على عمود اضافي فارغ (العمود K)

الكود التالي يقوم بالمعالجة في عمود الاسماء بالتالي لا يحتاج الى عمود اضافي

Sub AL_KHALEDI()
Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Lr = Rn.Rows.Count
ReDim Arr(Lr - 1)
For Each C In Rn.Cells
T1 = "": T2 = ""
For r = 1 To Len(C)
T1 = Mid(C, r, 1)
S = Application.Find(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1)
If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", S, 1)
T2 = T2 & T1
Next r
Arr(A) = T2: A = A + 1
Next C
Range("B2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr)
Range("B2:J2").Resize(Lr).Sort Range("B2"), xlAscending
A = 0
For Each C In Rn.Cells
T1 = "": T2 = ""
For r = 1 To Len(C)
T1 = Mid(C, r, 1)
S = Application.Find(T1, "أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", 1)
If Not IsError(S) Then T1 = Mid("أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", S, 1)
T2 = T2 & T1
Next r
Arr(A) = T2: A = A + 1
Next C
Range("B2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr)
Set Rn = Nothing: Erase Arr
End Sub

تم تعديل يناير 2, 2014 بواسطه الخالدي

[الخالدي]

السلام عليكم

 

احسنت اخي الحبيب الخالدي  ....حفظكم الله

كود رائع

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

تقبلوا تحياتي وشكري

وعليكم السلام

شكرا لمرورك اخي الحبيب الاستاذ عبدالله باقشير

بالتأكيد ما من كود الا وبصماتكم فيه

حفظكم الله ورعاكم

[الخالدي]

أستاذنا الكبير / الخالدي

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على روعة هذا الكود . بجد رائع .جعل الله جميع أعمالك في ميزان حسناتك. لك كل التحية والتقدير.

وعليكم السلام ورحمة الله وبركاته

شكرا لمرورك اختي الفاضلة أم عبد الله

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

لك مني كل التقدير والاحترام

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب الخالدي حفظكم الباري عز وجل

اعمال رائعة واكواد في قمة الابداع والاتقان

جعلها الله في ميزان حسناتك

تقبل فائق احترامي وتقديري

[الخالدي]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب الخالدي حفظكم الباري عز وجل

اعمال رائعة واكواد في قمة الابداع والاتقان

جعلها الله في ميزان حسناتك

تقبل فائق احترامي وتقديري

وعليكم السلام ورحمة الله وبركاته

بارك الله فيك اخي الحبيب أبو محمد عباس

اشكرك على المرور الثناء الطيب

حفظكم الله واحسن اليكم

لكم كل الود والتقدير

[علي المصري]

عمل مميز

بارك الله فيكم

[زاكي بوشلاغم]

بارك الله فيكم على سعيكم الخيرى والله انا من محبي هذا المنتدى

وربي يوفقكم في فعل الخير

اخي انا اريد ان ادخل  جميع المعطيات دون ترتيب حسب ابجد هوز وعند الإنتهاء اضغط على زرر الترتيب لكي يرتب حسب ابجد هوز مع ترتيب  القسم والتاريخ الميلاد ورقم قرار المنحة وتاريخ قرار المنحة حيث تاريخ قرارالمنحة في عمود( i ) به  معادلة بحث recherchev      عند التريب تخرج لي اشارة      (RECHERCHEV(H8;#REF!;2;0)  في عمود قرار المنحة العمود(i)

ما حل بارك الله فيكم

[زاكي بوشلاغم]

ونشكركم  جزيل  الشكر  على  هذا  المنتدى  الرائع والمفيد  اتمنى  ان  يوفقكم  الله في  الخير  ودمتم  في  خدمت  العلم  والمعر فة

تم تعديل يناير 4, 2014 بواسطه زاكي بوشلاغم

[زاكي بوشلاغم]

نرجو منكم الإجابة على طلبي  هذا 

[الخالدي]

عمل مميز

بارك الله فيكم

بارك الله فيك اخي الكريم

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

[الخالدي]

بارك الله فيكم على سعيكم الخيرى والله انا من محبي هذا المنتدى

وربي يوفقكم في فعل الخير

اخي انا اريد ان ادخل  جميع المعطيات دون ترتيب حسب ابجد هوز وعند الإنتهاء اضغط على زرر الترتيب لكي يرتب حسب ابجد هوز مع ترتيب  القسم والتاريخ الميلاد ورقم قرار المنحة وتاريخ قرار المنحة حيث تاريخ قرارالمنحة في عمود( i ) به  معادلة بحث recherchev      عند التريب تخرج لي اشارة      (RECHERCHEV(H8;#REF!;2;0)  في عمود قرار المنحة العمود(i)

ما حل بارك الله فيكم

الكود يقوم بالفرز من العمود B الى العمود J حسب ابجد هوز في العمود B

بالنسبة للمعادلة جرب تغير مرجع الدالة من مرجع نسبي الى مرجع مطلق

شاهد المرفق

جدول تصفية المنح معدل جديد3.rar

[زاكي بوشلاغم]

اشكركم  جزيل  الشكر

[زاكي بوشلاغم]

اخي ممكن ان تشرح  لي  كيف تم  انشاء  زر التصفية   اي  حسب  الأقسام

[زاكي بوشلاغم]

اخي  ممكن  ان  تشرح  كيف   تم  انشاء زر الترتيب  حسب  ابجد  هوز  

  وكيف  تم  انشاء  زر  التصفية  حسب  الأقسام

[زاكي بوشلاغم]

انا  انتظر الرد  منكم 

[ahmd_asd4]

أخي هناك طريقة سهلة جدا و طريفة و هي : الفرز التلقائي من خلال قائمة Data ثم اختار فرز تلقائي سيظهر لك مربع صغير عند رأس كل عمود منه 

اختار أول اختيار سيتم ترتيب الأسماء أبجديا أو الأرقام حسب العمود الذي تريد ترتيبه و إذا أردت العكس أي من ي إلى أ اختار الاحتيار الثان يهذا أسهل لي 

من الأكواد 

ملحوظة : هذا في أفيس 2003

[الشهابي]

أخي العزيز / زاكي بوشغلام

هذا ملفك وقد تم تنفيذ ما طلبته إن شاء الله

المطلوب الأول : إضافة عمود للجنس

المطلوب الثاني : ترتيب القائمة بعد التصفية أبجد هوز من خلال كود أستاذنا الغالي / الخالدي حفظه الله 

حيث تم التعديل عليه ليتناسب مع ورقة التصفية

المطلوب الثالث : ترقيم تلقائي من خلال كود لأستاذنا الكبير / يحيى حسين حفظه الله

ويتم ذلك من خلال زر واحد حيت تم استدعاء كودي الترتيب والترقيم إلى كود التصفية 

أتمنى أن يكون هو مطلوبك 

والعفو

 

جدول تصفية المنح ابجد هوز.rar

[زاكي بوشلاغم]

شكر  جزيلا   انا  اريد  ان  لاتتغير    ورقة  جدول  منح  المتأخرة 

 اخي  قد  تغييرت  الورقة جدول المنح المتأخرة

وكل  المعطيات   في  الورقة  donnèe   اما  الورقة  donnèe 2   فهي  تنقل معطيات   من الورقة donnèe 

لهذا اريد  زر   في الورقة donnèe 2  ينتقل  لي معطيات  الورقة donnèe  مثال عندما  اختار  قسم  1م2   في  الورقة  donneè 2  يقل  لي  كم  عدد تلاميذ  قسم  1م2   وعدد  ذكرو  واناث  القسم  1م2

اما  زر  التصفية  في  الورقة donneè  2  لاداعي منه لأنه  موجود  في  الورقة donneè

اريد  زر في الورقة donnèe2  يجلب  لي معطيات الورقة donnèe  من قائمة تلاميذ  كل قسم  وعدد  ذكور  إناث  كل  قسم

[زاكي بوشلاغم]

إنشاء زر يقوم بجلب عدد تلاميذ القسم1م2 وعدد  ذكور القسم 1م2 وليكن 

الرمز هكذا في زر(1م2 ذ)

 

عند الظغط على الرز الذي به رمز (1م2ذ) الموجود في  الورقة (donnèe(2 يقوم بجلب كل تلاميذ

من الحنس الذكر في القسم 1م2  الموجودة في  الورقة donnèe

  وليكن الرمز (*1م ذ ) يرمز الى  كل  تلاميذ  النسة  الاولى  من  جنس  الذكر

 

الموجودة في  الورقة donnèe

 

نفس  الشيء  بالنسبة للإناث   وليكن  رمز  الإناث ( ا )

 ولتكن خلية  تعطي  عدد  تلاميذ  كل  قسم  او مستوي  من  الذكور  والإناث   مثال : 1م2ذ 

في  خلية  معينة  تعطي العدد :15

تم تعديل يناير 31, 2014 بواسطه زاكي بوشلاغم