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

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

يأخي  لم  تصلح  معي

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

ارجو ان تكون قد فهمت قصدي وتساعدني

عند  تغيير رقم  الصفحة  تبقى قيم المنح التأخرة للصفحة الأولى تكرر في كل صفحات  ورقة جدول المنح المتاخرة

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

[الشهابي]

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

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

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

=IFERROR(IF(INDEX(Donnée!$B$2:$K$1000;$A5;10)="نعم";IF(H5="نصف داخلي";LOOKUP(270-I5;jours_presence;boursses_DP);IF(H5="داخلي";LOOKUP(270-I5;jours_presence;Boursses_P);IF(H5="نصف داخلي";LOOKUP(270-I5;jours_presence;boursses_DP);IF(H5="داخلي";LOOKUP(270-I5;jours_presence;Boursses_P)))));0);"")

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

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

بارك  الله  فيك  وربي   يرحملك  والديك   ويسترهما 

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

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

وجميع  ماكروات  لاتعمل عند فتح فيزيال بازيك اجد ماكروات فارغة وعند نقل الملف الى  جهازي  تعمل

ما  الحل 

[الشهابي]

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

يجب تخفيض مستوى أمان الماكروا في برنامج الأكسل في ذلك الجهاز 

هذا هو سبب المشكلة والله أعلم 

قم بالتخفيض وأعلمني بالنتيجة

تحياتي

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

قمت  يتخفيض مستوى امان الماكروات  فلم تعمل

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

ما الحل

[الشهابي]

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

هل جربته في جهاز آخر 

إذا لم تجربه جربه في أكثر من جهاز وتأكد 

وربما أحد من الأخوة الإعزاء لديه فكرة أو حل للمشكلة 

والعفو 

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

شكرا جزبلا  جربته في  عدة اجهزة  ولم  يعمل 

يعمل  فقط في جهازي

[الشهابي]

ممكن ترفق الملف مرة أخرى 

ربما تجد الحل من قبل الأحوة الكرام 

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

هذا الملف لايعمل الى في حاسوبي انا فقط

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

[الشهابي]

الملف شغال تمام عندي 

ولا توجد مشكلة في تنفيد الأكواد

بصراحة لم أعرف السبب 

[younes4you]

في 2/1/2014 at 18:29, الخالدي said:

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

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