اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

:: المطلوب ان يخفي اعمدة الاشهر البقية ويظهر الشهر 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 (مختلفان)

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه مصطفى محمود مصطفى
رابط هذا التعليق
شارك

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

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

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

 

 

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

  • Like 1
رابط هذا التعليق
شارك

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

الماكرو

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information