Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [Hỏi] Ẩn hiện dòng trong Excel dùng VBA [In trang]
Tác giả: mythanh76    Thời gian: 27/8/2014 14:40
Tiêu đề: [Hỏi] Ẩn hiện dòng trong Excel dùng VBA
Chào các anh trong diễn đàn.
Em làm đoạn code ẩn hiện dòng trong excel nhưng chỉ ẩn các dòng cho kết quả rổng, khi nhập dữ liệu vào thì các dòng thì các dòng tự động hiện ra, đoạn code của em chỉ tự động ẩn được các dòng, khi em nhập dữ liệu thì không hiện ra được, em phải Unhide thì mất công quá. Các anh chỉ dùm em với, em mới tập làm VBA nên không biết cách nào, em viết code như sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim firstAddress As String
    With Range("C4:C23")
        Set c = .Find(What:=" ", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Hidden = True
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End Sub an hien dong.xls (31.5 KB, Lượt tải về: 2928)