ẩn dòng khi thỏa mãn điều kiện (4 người xem)

[Nhattanktnn]

chào các anh chị GPE
nhờ anh chị giúp đỡ em, em có một điều kiện nếu ô a1 =0 thì ẩn dòng 2:8 . em có tìm hiểu nhưng mà mỗi tội code vba em mù tịt nên khác nội dung xíu là em không biết sửa thế nào.
anh chị giúp em và giải thích giùm em code với nhé, lỡ em muốn tùy biến còn biết.
cảm ơn anh chị

 

[le_vis]

chào các anh chị GPE
nhờ anh chị giúp đỡ em, em có một điều kiện nếu ô a1 =0 thì ẩn dòng 2:8 . em có tìm hiểu nhưng mà mỗi tội code vba em mù tịt nên khác nội dung xíu là em không biết sửa thế nào.
anh chị giúp em và giải thích giùm em code với nhé, lỡ em muốn tùy biến còn biết.
cảm ơn anh chị

Không muốn code - Có lẽ như thế này chăng
Bạn xem File đính kèm

 

[Nhattanktnn]

Không muốn code - Có lẽ như thế này chăng
Bạn xem File đính kèm

ý mình là dùng code để khi bằng 0 nó tự động ẩn luôn cơ, khác 0 nó sẽ hiện lên(giữ nguyên hiện trạng), còn filter thì mình cũng đã nghĩ ra rồi.. tại code mình ko biết, nên một phần xem code để học hỏi luôn, cảm ơn bạn

 

[bibim2014]

chào các anh chị GPE
nhờ anh chị giúp đỡ em, em có một điều kiện nếu ô a1 =0 thì ẩn dòng 2:8 . em có tìm hiểu nhưng mà mỗi tội code vba em mù tịt nên khác nội dung xíu là em không biết sửa thế nào.
anh chị giúp em và giải thích giùm em code với nhé, lỡ em muốn tùy biến còn biết.
cảm ơn anh chị

Bạn xem đúng ý chưa

 

[Nhattanktnn]

Bạn xem đúng ý chưa

đúng ý rồi bạn, nhưng mình muốn hỏi thêm chút xíu, nếu muốn cho nó auto luôn chứ ko phải click vào sharp "ẩn dòng" thì làm thế nào. vì mình từng thấy code tự động như vậy. và nếu muốn ẩn nhiều dòng (không liền kề nhau) thì sửa lại thế nào. Cảm ơn bạn

 

[bibim2014]

đúng ý rồi bạn, nhưng mình muốn hỏi thêm chút xíu, nếu muốn cho nó auto luôn chứ ko phải click vào sharp "ẩn dòng" thì làm thế nào. vì mình từng thấy code tự động như vậy. và nếu muốn ẩn nhiều dòng (không liền kề nhau) thì sửa lại thế nào. Cảm ơn bạn

Bạn xem được chưa?

 

[phulien1902]

chào các anh chị GPE
nhờ anh chị giúp đỡ em, em có một điều kiện nếu ô a1 =0 thì ẩn dòng 2:8 . em có tìm hiểu nhưng mà mỗi tội code vba em mù tịt nên khác nội dung xíu là em không biết sửa thế nào.
anh chị giúp em và giải thích giùm em code với nhé, lỡ em muốn tùy biến còn biết.
cảm ơn anh chị

Thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        If Target = "" Then
            Rows("2:8").EntireRow.Hidden = True
        Else
            Rows("2:8").EntireRow.Hidden = False
        End If
    End If
End Sub

 

[Nhattanktnn]

Bạn xem được chưa?

Vậy thì ok rồi, nhưng nếu mình làm dấu tích như file đính kèm, tích vào thì hiện, không tích thì ẩn mà dùng code như bạn đưa ra không được nhỉ

 

[ExcelQN]

được rồi bạn nhé, cảm ơn bạn nhiều. à mà sao lấy file bạn thì ok, mà mình copy code rồi dán vào module cửa sổ vba thì lại không được, mình chưa rành vba.. bạn chỉ tường tận các bước làm như thế nào khi đã có code rồi giúp mình với

Trong sheet1 còn một đoạn code cho sự kiện Change, cụ thể:

 

[phulien1902]

Vậy thì ok rồi, nhưng nếu mình làm dấu tích như file đính kèm, tích vào thì hiện, không tích thì ẩn mà dùng code như bạn đưa ra không được nhỉ

Thử:

Sub HideUnhide()
    With Sheets(1)
     If .Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
       .Rows("2:8").Hidden = False
           Else
       .Rows("2:8").Hidden = True
      End If
    End With
End Sub