اخفاء اعمدة حسب الرقم

[مصطفى محمود مصطفى]

السلام عليكم : هذا الكود لاحد الاساتذة الافاضل جزاه الله خيرا

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

:: المطلوب ان يخفي اعمدة الاشهر البقية ويظهر الشهر 31 يوم حسب رقمه عندما اختارة من القائمة المنسدلة.

شكرا لتعاونكم معي لكم تحياتي
 

اخفاء اعمدة استنادا لرقم.xlsm

[سليم حاصبيا]

ربما تفيد هذا المعادلة في تحديد عنوان الخلية التي يجب اخفاء عامودها

المعادلة (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 (مختلفان)

 

[مصطفى محمود مصطفى]

الاستاذ سليم جزاكم الله خيرا

الملف به كود اضافة غائب بيمين الماوس وهو من اعمالكم الرائعة

والمعادلة تظهر رسالة ( الصيغة التي كتبتها تحتوي على خطا ) علما ابدلت الفارزة بالفارزة المنقوطة وضغطت Ctrl+Shift+Enter

تحياتي ووافر احترامي

تم تعديل أغسطس 25, 2018 بواسطه مصطفى محمود مصطفى

[سليم حاصبيا]

انظر الى هذه الصورة

 

[مصطفى محمود مصطفى]

الاستاذ سليم جزاكم الله خيرا

معادلة رائعة وافكار اروع وفقكم الله

تحياتي ووافر احترامي

[سليم حاصبيا]

قمت بوضع هذا الملف لعلك تستفبد منه 

يجب فقط استكمال البيانات في الأعمدة  الصف 15 (ليعمل يشكل صحيح)

مراعاة المعادلات في الخلايا A1,D1,E1 و الجدول  A16 :C22

 

 

اخفاء اعمدة استنادا لرقم_salim.xlsm

[سليم حاصبيا]

تم استبدال الملف ليعمل يشكل اسرع

الماكرو

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

[مصطفى محمود مصطفى]

الاستاذ سليم وفقكم الله

بارك الله في عافيتكم ورزقكم

تحياتي ووافر احترامي