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

كود اخفاء السطور حسب رقم بخلية


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

السلام عليكم اخواتي .أرجومساعدتي في الملف المرفق بحيث اريد عندما اكتب في الخلية m5 عدد التلاميذ يتم اظهار عدد السطور بقدر عدد التلاميذ واخفاء باقي الصفوف في الجدول .

ts2.rar

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

تفضل أخي الفاضل ما تريد

للاخفاء

Sub braa_Hidde()
For b = 11 To 67
If Cells(b, 2) = "" Then Cells(b, 2).Select
ActiveCell.EntireRow.Hidden = True
Next b

للاظهار

End Sub
Sub braa_show()
Range("11:67").EntireRow.Hidden = False
End Sub
رابط هذا التعليق
شارك

السلام عليكم

 

جرب هذا بعد وضعه في موديل الورقة ts2


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
If Target.Address = [M5].Address Then
    Range("A11:A67").EntireRow.Hidden = False
    M = Application.Match([M5], Range("A11:A67"), 0) + 11
    If M <= 67 Then Range("A" & M & ":A67").EntireRow.Hidden = True
End If
1
End Sub

تحياتي

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

السلام عليكم الف شكر للمساعدة

الى الاخويين سليم و محمد اريد ان أطبق العمل انطلاقا من الخلية m5 بدل الاعتماد على الازرار بحيث m5  تساوي عدد التلاميذ .

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

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

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

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



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

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

Important Information