طائع

اريد الترتيب على السرى فقط

على السرى فقط

كيف يكون مرتب وهو يبدأ من رقم 60 الى 70 ثم يبدأ من 50 الى 59 ثم من 40 الى 48 اريد عند الضغط على زر الرصد على السرى يرتب من أصغر رقم الى أكبر رقم فمثلا فى هذا المثال أصغر رقم هو 40 وأكبر رقم هو 70

اخوانى واساتذتى فى هذا المنتدى العريق اريد مع اخفاء الاعمدة ترتيب على الرقم السرى التوضيح والمطلوب بالمرفق SORT.rar

استاذى ياسر كم تعلمت منك الكثير واقدم وافر احترامى لك واشكرك هل لى أن أكمل الكود الى الرقم 1000 على منوال حضرتك فى الكود وهل سيقبل الكود الى الرقم 1000 ؟

كل الشكر لأستاذى سليم ولكن الذى اريده هو تفقيط مراكز وليس نقود أى الذى يحصل على المركز 1 يجاوره الأول وهكذا الى الرقم 1000 يجاوره الألف

الى السادة خبراء وأساتذة المنتدى المطلوب بالمرفق تحويل الرقم لنص.rar

للرفع

للرفع

اخى ياسر العربى اشكرك على اهتمامك ولكن ليس هذا المقصود ولكن المقصود من طلبى فى المرفق فى sheet2 yasser elaraby.rar

الى كل من يقرأ والى كل الخبراء فى منتدانا العزيز س: هل يمكن ادخال صوت لبرنامج اكسل 2003 صوت عن طريق المايك

شكرا جزيلا اخى صقر ايا كان الحل فذلك يفى بالمطلوب اشكرك وتحياتى

اساتذتى أدام الله عمركم وجعلكم زخرا وعونا طلبى بالمرفق ولو بالامكان شرح عمله اخفاء اعمدة.rar

بارك الله فيك اخى ياسر

مشكووووووووووووووووووووووووووووووووووور

للرفع

الزر لا يعمل

اشكرك استاذى ويتبقى طلب بسيط وهو فى الخلية f1 اريد زر اختار منه المادة ولا اكتبها بيدى

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

للرفع

للرفع

لو فى الامكان شرح الكود

اشكرك استاذى ياسر على اهتمامك ولكن وفقنى الله فى حل المشكلة بأن غيرت السطر الثانى فى الكود Application.Calculation = xlManua من Manual الى automatic

أخى ابو البراء شاكرر مرورك وجزاك الله خيرا ولكن مساحة الملف 66 كيلو بايت ولكن هذا الكود يعمل فى الصفحة التى ارصد بها وحاولت اختيار الحساب التلقائى من tools option automatic ولكن بمجرد الخروج من هذه الصفحة والعودة اليها تغير automatic الى manual Sub تنسيق() Application.ScreenUpdating = False Application.Calculation = xlManual ActiveSheet.Unprotect 111 For Each cl In Range("f9:m408") If cl <> "" Then GoTo 1 Next Range("F9:M408").FormulaR1C1 = "=IF(INDEX(رسوب,MATCH(RC3,طلاب,0),MATCH(R7C,مواد,0))="""",TRUE)" For Each cl In Range("f9:m408") If cl.Value = True Then cl.Locked = True Else cl.Locked = False End If Next cl Range("F9:M408").ClearContents ActiveSheet.Protect 111 Application.Calculation = xlAutomatic Application.ScreenUpdating = True 1 End Sub

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