Giúp sửa code ẩn hàng có giá trị bằng 0

[dung1590]

NHỜ CẢ NHÀ GIÚP MÌNH TÝ, SỬ DỤNG TRONG VBA- ẨN HÀNG CÓ GIÁ TRỊ BẰNG 0, SAO BỊ LỖI- CẢM ƠN GIÚP ĐỠ NHIỀU

Sub Andong()
'Xet dong tong cong
'Neu ket qua bang 0 thi an dong
Dim i As Long
For i = 2 To 14
If Cells(2, i).Value = 0 Then
Rows(2 & ":" & 14).EntireRow.Hidden = True

End If
Next i

End Sub

 

[Ronaldinho7]

NHỜ CẢ NHÀ GIÚP MÌNH TÝ, SỬ DỤNG TRONG VBA- ẨN HÀNG CÓ GIÁ TRỊ BẰNG 0, SAO BỊ LỖI- CẢM ƠN GIÚP ĐỠ NHIỀU

Sub Andong()
'Xet dong tong cong
'Neu ket qua bang 0 thi an dong
Dim i As Long
For i = 2 To 14
If Cells(2, i).Value = 0 Then
Rows(2 & ":" & 14).EntireRow.Hidden = True

End If
Next i

End Sub

Thứ nhất là tiêu đề không được viết hoa toàn bộ (phạm quy, hình như hôm qua cũng vậy)
2 là: Cells(2,i)....-->tức là bạn đang xét chạy biến i theo côt, dòng cố định là 2
-->nó mâu thuẫn với cái kết quả bạn mong muốn là ẩn dòng.
Nếu muốn ẩn cột phải là .Entirecolumn.hidden = true

 

[AnhThu-1976]

File có đuôi .xlsx thì làm gì có code trong file

 

[Maika8008]

Vẫn còn người giải thì còn tiếp tục thôi.

Đúng là đang lỗi tiêu đề, người hỏi sửa đi đã

Chiếu theo nội quy thì tiêu đề viết hoa toàn bộ không vấn đề gì, nhưng nhìn vào cảm thấy khó chịu thôi.

 

[Maika8008]

Phần này cơ anh ơi. (Nội dung trong bài viết)

Viết như bài #1 đâu phạm quy. Chừng nào mà viết hoa hoặc viết chữ đỏ toàn bộ bài thì với bị xem là vi phạm. Ở đây còn có phần code không viết hoa.

 

[VetMini]

Phạm quy hay không do diễn đàn thôi.
Xét theo trình độ "phép lịch sự mạng (netiquette)" thì diễn đàn này chỉ xếp hạng xoàng vfa dân Việt nói chung thì xếp rất thấp.
Nhưng nếu quý vị có biết qua tâm lý học thì sẽ biết những người viết hoa như vậy là bất lịch sự và kém tôn trọng với người khác.

1. Bất lịch sự: mục đích viết hoa của họ là gây chú ý vào bài của mình. Mọi bài ở đây đêì bình đẳng theo thứ tự, các thành viên khác dưa theo thứ tự này để xem bì. Tìm cách vượt thứ tự bằng hình thức bề ngoài là thủ đoạn rẻ tiền.

2. Không tôn trọng: có lẽ quý vị không nhận ra, Nếu người hỏi muốn gây chú ý cho bài mình thì cách đứng đắn là đưa vấn đề lên cho rõ, chỉ cần khoảng 10 từ súc tích, diễn đàn có chức năng "xem phơt" qua phần đầu bài viết. Người kỹ thuật chân chính bị looi cuốn bởi cái hấp dẫn của đề tài. Nghĩ rằng bề ngoài (viết hoa) có thể lôi cuốn được người ta là xem thường trí tuệ của người ta.
Cũng như bẫy cáo, con nào ăn bẫy gà trống thiến, săc màu rực rỡ, thân hình béo mập là con cáo non.

 

[HeSanbi]

Đã tham chiếu với phương thức Rows thì không thêm EntireRow.

Bạn tham khảo thêm Hàm tự động ẩn dòng ở bài viết:

Hàm UDF Tự động ẩn dòng với một hoặc nhiều điều kiện

HÀM TỰ ĐỘNG ẨN DÒNG VỚI MỘT HOẶC NHIỀU ĐIỀU KIỆN với S_AutoHide Hướng dẫn sử dụng hàm: Hàm: =S_AutoHide(Title,Target,Cells,Conditions,OrdersRange,CreateButtonShowing) Tham số : Vị trí Tham số Kiểu Optional Diễn giải 1 Title Chuỗi Rỗng Chuỗi trả về cho Ô nhập công thức...

www.giaiphapexcel.com