[Hỏi đáp] Code Tự động ẩn dòng khi giá trị rỗng và hiện dòng khi có giá trị (1 người xem)

[chinhtl90]

Mình dùng Spin để đổ dữ liệu từ sheet khác sang bảng nội dung nghiệm thu, nhưng mình muốn tự động ẩn dòng 76-81 khi không có giá trị và hiện lên khi có giá trị thì làm thế nào ạ.

 

[thanhphongtslocphat]

BẠN DÙNG CODE NÀY THỬ XEM
- Code Ẩn
Sub hidden()
Dim R As Range, CHK As Boolean
For Each R In Sheet1.Range("B76:B81")
CHK = False
If VarType(R.Value) = vbError Then
CHK = True
Else
If R.Value = “” Then CHK = True
End If
R.EntireRow.hidden = CHK
Next
Set R = Nothing
End Sub

- Code Hiện
Sub UnhiddenRows()
Sheet1.UsedRange.EntireRow.Hidden = False
End Sub


Xong bạn tạo 2 Button để gán lệnh vào

Bài đã được tự động gộp: 23/6/20

Tải file lên hoặc gởi vào thanhphongtslocphat@gmail.com