aly555 قام بنشر أكتوبر 16, 2009 مشاركة قام بنشر أكتوبر 16, 2009 السادة الافاضل أعضاء المنتدي الكريم بعد التحية أرجو التكرم بمساعدتي في عمل كود تكون وظيفته كالأتي : إذا كانت خلية معينة = صفر مثلا يقوم بإخفاء الصف بالكامل وإذا كانت لاتساوي صفر تظل كما هي ولا يحدث أي تغيير بالإضافة إلي كود لإعادة الخلايا التي تم إخفاؤها مرة أخري ولكم جزيل الشكر أخوكم علي رابط هذا التعليق شارك More sharing options...
aly555 قام بنشر أكتوبر 16, 2009 الكاتب مشاركة قام بنشر أكتوبر 16, 2009 الاستاذ المحترم / خبور خير برجاء مساعدتي في المشكلة أعلاه وجزاك الله كل خير علي حسن رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر أكتوبر 16, 2009 مشاركة قام بنشر أكتوبر 16, 2009 بسم الله الرحمن الرحيم أستخدم الكود التالى : Dim i As Integer Dim MY_Sheet As String Sub Show_All() MY_Sheet = "Sheet1" UnHid End Sub Sub DOIT() MY_Sheet = "Sheet1" UnHid Hid End Sub Private Function UnHid() For i = 1 To 10 Sheets(MY_Sheet).Rows(i).Hidden = False Next i End Function Private Function Hid() For i = 1 To 10 If Sheets(MY_Sheet).Cells(i, "A").Value = 0 Then Sheets(MY_Sheet).Rows(i).Hidden = True End If Next i End Function و قد قمت بأضافه مفتاح لأظهار جميع الصفوف اذا اردت مرفق ملف السلام عليكم Hide.rar رابط هذا التعليق شارك More sharing options...
aly555 قام بنشر أكتوبر 16, 2009 الكاتب مشاركة قام بنشر أكتوبر 16, 2009 أخي الكريم لا أعرف طريقة مناسبة لشكرك وليس بوسعي شئ إلا قول جزاك الله عني كل الخير ولك مني دعوة بصلاة الفجر جزاك الله خير مرة أخري أخوك/ علي حسن رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.