مصطفى محمود مصطفى قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 السلام عليكم : هذا الكود لاحد الاساتذة الافاضل جزاه الله خيرا حاولت ان اجعله يعمل بشكل صحيح لاخفاء اعمدة واظهار اخرى حسب الرقم في السطر الاول لم تنجح محاولاتي :: المطلوب ان يخفي اعمدة الاشهر البقية ويظهر الشهر 31 يوم حسب رقمه عندما اختارة من القائمة المنسدلة. شكرا لتعاونكم معي لكم تحياتي اخفاء اعمدة استنادا لرقم.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 ربما تفيد هذا المعادلة في تحديد عنوان الخلية التي يجب اخفاء عامودها المعادلة (Ctrl+Shift+Enter) =ADDRESS(1,MATCH($A$1&"*"&$B$3,$G$1:$X$1&"*"&$G$15:$X$15,0)+6) تم وضع النجمة للتفريق بين الارقام المتتالية مثلاً التاريخين (1 31 و 11 3) بدون النجمة يظهران 311 و 311 متساويان امام الدالة Match اما مع النجمة يظهران 1*31 و 11*3 (مختلفان) 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر أغسطس 25, 2018 الكاتب مشاركة قام بنشر أغسطس 25, 2018 (معدل) الاستاذ سليم جزاكم الله خيرا الملف به كود اضافة غائب بيمين الماوس وهو من اعمالكم الرائعة والمعادلة تظهر رسالة ( الصيغة التي كتبتها تحتوي على خطا ) علما ابدلت الفارزة بالفارزة المنقوطة وضغطت Ctrl+Shift+Enter تحياتي ووافر احترامي تم تعديل أغسطس 25, 2018 بواسطه مصطفى محمود مصطفى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 انظر الى هذه الصورة 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر أغسطس 26, 2018 الكاتب مشاركة قام بنشر أغسطس 26, 2018 الاستاذ سليم جزاكم الله خيرا معادلة رائعة وافكار اروع وفقكم الله تحياتي ووافر احترامي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 قمت بوضع هذا الملف لعلك تستفبد منه يجب فقط استكمال البيانات في الأعمدة الصف 15 (ليعمل يشكل صحيح) مراعاة المعادلات في الخلايا A1,D1,E1 و الجدول A16 :C22 اخفاء اعمدة استنادا لرقم_salim.xlsm 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 26, 2018 مشاركة قام بنشر أغسطس 26, 2018 تم استبدال الملف ليعمل يشكل اسرع الماكرو Option Explicit Sub show_Only() If ActiveSheet.Name <> "ms" Then GoTo Leave_Me Application.ScreenUpdating = False Hide_alls Dim K%: K = Range("d1").Value Dim x% Dim T% Do x = Cells(15, K) If x <= 0 Then Exit Do If Cells(15, K) <= 31 And Cells(15, K) >= 28 Then T = T + 1 End If If T = 5 Then Exit Do Cells(15, K).EntireColumn.Hidden = False K = K - 1 Loop Leave_Me: Application.ScreenUpdating = True End Sub '================================ Sub Hide_alls() Range("g1:jy1").EntireColumn.Hidden = True End Sub '====================================== Sub Sow_alls() Range("g1:jy1").EntireColumn.Hidden = False End Sub الملف Show_hide.xlsm رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر أغسطس 26, 2018 الكاتب مشاركة قام بنشر أغسطس 26, 2018 الاستاذ سليم وفقكم الله بارك الله في عافيتكم ورزقكم تحياتي ووافر احترامي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان