ماکرو برای از حالت مخفی درآوردن سطرها

[eleman]

سلام به دوستان گرامی و مدیریت انجمن
من یه فایلی دارم که تعداد تقریبا 100 سطر داره.
میخام همه ی سطرها به حالت مخفی (hidden) در بیان و بعد یه ماکرو تعریف کنم که هربار اون دکمه رو زدم 10 تا سطر رو از حالت مخفی دربیاره.
ممنون می شم اگه افراد مطلع راهنماییم کنن.
فایل به پیوسته!

[abootorab]

سلام به دوستان گرامی و مدیریت انجمن
من یه فایلی دارم که تعداد تقریبا 100 سطر داره.
میخام همه ی سطرها به حالت مخفی (hidden) در بیان و بعد یه ماکرو تعریف کنم که هربار اون دکمه رو زدم 10 تا سطر رو از حالت مخفی دربیاره.
ممنون می شم اگه افراد مطلع راهنماییم کنن.
فایل به پیوسته!

با درود
کد جهت مخفی کردن به عنوان مثال 100 سطر:

Rows("1:100").EntireRow.Hidden = True 

کد مربوط به از مخفی درآوردن مثلا سطرهای 11 تا 20:

Rows("11:20").EntireRow.Hidden = False 

[eleman]

ممنونم abootorab
اما اون چیزی که دنبالشم اینه که دفعه اول که دکمه رو زدم سطر 14 تا 23، دفعه دوم سطر 24 تا 33 و ... بهمین ترتیب از حالت مخفی در بیان.
مطابق فایل پیوست.

[abootorab]

ممنونم abootorab
اما اون چیزی که دنبالشم اینه که دفعه اول که دکمه رو زدم سطر 14 تا 23، دفعه دوم سطر 24 تا 33 و ... بهمین ترتیب از حالت مخفی در بیان.
مطابق فایل پیوست.

با درود
شما ابتدا از سطر 14 به بعد به هر تعداد سطری که خواستین Hide کنید سپس کد زیر رو واسه اون دکمه ای که میخوان سطرها رو 10 تایی از Hide خارج کنه بکار ببرین.

Sub unhide_satr()
    For i = 14 To 113
        If Rows(i).Hidden = True Then
            For j = i To i + 9
                Rows(j).EntireRow.Hidden = False
            Next j
            Exit For
        End If
    Next i
End Sub 

در این کد فقط 100 سطر مخفی در نظر گرفتم که میتونید کم یا زیادش کنید.

[eleman]

بسیار متشکرم
حل شد. به خوبی.
فقط یه راهنمایی دیگه هم میخام.
چطور میشه بعد از اینکه یه قسمتی رو از حالت مخفی در آورد، نشانگر روی اولین سلول اون قسمت قرار بگیره؟
باز هم متشکرم

[abootorab]

بسیار متشکرم
حل شد. به خوبی.
فقط یه راهنمایی دیگه هم میخام.
چطور میشه بعد از اینکه یه قسمتی رو از حالت مخفی در آورد، نشانگر روی اولین سلول اون قسمت قرار بگیره؟
باز هم متشکرم

درود مجدد
اینم خدمت شما:

Sub unhide_satr()
    For i = 14 To 113
        If Rows(i).Hidden = True Then
            For j = i To i + 9
                Rows(j).EntireRow.Hidden = False
            Next j
            Cells(i, 1).Select
            Exit For
        End If
    Next i
End Sub 

[eleman]

متشکرم