پرش از ردیف های پنهان در یک ماکرو

Question

هنگام استفاده از کاربرگ، پنهان کردن ردیف هایی که حاوی داده هایی هستند که نمی خواهید در زمان فعلی نمایش داده شوند، غیر معمول نیست. اگر یک ماکرو نوشته اید که داده ها را در کاربرگ پردازش می کند، ممکن است فکر کرده باشید که چگونه ردیف هایی را که به عنوان مخفی علامت گذاری کرده اید پردازش نکنید.

روشی که شما این کار را انجام می دهید این است که ویژگی Hidden هر ردیف را بررسی کنید. اگر ویژگی True باشد، ردیف پنهان می شود. اگر False باشد، ردیف قابل مشاهده است.

به عنوان مثالی از نحوه کار، فرض کنید یک کاربرگ دارید که برای ردیابی مشتریان از آن استفاده می کنید. برخی از این مشتریان فعال و برخی دیگر غیر فعال در نظر گرفته می شوند. برای علامت گذاری یک کلاینت به عنوان غیرفعال، ردیف حاوی مشتری را پنهان می کنید. در برخی موارد، شما می خواهید مشتریان فعال را شماره گذاری کنید، و می خواهید این کار را با استفاده از یک ماکرو انجام دهید. ماکرو زیر این کار را برای شما انجام می دهد:

Sub NumberClients()
    Dim c As Range
    Dim j As Integer

    If Selection.Columns.Count > 1 Then
        MsgBox "Only select the cells you want numbered"
        Exit Sub
    End If

    j = 0
    For Each c In Selection
        If Not c.Rows.Hidden Then
            j = j + 1
            c.Value = j
        Else
            c.Clear
        End If
    Next c
End Sub

برای استفاده از ماکرو، کافی است سلول هایی را که در آنها شماره گذاری انجام می شود، انتخاب کنید. ماکرو اول از همه بررسی می کند که مطمئن شود شما فقط سلول ها را در یک ستون انتخاب کرده اید. سپس، از هر سلول در محدوده انتخاب شده عبور می کند. اگر ردیف حاوی سلول پنهان نباشد، شمارنده (j) افزایش یافته و در سلول ذخیره می شود. اگر ردیف حاوی سلول پنهان باشد، محتویات سلول پاک می شود. کلید این ماکرو ساختار If ... End If است که مقدار ویژگی Hidden را آزمایش می کند.