nhờ rút gọn code che hàng xen kẻ (1 người xem)

[pns56]

Nhờ các anh chị rút gọn dùm code che hàng xen kẻ, cách 3 hàng che 1 hàng, mình record macro nhưng không biết rút gọn. cũng nhờ anh chị cho code ngược lại Unhide các hàng đã che. Dụng ý Mình làm 2 nút lệnh che và không che để dùng khi cần thiết. cám ơn các anh chị. Chúc sức khỏe cả nhà!

 

[Hai Lúa Miền Tây]

Nhờ các anh chị rút gọn dùm code che hàng xen kẻ, cách 3 hàng che 1 hàng, mình record macro nhưng không biết rút gọn. cũng nhờ anh chị cho code ngược lại Unhide các hàng đã che. Dụng ý Mình làm 2 nút lệnh che và không che để dùng khi cần thiết. cám ơn các anh chị. Chúc sức khỏe cả nhà!

Ẩn dòng xen kẻ 3 dòng từ dòng 7 đến 20

Sub An()
Dim i As Integer
For i = 7 To 20 Step 4
    Cells(i, 1).EntireRow.Hidden = True
Next
End Sub

Hiện lại tất cả các dòng đã bị ẩn

Sub Hien()
    Cells.EntireRow.Hidden = False
    
End Sub

 

[pns56]

Cám ơn anh HLMT đã trả lời, hay quá, vậy mà tôi nghĩ không ra. Cho hỏi thêm ở code Xóa dữ liệu sau khi dùng, muốn phục hồi (Undo) thì viết code thế nào? Ví dụ:
Sub Button24_Click()
'Xoa tat ca cac tiet thuc hien
Range("J11:AE483").Select
Selection.ClearContents
Range("J11").Select
End Sub
Nhờ các ACE hướng giúp để mình học hỏi thêm, cám ơn nhiều!

 

[Hai Lúa Miền Tây]

Cám ơn anh HLMT đã trả lời, hay quá, vậy mà tôi nghĩ không ra. Cho hỏi thêm ở code Xóa dữ liệu sau khi dùng, muốn phục hồi (Undo) thì viết code thế nào? Ví dụ:
Sub Button24_Click()
'Xoa tat ca cac tiet thuc hien
Range("J11:AE483").Select
Selection.ClearContents
Range("J11").Select
End Sub
Nhờ các ACE hướng giúp để mình học hỏi thêm, cám ơn nhiều!

Sau khi chạy code không thể undo lại được bạn à, có chăng chỉ là đóng file, không lưu và mở file lên lại.