Sửa giúp code ẩn dòng trống theo điều kiện (1 người xem)

[thonggtcc]

Mình đã search trên diễn đàn đề tài tương tự nhưng không đáp ứng điều kiện.
Yêu cầu đặt ra là:
1. Ẩn các dòng trống không có dữ liệu thoả điều kiện tại Cột A và Cột L.
2. Ẩn các dòng trống không có dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH và dòng trống không có dữ liệu tại CỘT L.
Mình đã tạo 1 macro và đưa thử điều kiện and vào cho điều kiện 1 nhưng không thực hiện được. Vậy mong các cao thủ trên diễn đàn chỉ giúp được không ạ.
File đính kèm

 

[phulien1902]

Mình đã search trên diễn đàn đề tài tương tự nhưng không đáp ứng điều kiện.
Yêu cầu đặt ra là:
1. Ẩn các dòng trống không có dữ liệu thoả điều kiện tại Cột A và Cột L.
2. Ẩn các dòng trống không có dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH và dòng trống không có dữ liệu tại CỘT L.
Mình đã tạo 1 macro và đưa thử điều kiện and vào cho điều kiện 1 nhưng không thực hiện được. Vậy mong các cao thủ trên diễn đàn chỉ giúp được không ạ.
File đính kèm

Tôi không thấy Code của bạn.
Bạn tham khảo Code dưới đây cho yêu cầu 1 của bạn nhé:

Sub thonggtcc()
    Dim i As Long
    For i = Range("A" & Rows.Count).End(3).Row To 7 Step -1
        If Cells(i, "A") = "" And Cells(i, "L") = "" Then Rows(i).Hidden = True
    Next i
End Sub

 

[ngocnv_hn88]

Mình đã search trên diễn đàn đề tài tương tự nhưng không đáp ứng điều kiện.
Yêu cầu đặt ra là:
1. Ẩn các dòng trống không có dữ liệu thoả điều kiện tại Cột A và Cột L.
2. Ẩn các dòng trống không có dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH và dòng trống không có dữ liệu tại CỘT L.
Mình đã tạo 1 macro và đưa thử điều kiện and vào cho điều kiện 1 nhưng không thực hiện được. Vậy mong các cao thủ trên diễn đàn chỉ giúp được không ạ.
File đính kèm

Không biết có đúng ý bạn không, nhưng mình đã làm thử trên file bạn gửi rồi nhé
Sub vidu()
Dim i As Integer, sd As Integer


'''''kiem tra so dong cua du lieu'''''''
ActiveSheet.Select
sd = 5
For i = 6 To 500 ''''500 la minh mac dinh thoi nhe'''''
If Cells(i, 2) <> "" Then
sd = sd + 1
End If
Next i


For i = 6 To sd
If Cells(i, 1) = "" And Cells(i, 12) = "" Then
Rows(i).EntireRow.Hidden = True
End If
Next i


MsgBox "Complete!"
End Sub

 

[thonggtcc]

1. Với code của anh phulien1902 thì em không hiểu: code vẫn chạy bình thường nhưng chỉ ẩn đến dòng 16, các dòng sau không có tác dụng.
2. Với code của anh ngocnv_hn88 thì chạy rất tốt, rất đúng ý đồ của em.
Rất cảm ơn sự nhiệt tình của 2 anh.
Còn đối với ý số 2 nhờ các anh giúp code luôn với.


http://www.giaiphapexcel.com/forum/member.php?856827-phulien1902

 

[doveandrose]

dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH là cái gì ????

 

[thonggtcc]

dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH tức là khi cell thứ n là đang hiện hành thì chỉ xét trường hợp dữ liệu trống liên tục tại cột A xung quanh cell hiện hành này thôi ạ (có kèm theo điều kiện dữ liệu cột L như trên nữa).

 

[phulien1902]

1. Với code của anh phulien1902 thì em không hiểu: code vẫn chạy bình thường nhưng chỉ ẩn đến dòng 16, các dòng sau không có tác dụng.
2. Với code của anh ngocnv_hn88 thì chạy rất tốt, rất đúng ý đồ của em.
Rất cảm ơn sự nhiệt tình của 2 anh.
Còn đối với ý số 2 nhờ các anh giúp code luôn với.

Bạn xem có ẩn hết không nhé, mình sửa lại 1 tý

Sub thonggtcc()
    Dim i As Long
    For i = Range("C" & Rows.Count).End(3).Row To 7 Step -1
        If Cells(i, "A") = "" And Cells(i, "L") = "" Then Rows(i).Hidden = True
    Next i
End Sub

 

[doveandrose]

rồi lại có thêm từ mới nữa :
thế nào là xung quanh cell hiện hành này

 

[ngocnv_hn88]

rồi lại có thêm từ mới nữa :
thế nào là xung quanh cell hiện hành này

Thật ra mình cũng ko hiểu ý bạn ý lắm, nhưng xem qua file đính kèm thì cũng hiểu đôi chút, may mà đúng ý bạn ấy!

 

[thonggtcc]

Bạn xem có ẩn hết không nhé, mình sửa lại 1 tý

Sub thonggtcc()
    Dim i As Long
    For i = Range("C" & Rows.Count).End(3).Row To 7 Step -1
        If Cells(i, "A") = "" And Cells(i, "L") = "" Then Rows(i).Hidden = True
    Next i
End Sub

Ồ, rất đúng ý mình rồi. Code làm việc rất tốt.

"rồi lại có thêm từ mới nữa :
thế nào là xung quanh cell hiện hành này"
Mình diễn tả không được tốt, xin bạn doveandrose xem file đính kèm

 

[doveandrose]

Ồ, rất đúng ý mình rồi. Code làm việc rất tốt.

"rồi lại có thêm từ mới nữa :
thế nào là xung quanh cell hiện hành này"
Mình diễn tả không được tốt, xin bạn doveandrose xem file đính kèm

có nghĩa là mấy dòng tô màu xanh dương là ẩn hết mà không cần biết cột L có dữ liệu hay không đúng không ?

 

[doveandrose]

dữ liệu LIÊN TỤC CỦA CỘT A KHI CON TRỎ HIỆN HÀNH tức là khi cell thứ n là đang hiện hành thì chỉ xét trường hợp dữ liệu trống liên tục tại cột A xung quanh cell hiện hành này thôi ạ (có kèm theo điều kiện dữ liệu cột L như trên nữa).

câu 1

Public Sub hello1()
Sheet1.[AO2].Value = "=OR(A6<>"""",L6<>"""")"
Sheet1.Range("A5:M10000").AdvancedFilter xlFilterInPlace, Sheet1.[AO1:AO2]
Sheet1.[AO2].ClearContents
End Sub

câu 2

chỉ xét trường hợp dữ liệu trống liên tục tại cột A xung quanh cell hiện hành này thôi

Public Sub hello2()
Dim rng As Range, fr As Long, lr As Long
On Error Resume Next
Set rng = Selection
On Error GoTo 0
If rng Is Nothing Then Exit Sub
fr = rng.Row
If Sheet1.Range("A" & fr).Value = Empty Then fr = Sheet1.Range("A" & fr).End(xlUp).Row
lr = rng.Row + 1
If Sheet1.Range("A" & lr).Value = Empty Then lr = Sheet1.Range("A" & lr).End(xlDown).Row
Sheet1.[AO2].Value = "=OR(ROW(A6)<=" & fr & ",ROW(A6)>=" & lr & ",A6<>"""",L6<>"""")"
Sheet1.Range("A5:M10000").AdvancedFilter xlFilterInPlace, Sheet1.[AO1:AO2]
Sheet1.[AO2].ClearContents
End Sub

 

[thonggtcc]

câu 1

Public Sub hello1()
Sheet1.[AO2].Value = "=OR(A6<>"""",L6<>"""")"
Sheet1.Range("A5:M10000").AdvancedFilter xlFilterInPlace, Sheet1.[AO1:AO2]
Sheet1.[AO2].ClearContents
End Sub

câu 2

Public Sub hello2()
Dim rng As Range, fr As Long, lr As Long
On Error Resume Next
Set rng = Selection
On Error GoTo 0
If rng Is Nothing Then Exit Sub
fr = rng.Row
If Sheet1.Range("A" & fr).Value = Empty Then fr = Sheet1.Range("A" & fr).End(xlUp).Row
lr = rng.Row + 1
If Sheet1.Range("A" & lr).Value = Empty Then lr = Sheet1.Range("A" & lr).End(xlDown).Row
Sheet1.[AO2].Value = "=OR(ROW(A6)<=" & fr & ",ROW(A6)>=" & lr & ",A6<>"""",L6<>"""")"
Sheet1.Range("A5:M10000").AdvancedFilter xlFilterInPlace, Sheet1.[AO1:AO2]
Sheet1.[AO2].ClearContents
End Sub

Ồ, cả 2 đoạn code đều chạy rất ngon lành (đúng cả ý nữa).
Một lần nữa cảm ơn các anh chị trên diễn đàn đã giúp.
Tuy nhiên, mình còn có khúc mắc này nhưng do năng lực hạn chế nên không giải quyết được.
Đó là:
Với file dữ liệu như bài #10, yêu cầu đặt ra là:
1. Cảnh báo dữ liệu trùng tại cột B khi nhập tuyến đường mới vào (giả sử người khác thực hiện mà không biết có dữ liệu này rồi). Lưu ý: Chỉ cảnh báo trùng theo tuyến đường thôi (tức là cột A được đánh số thứ tự thì dữ liệu tại cột B mới được xem là tuyến đường: để khỏi trùng lắp trong chi tiết đó).
2. Cảnh báo dữ liệu trùng của 1 tuyến đường khi đang nhập dữ liệu mới vào.
CHi tiết xin xem file đính kèm.
Xin cảm ơn.

 

[thonggtcc]

Ồ, cả 2 đoạn code đều chạy rất ngon lành (đúng cả ý nữa).
Một lần nữa cảm ơn các anh chị trên diễn đàn đã giúp.
Tuy nhiên, mình còn có khúc mắc này nhưng do năng lực hạn chế nên không giải quyết được.
Đó là:
Với file dữ liệu như bài #10, yêu cầu đặt ra là:
1. Cảnh báo dữ liệu trùng tại cột B khi nhập tuyến đường mới vào (giả sử người khác thực hiện mà không biết có dữ liệu này rồi). Lưu ý: Chỉ cảnh báo trùng theo tuyến đường thôi (tức là cột A được đánh số thứ tự thì dữ liệu tại cột B mới được xem là tuyến đường: để khỏi trùng lắp trong chi tiết đó).
2. Cảnh báo dữ liệu trùng của 1 tuyến đường khi đang nhập dữ liệu mới vào.
CHi tiết xin xem file đính kèm.
Xin cảm ơn.

Có anh chị nào ghé ngang tranh thủ xem xét giúp tí.