نوشته اصلی توسط
Mohammad Acc
ممنون از شما
خیلی عالی هست
فقط 2 مشکل داره
1- وقتی روی ردیف های سمت چپ ( همون اعداد شمارنده ) کلیک میکنم هاید نشه
2- نحوه ی اضافه کردن سطر مابین محدوده ها بدون تغییر فرمول
کد PHP:
On Error Resume Next
Application.ScreenUpdating = False
Dim r1 As Integer
Dim r2 As Integer
If ActiveCell.Column <> 1 Then
Dim rng As Range
If ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
For Each rng In Range(ActiveCell.Offset(1, -1).Address, "a1000000")
Rows(r3 & ":" & r4).EntireRow.Hidden = True
If rng = "" Then
r1 = ActiveCell.Offset(1, -1).Row
r2 = rng.Offset(-1, 0).Row
Rows(ActiveCell.Offset(1, -1).Row & ":" & rng.Offset(-1, 0).Row).EntireRow.Hidden = False
r3 = r1
r4 = r2
Exit For
End If
Next rng
End If
End If
Application.ScreenUpdating = True
علاقه مندی ها (Bookmarks)