زاكي بوشلاغم قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم هناك مشكل في ترتيب حسب ابحد هوز ممكن ماكرو يرتب ترتيبا دقيق حيث عند ترتيب فإنه لا يرتب جيدا مثال على ذلك حيث رتب اللقب بخوش قبل بوناب و قبل بوشلاغم وقبمن المفروض ان يرتب بوناب ثم بعزيز ثم بوشلاغم انا اريد الترتيب دقيق حسب الحروف التالية :أ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ث خ ذ ض ظ غ ممكن حل من فظلكم جدول تصفية المنح معدل جديد.rar 1 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 اخي زاكي الترتيب المعمول به الآن هو الترتيب الهجائي للحروف بالشكل أ ب ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن هـ و ي رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 2, 2014 الكاتب مشاركة قام بنشر يناير 2, 2014 (معدل) اخي ابو حنين ممكن دالة ترتيب حسب أ ب ج د ه و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ث خ ذ ض ظ غ بارك الله فيكم أنا بحاجة ماسة إليها تم تعديل يناير 2, 2014 بواسطه زاكي بوشلاغم رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 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 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم احسنت اخي الحبيب الخالدي ....حفظكم الله كود رائع جزاكم الله خيرا تقبلوا تحياتي وشكري 1 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 أستاذنا الكبير / الخالدي السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على روعة هذا الكود . بجد رائع .جعل الله جميع أعمالك في ميزان حسناتك. لك كل التحية والتقدير. رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 (معدل) والكود يعتمد على عمود اضافي فارغ (العمود 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 بواسطه الخالدي 3 رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم احسنت اخي الحبيب الخالدي ....حفظكم الله كود رائع جزاكم الله خيرا تقبلوا تحياتي وشكري وعليكم السلام شكرا لمرورك اخي الحبيب الاستاذ عبدالله باقشير بالتأكيد ما من كود الا وبصماتكم فيه حفظكم الله ورعاكم رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 أستاذنا الكبير / الخالدي السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على روعة هذا الكود . بجد رائع .جعل الله جميع أعمالك في ميزان حسناتك. لك كل التحية والتقدير. وعليكم السلام ورحمة الله وبركاته شكرا لمرورك اختي الفاضلة أم عبد الله جزاك الله خيراً لك مني كل التقدير والاحترام رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب الخالدي حفظكم الباري عز وجل اعمال رائعة واكواد في قمة الابداع والاتقان جعلها الله في ميزان حسناتك تقبل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب الخالدي حفظكم الباري عز وجل اعمال رائعة واكواد في قمة الابداع والاتقان جعلها الله في ميزان حسناتك تقبل فائق احترامي وتقديري وعليكم السلام ورحمة الله وبركاته بارك الله فيك اخي الحبيب أبو محمد عباس اشكرك على المرور الثناء الطيب حفظكم الله واحسن اليكم لكم كل الود والتقدير رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 2, 2014 مشاركة قام بنشر يناير 2, 2014 عمل مميز بارك الله فيكم رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 4, 2014 الكاتب مشاركة قام بنشر يناير 4, 2014 بارك الله فيكم على سعيكم الخيرى والله انا من محبي هذا المنتدى وربي يوفقكم في فعل الخير اخي انا اريد ان ادخل جميع المعطيات دون ترتيب حسب ابجد هوز وعند الإنتهاء اضغط على زرر الترتيب لكي يرتب حسب ابجد هوز مع ترتيب القسم والتاريخ الميلاد ورقم قرار المنحة وتاريخ قرار المنحة حيث تاريخ قرارالمنحة في عمود( i ) به معادلة بحث recherchev عند التريب تخرج لي اشارة (RECHERCHEV(H8;#REF!;2;0) في عمود قرار المنحة العمود(i) ما حل بارك الله فيكم رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 4, 2014 الكاتب مشاركة قام بنشر يناير 4, 2014 (معدل) ونشكركم جزيل الشكر على هذا المنتدى الرائع والمفيد اتمنى ان يوفقكم الله في الخير ودمتم في خدمت العلم والمعر فة تم تعديل يناير 4, 2014 بواسطه زاكي بوشلاغم رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 4, 2014 الكاتب مشاركة قام بنشر يناير 4, 2014 نرجو منكم الإجابة على طلبي هذا رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 4, 2014 مشاركة قام بنشر يناير 4, 2014 عمل مميز بارك الله فيكم بارك الله فيك اخي الكريم شكرا للمرور والثناء الطيب رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 4, 2014 مشاركة قام بنشر يناير 4, 2014 بارك الله فيكم على سعيكم الخيرى والله انا من محبي هذا المنتدى وربي يوفقكم في فعل الخير اخي انا اريد ان ادخل جميع المعطيات دون ترتيب حسب ابجد هوز وعند الإنتهاء اضغط على زرر الترتيب لكي يرتب حسب ابجد هوز مع ترتيب القسم والتاريخ الميلاد ورقم قرار المنحة وتاريخ قرار المنحة حيث تاريخ قرارالمنحة في عمود( i ) به معادلة بحث recherchev عند التريب تخرج لي اشارة (RECHERCHEV(H8;#REF!;2;0) في عمود قرار المنحة العمود(i) ما حل بارك الله فيكم الكود يقوم بالفرز من العمود B الى العمود J حسب ابجد هوز في العمود B بالنسبة للمعادلة جرب تغير مرجع الدالة من مرجع نسبي الى مرجع مطلق شاهد المرفق جدول تصفية المنح معدل جديد3.rar رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 5, 2014 الكاتب مشاركة قام بنشر يناير 5, 2014 اشكركم جزيل الشكر رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 29, 2014 الكاتب مشاركة قام بنشر يناير 29, 2014 اخي ممكن ان تشرح لي كيف تم انشاء زر التصفية اي حسب الأقسام رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 30, 2014 الكاتب مشاركة قام بنشر يناير 30, 2014 اخي ممكن ان تشرح كيف تم انشاء زر الترتيب حسب ابجد هوز وكيف تم انشاء زر التصفية حسب الأقسام رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 30, 2014 الكاتب مشاركة قام بنشر يناير 30, 2014 انا انتظر الرد منكم رابط هذا التعليق شارك More sharing options...
ahmd_asd4 قام بنشر يناير 30, 2014 مشاركة قام بنشر يناير 30, 2014 أخي هناك طريقة سهلة جدا و طريفة و هي : الفرز التلقائي من خلال قائمة Data ثم اختار فرز تلقائي سيظهر لك مربع صغير عند رأس كل عمود منه اختار أول اختيار سيتم ترتيب الأسماء أبجديا أو الأرقام حسب العمود الذي تريد ترتيبه و إذا أردت العكس أي من ي إلى أ اختار الاحتيار الثان يهذا أسهل لي من الأكواد ملحوظة : هذا في أفيس 2003 رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر يناير 30, 2014 مشاركة قام بنشر يناير 30, 2014 أخي العزيز / زاكي بوشغلام هذا ملفك وقد تم تنفيذ ما طلبته إن شاء الله المطلوب الأول : إضافة عمود للجنس المطلوب الثاني : ترتيب القائمة بعد التصفية أبجد هوز من خلال كود أستاذنا الغالي / الخالدي حفظه الله حيث تم التعديل عليه ليتناسب مع ورقة التصفية المطلوب الثالث : ترقيم تلقائي من خلال كود لأستاذنا الكبير / يحيى حسين حفظه الله ويتم ذلك من خلال زر واحد حيت تم استدعاء كودي الترتيب والترقيم إلى كود التصفية أتمنى أن يكون هو مطلوبك والعفو جدول تصفية المنح ابجد هوز.rar رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 31, 2014 الكاتب مشاركة قام بنشر يناير 31, 2014 شكر جزيلا انا اريد ان لاتتغير ورقة جدول منح المتأخرة اخي قد تغييرت الورقة جدول المنح المتأخرة وكل المعطيات في الورقة 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 من قائمة تلاميذ كل قسم وعدد ذكور إناث كل قسم رابط هذا التعليق شارك More sharing options...
زاكي بوشلاغم قام بنشر يناير 31, 2014 الكاتب مشاركة قام بنشر يناير 31, 2014 (معدل) إنشاء زر يقوم بجلب عدد تلاميذ القسم1م2 وعدد ذكور القسم 1م2 وليكن الرمز هكذا في زر(1م2 ذ) عند الظغط على الرز الذي به رمز (1م2ذ) الموجود في الورقة (donnèe(2 يقوم بجلب كل تلاميذ من الحنس الذكر في القسم 1م2 الموجودة في الورقة donnèe وليكن الرمز (*1م ذ ) يرمز الى كل تلاميذ النسة الاولى من جنس الذكر الموجودة في الورقة donnèe نفس الشيء بالنسبة للإناث وليكن رمز الإناث ( ا ) ولتكن خلية تعطي عدد تلاميذ كل قسم او مستوي من الذكور والإناث مثال : 1م2ذ في خلية معينة تعطي العدد :15 تم تعديل يناير 31, 2014 بواسطه زاكي بوشلاغم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان