اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه زاكي بوشلاغم
رابط هذا التعليق
شارك

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

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

والكود يعتمد على عمود اضافي فارغ (العمود 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

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

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

رابط هذا التعليق
شارك

 

والكود يعتمد على عمود اضافي فارغ (العمود 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
تم تعديل بواسطه الخالدي
  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

 

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

كود رائع

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

تم تعديل بواسطه زاكي بوشلاغم
رابط هذا التعليق
شارك

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

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

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

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

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

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

شاهد المرفق

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

رابط هذا التعليق
شارك

  • 4 weeks later...

أخي هناك طريقة سهلة جدا و طريفة و هي : الفرز التلقائي من خلال قائمة 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

تم تعديل بواسطه زاكي بوشلاغم
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information