محمد عبدالله المسعودي

اذا كان الغرض من السؤال بان يظهر الاسم كاملا لنتمكن من قراءته ومعرفته كاملا بامكانك من تنسيق الخلايا ونختار "احتواء مناسب " دون المساس بعرض العمود او اخفاء عمود اخر تحياتي

الاخوة الكرام حذفت برنامج الاوفس ونصبته من جديد بنسخة 2010 وتم حل المشكلة والكود يعمل بشكل رائع وفقكم الله ورعاكم شكرا اخي العزيزN_ELMASRY في ميزان حسناتكم ان شاء الله شكرا لمروركم الكريم اخي العزيز عبد الله قدور لكم تحياتي وشكري جميعا

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

جزاكم الله خيرا اخي العزيز N_ELMASRY لايوجد تغيير عند التنفيذ والضغط على ايقونة الاختيار لا اعرف ما السبب حاول تجربته تحياتي لكم واشكرك على سرعة الاجابة وفقكم الله

السلام عليكم المرفق قاعدة بيانات للطلبة موجودة في المنتدى غيرت بها بعض العناوين في النموذج لكن اردت التعديل عن اخفاء بعض البيانات الا عند الطلب من نموذج الاختيار والشرح في الصورة فيه شرح اكثر تحياتي للجميع وشكرا لكل من يساهم ويشارك في ابداء المساعدة الممكنة لي وفقكم الله اخفاء بيانات.rar

الاستاذ محمد شكرا لجهودكم الكبيرة وفقكم الله

الاخ ياسر العربي عمل روعة . جزاكم الله خيرا

السلام عليكم لو ارفقت ملفا فيه توضيح للمطلوب وفيه بيانات رمزية ليتسنى للاساتذة معرفة المطلوب والاجابة تحياتي

وفقكم الله وبارك بكم

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

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

السلام عليكم الاستاذ ياسر العربي وفقكم الله اعمالكم كبيرة ومتقنه لكم تحياتي وفائق احترامي

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

السلام عليكم اساتذتي الكرام تعديل بسيط يحفظكم الله الكودين لايعملان اذا كانت الاعداد تاتي بالمعادلات تغيير الاحصاء يكون من A27:A4 وليس B استطعت ان اغير كود الاستاذ سليم حاصبيا جزاه الله خيرا ويعمل بشكل ممتاز Private Sub Worksheet_Change(ByVal Target As Range) 'الاستاذ سليم حاصبيا If Target.Column <> 1 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("a" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [f1] = t + 1 End Sub لكن لم استطع تغيير كود الاستاذ ياسر العربي جزاه الله خيرا ليعمل على العمود الاول A ارجوالتدخل من الاستاذ ياسر العربي جزاه الله خيرا او احد الاساتذة الكرام لتغيير عمود الاحصاء وفق الله الجميع لما فيه الخير والمحبة

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