Code ẩn hiện dòng

[Phamvannhan1531]

Em có file excell có dữ liệu thay đổi từ ô a2 đến a10. Xin nhờ các anh chị trên diễn đàn đoạn code ẩn hiện các dòng từ a2 đến a10 với ạ

 

[phulien1902]

Em có file excell có dữ liệu thay đổi từ ô a2 đến a10. Xin nhờ các anh chị trên diễn đàn đoạn code ẩn hiện các dòng từ a2 đến a10 với ạ

Bạn thử:

With Sheet1.Columns("A").SpecialCells(xlCellTypeFormulas, 23).EntireRow
        .Hidden = Not .Hidden
    End With

 

[Phamvannhan1531]

Bạn thử:

With Sheet1.Columns("A").SpecialCells(xlCellTypeFormulas, 23).EntireRow
        .Hidden = Not .Hidden
    End With

số 23 có ý nghĩa là gì vậy ạ

 

[phulien1902]

số 23 có ý nghĩa là gì vậy ạ

Nghĩa là các Cells chưa công thức bao gồm; Số, ký tự,...

 

[Phamvannhan1531]

số 23 có ý nghĩa là gì vậy ạ

dạ không phải rồi bác ạ... em muốn ẩn hiện từ cột a2 đến cột a10. giả sử cột từ a2 đến a5 có giá trị là a,b,c,d. từ cột a6 đến a10 có giá trị theo công thức nhưng không hiện kết quả thì ẩn các dòng từ a6 đến a10

 

[phulien1902]

dạ không phải rồi bác ạ... em muốn ẩn hiện từ cột a2 đến cột a10. giả sử cột từ a2 đến a5 có giá trị là a,b,c,d. từ cột a6 đến a10 có giá trị theo công thức nhưng không hiện kết quả thì ẩn các dòng từ a6 đến a10

Vậy bạn dùng cái này:

 Dim cll As Range
    For Each cll In Sheet1.Columns("A").SpecialCells(xlCellTypeFormulas, 23)
        If Len(cll) >= 1 Then
          cll.EntireRow.Hidden = Not cll.EntireRow.Hidden
        End If
    Next

+ Lưu ý: Không ai gọi "cột a2 đến a5"

 

[Phamvannhan1531]

Vậy bạn dùng cái này:

Dim cll As Range
    For Each cll In Sheet1.Columns("A").SpecialCells(xlCellTypeFormulas, 23)
        If Len(cll) >= 1 Then
          cll.EntireRow.Hidden = Not cll.EntireRow.Hidden
        End If
    Next

+ Lưu ý: Không ai gọi "cột a2 đến a5"

đây là mong muốn của em ạ

 

[phulien1902]

Vẫn chưa đúng ý bạn à?

 

[Phamvannhan1531]

Vẫn chưa đúng ý bạn à?

Sub nexta_Click()
Range("o6").Value = Range("o6").Value
Range("s35:s43").Select
Selection.AutoFilter
Range("s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s45").AutoFilter Field:=1, Criteria1:="1"
ActiveSheet.Range("s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub
em hỏi thêm chút với ạ. em chạy đoạn code này mà sao bão lỗi ạ. em muốn ghép vào theo dạng sau:
Range("s35:s43,s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s43,s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub

 

[phulien1902]

Sub nexta_Click()
Range("o6").Value = Range("o6").Value
Range("s35:s43").Select
Selection.AutoFilter
Range("s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s45").AutoFilter Field:=1, Criteria1:="1"
ActiveSheet.Range("s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub
em hỏi thêm chút với ạ. em chạy đoạn code này mà sao bão lỗi ạ. em muốn ghép vào theo dạng sau:
Range("s35:s43,s163:s173").Select
Selection.AutoFilter
ActiveSheet.Range("s35:s43,s163:s173").AutoFilter Field:=1, Criteria1:="1"
End Sub

Bài toán ẩn dòng của bạn đã được giải quyết xong chưa? nếu xong rồi thì đóng chủ đề này tại đây.
Bạn lập 1 topic khác để hỏi nhé.

 

[Phamvannhan1531]

Bài toán ẩn dòng của bạn đã được giải quyết xong chưa? nếu xong rồi thì đóng chủ đề này tại đây.
Bạn lập 1 topic khác để hỏi nhé.

vâng. em xin phép dừng ở đây ạ