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

Liên hệ QC

chinhtl90

Thành viên mới
Tham gia
16/6/20
Bài viết
1
Được thích
0
123.PNG
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 ạ.
 
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:

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