Xin code hiện một dòng đã merge cells khi có dữ liệu và ẩn khi trống dữ liệu (1 người xem)

[quoccuonghd]

Nhờ các anh chị và các bạn trên diễn đàn viết giúp hộ code hiện một dòng đã merge cells khi có dữ liệu và ẩn khi trống dữ liệu.

 

[dhn46]

Bạn copy Code sau vào Sheet nơi chứa Name TCT_D2 của bạn sẽ cho ra kết quả như ý.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("TCT_D2") = "" Then
        Sheets("PYCNT").Range("B24").EntireRow.Hidden = True
    Else
        Sheets("PYCNT").Range("B24").EntireRow.Hidden = False
    End If
End Sub

 

[quoccuonghd]

Bạn copy Code sau vào Sheet nơi chứa Name TCT_D2 của bạn sẽ cho ra kết quả như ý.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("TCT_D2") = "" Then
        Sheets("PYCNT").Range("B24").EntireRow.Hidden = True
    Else
        Sheets("PYCNT").Range("B24").EntireRow.Hidden = False
    End If
End Sub

Cảm ơn bạn đã viết giúp code, mình copy Code sau vào Sheet4 (PYCNT) nhưng sao nó lại không chạy, mình gửi lại file bạn kiểm tra lại giúp mình với. Và cho mình hỏi thêm là ko đặt điều kiện được luôn là nếu dòng b24 mà trống thì ẩn và ngược lại nếu dàng b24 mà có dữ liệu thì hiện được hả bạn. vì mình muốn dùng code này cho nhiều file văn bản khác nó cũng hay bị các trường hợp muốn ẩn hiện như file này. Và trường hợp code nữa là muốn ẩn hiện thêm một số dòng cách quãng nữa có được không. VD file đính kèm muốn ẩn hiện tự động dòng B10 và B24 chẳng hạn.

 

[dhn46]

Như tôi đã nói ở bài #2, bạn phải:

Bạn copy Code sau vào Sheet nơi chứa Name TCT_D2

Tôi cũng tìm nơi chứa name TCT_D2 của bạn nhưng không thấy. Ví dụ Name TCT_D2 của bạn là địa chỉ D24 tại sheet PYCNT thì bạn copy code vào sheet PYCNT nếu không thì là sheet khác bạn ah

Các ô khác ẩn đi là ô nào? Điều kiện là như thế nào thì tùy theo File bạn ah, nhưng nếu bạn quan sát cách viết Code thì bạn chú ý một vài điểm sau để edit nhé

1/

Range("TCT_D2") = ""

2/ Các ô sẽ ẩn sẽ có code dạng

Sheets("PYCNT").Range("B24").EntireRow.Hidden = True

3/ làm hiện các ô

Sheets("PYCNT").Range("B24").EntireRow.Hidden = False

Do lập trình cần sự chính xác về địa chỉ, biểu mẫu, điều kiện nên bạn tìm hiểu thêm để áp dụng thực tế cho file của bạn nhé.