Tự động ẩn dòng theo giá trị nhập dữ liệu cell (1 người xem)

[whisl223]

Chào mọi người.
Hiện mình đang đau đầu không biết viết code như nào để làm được thao tác như trong file đính kèm.
Ví dụ :
Nhập giá trị ô là 1 => ẩn dòng từ 10-14
Khi nhập giá trị ô là 2 => hiện dòng từ 10-14 (do nhập giá trị 1 ban đầu) và ẩn dòng từ 15-20

Cám ơn mọi người nhiều.

 

[giaiphap]

Bạn xem đúng ý chưa? nhớ Enable Macro trước khi mở file.

 

[quanluu]

Chào mọi người.
Hiện mình đang đau đầu không biết viết code như nào để làm được thao tác như trong file đính kèm.
Ví dụ :
Nhập giá trị ô là 1 => ẩn dòng từ 10-14
Khi nhập giá trị ô là 2 => hiện dòng từ 10-14 (do nhập giá trị 1 ban đầu) và ẩn dòng từ 15-20

Cám ơn mọi người nhiều.

Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then
If Cells(1, 4) = 1 Then
Rows("14:31").EntireRow.Hidden = True
ElseIf Cells(1, 4) = 2 Then
Rows("14:31").EntireRow.Hidden = False
Rows("14:22").EntireRow.Hidden = True
Else
Rows("14:31").EntireRow.Hidden = False
End If
End If
End Sub

 

[whisl223]

Bạn xem đúng ý chưa? nhớ Enable Macro trước khi mở file.

Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then
If Cells(1, 4) = 1 Then
Rows("14:31").EntireRow.Hidden = True
ElseIf Cells(1, 4) = 2 Then
Rows("14:31").EntireRow.Hidden = False
Rows("14:22").EntireRow.Hidden = True
Else
Rows("14:31").EntireRow.Hidden = False
End If
End If
End Sub

Cám ơn hai bạn rất nhiều. Mình đã thực hiện được dưới sự hướng dẫn trên.
Chân thành cảm ơn hai bạn.