Ẩn dòng ở sheet 1 thì sheet 2 hoặc 3 cũng ẩn theo (1 người xem)

[SirChung87]

Nhờ mọi người trong diễn đàn giúp đỡ ạ

 

[haonlh]

Code sau sẽ ẩn hàng chứa ô hoạt động của Sheets hoạt động, và mọi sheet khác, dù bạn ở Sheet nào cũng được

Sub AnHangCuaMoiSheet()
' Keyboard Shortcut: Ctrl+q
Dim iH&, i&
iH = ActiveCell.Row
For i = 1 To Sheets.Count
Sheets(i).Rows(iH).EntireRow.Hidden = 1
Next
End Sub

Có file đính kèm

 

[SirChung87]

Bạn haonlh ơi! Mình hỏi bạn hoi khó 1 tý. Bầy giờ của mình có nhiều sheet 10 sheet chẳng hạn, Mình chỉ muốn ẩn dòng ở 1 số shets thôi chẳng hạn. Ban giúp mình được không nhé

 

[SirChung87]

Bài này mình đã làm được rồi nhé. Cám ơn mọi người đã đọc
Dùng lẹnh For trong vba kết hợp với if
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Range("C24") = 1 Then
Sheets(i).Protect UserInterfaceOnly:=True
Sheets(i).Rows("24:24").EntireRow.Hidden = True
Sheets(i).Rows("25:25").RowHeight = 8
ElseIf Sheets(i).Range("C24") = 2 Then
Sheets(i).Protect UserInterfaceOnly:=True
Sheets(i).Rows("24:24").EntireRow.Hidden = False
Sheets(i).Rows("25:25").RowHeight = 4
End If


Post để mọi người tham khảo nhe

 

[haonlh]

Bạn haonlh ơi! Mình hỏi bạn hoi khó 1 tý. Bầy giờ của mình có nhiều sheet 10 sheet chẳng hạn, Mình chỉ muốn ẩn dòng ở 1 số shets thôi chẳng hạn. Ban giúp mình được không nhé

Câu hỏi không nêu điều kiện để ẩn hàng. Nhưng code của bài tiếp theo thì bạn cho điều kiện: Nếu vẫn ẩn mọi sheet. Và chỉ ẩn hàng 24 nếu ô C24 = 1 hoặc 2.

Ý mình muốn nói trong câu hỏi bài 3, bạn cần chỉ rõ cái văn bản màu đỏ ở trên. Tức là ẩn dòng ở Sheet có điều kiện gì