Xin tạo giúp nút điều khiển ẩn đi các dòng đk > 0 của nhiều sheet trong excel ! (1 người xem)

[quygha2007]

Em có 1 file gồm 3 sheet, trong đó em muốn tạo 1 nút Chạy tại sheet 1 để khi click vào đó thì sẽ tự động ẩn đi cùng lúc dòng 10 (Sheet 2) và dòng 20 (Sheet 3) được không ạ ?

Em không rành VBA, móng các Pro chỉ giúp ! thanks.

 

[hoamattroicoi]

Chạy thử code này nhé!

Sub Andong()
Dim sH As Worksheet
Dim i As Long
For Each sH In Worksheets
    If sH.Name <> "Sheet1" Then
        For i = 1 To sH.[A65536].End(xlUp).Row
            If sH.Cells(i, 1) = "" Then
                sH.Cells(i, 1).EntireRow.Hidden = True
            End If
        Next i
    End If
Next
End Sub

 

[quygha2007]

Chạy thử code này nhé!

Sub Andong()
Dim sH As Worksheet
Dim i As Long
For Each sH In Worksheets
    If sH.Name <> "Sheet1" Then
        For i = 1 To sH.[A65536].End(xlUp).Row
            If sH.Cells(i, 1) = "" Then
                sH.Cells(i, 1).EntireRow.Hidden = True
            End If
        Next i
    End If
Next
End Sub

Hoamattroicoi !
Mình chạy thử trong file đính kèm thì được nhưng khi chuyển sang các file excel khác thì nó bão lỗi 400, ko bít là j, mong xem giúp trong file đính kèm với. thanks

 

[quygha2007]

Chạy thử code này nhé!

Sub Andong()
Dim sH As Worksheet
Dim i As Long
For Each sH In Worksheets
    If sH.Name <> "Sheet1" Then
        For i = 1 To sH.[A65536].End(xlUp).Row
            If sH.Cells(i, 1) = "" Then
                sH.Cells(i, 1).EntireRow.Hidden = True
            End If
        Next i
    End If
Next
End Sub

mình chạy file đó thì được nhưng khi dùng code đó cho file khác thì nó báo lỗi 400, mong mọi người sửa giúp trong file đính kèm 2014.xls

 

[quygha2007]

tạo nút điều khiển nhiều sheet trong excel

Mong các pro chỉ giúp cho file đính kèm

 

[hoamattroicoi]

Hoamattroicoi !
Mình chạy thử trong file đính kèm thì được nhưng khi chuyển sang các file excel khác thì nó bão lỗi 400, ko bít là j, mong xem giúp trong file đính kèm với. thanks

Vậy thì bạn phải gửi file đó lên đây mình mới kiểm tra giúp bạn được, vì dữ liệu file ban đầu là giả định nên mình chỉ viết theo nó, còn bố cục dữ liệu thật như thế nào thì mình chưa rõ mà. Có thể cột kiểm tra điều kiện rỗng không phải cột A chẳng hạn.....

 

[phucbugis]

Mong các pro chỉ giúp cho file đính kèm

bạn hãy thử Unprotect toàn bộ các sheet đang ẩn trước khi chạy code xem còn bị ko?

 

[quygha2007]

Vậy thì bạn phải gửi file đó lên đây mình mới kiểm tra giúp bạn được, vì dữ liệu file ban đầu là giả định nên mình chỉ viết theo nó, còn bố cục dữ liệu thật như thế nào thì mình chưa rõ mà. Có thể cột kiểm tra điều kiện rỗng không phải cột A chẳng hạn.....

Mình gửi file đính kèm, các bạn xem giúp !

 

[hoamattroicoi]

Chào bạn!

Hiện tại thì mình thấy bố cục file thật khác hoàn toàn với file giả định bạn đưa lên, name lỗi trong file rất nhiều, hix. Bạn nên cài phần mềm cảnh báo Virus macro warning của anh Tuân để xóa name lỗi trước. Sau đó xin vui lòng mô tả lại yêu cầu của bạn trong file thật này, bạn muốn ẩn dòng như thế nào, ở những sheet nào (sheet đang hiển thị hay sheet được chỉ rõ tên...)
Cảm ơn!

 

[quygha2007]

Thanks hoamattroicoi !

 

[quygha2007]

Hiện tại thì mình thấy bố cục file thật khác hoàn toàn với file giả định bạn đưa lên, name lỗi trong file rất nhiều, hix. Bạn nên cài phần mềm cảnh báo Virus macro warning của anh Tuân để xóa name lỗi trước. Sau đó xin vui lòng mô tả lại yêu cầu của bạn trong file thật này, bạn muốn ẩn dòng như thế nào, ở những sheet nào (sheet đang hiển thị hay sheet được chỉ rõ tên...)
Cảm ơn!

Mình có 1 file gồm nhiều sheet, muốn từ nút điều khiển "Check" tại sheet input khi click vào thì sẽ ẩn được các dòng trắng hoặc < 0 từ shẹet 5 đến sheet 10 đi và hiện lên khi cần xem

nhân tiện nhờ bạn xem giúp lỗi type mismatch sửa ntnao vậy ạ

Mong pro chỉ giúp chi tiết để mình có thể làm cho cả các file khác nữa.
Thanks

 

[quygha2007]

Mình có 1 file gồm nhiều sheet, muốn từ nút điều khiển "Check" tại sheet input khi click vào thì sẽ ẩn được các dòng trắng hoặc < 0 từ shẹet 5 đến sheet 10 đi và hiện lên khi cần xem

nhân tiện nhờ các bạn xem giúp lỗi type mismatch sửa ntnao vậy ạ

Mong các pro chỉ giúp chi tiết để mình có thể làm cho cả các file khác nữa.
Thanks