Nhờ viết code tự động ẩn dòng khi chọn lựa điều kiện của bảng câu hỏi

[kimhuynh]

Các Bro giúp mình bảng câu hỏi nhé.

Mình có bảng câu hỏi, và có câu sẽ lựa chọn là Yes/No theo như List.

Nếu chon Yes thì chỉ chọn một số câu trả lời nhất định, chọn No thì sẽ chọn những câu khác. Và các câu không cần trả lời sẽ tự động ẩn đi.

Ví dụ:
Câu hỏi 1: Bạn có gia đình chưa? (Yes/No)
Câu hỏi 2: Vợ Bạn tên gì?
Câu hỏi 3: Bạn dự định khi nào lấy vợ?

Câu 1: nếu chọn Yes thì sẽ trả lời câu 2 thôi. Cả dòng của câu 3 sẽ bị tự động ẩn.
nếu chọn No thì sẽ trả lời câu 3 thôi. Cả dòng của câu 2 sẽ bị tự động ẩn.

Nhờ các bác chỉ giúp code nhé. Thanks so much

 

[sealand]

Mình định xem bạn hỏi gì nhưng bó tay vì không mở được File.

 

[viehoai]

Mình định xem bạn hỏi gì nhưng bó tay vì không mở được File.

Em mở vẫn bình thờng bác à

 

[sealand]

Mình dùng Exc 2003 thì sao mà mở

Bạn thêm 1 cột phụ E rồi đặt công thức nếu cần ẩn là 1 ngược lại là 0 (Sau đó ẩn cột này đi)
Thêm đoạn Code này vào vùng code của Sheet

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
If Not Intersect(Target, Range("C3:C18")) Is Nothing Then
Application.ScreenUpdating = False
For Each Cl In Range("E3:E18")
If Cl > 0 Then
Cl.EntireRow.Hidden = True
Else
Cl.EntireRow.Hidden = False
End If
Next
End If
End Sub

 

[kimhuynh]

Cảm ơn bạn Sealand về hướng dẫn này rất nhiều.