Lỗi kết quả VBA khi người dùng sử dụng bộ lọc?

phamvandunghp84 · 9/8/21

Nhờ các anh chị em chỉ giúp tôi vấn đề code VBA khi sheet đang có lọc dữ liệu thì làm sao để code VBA này không bị ảnh hưởng bởi việc người dùng có lọc dữ liệu? Xin cảm ơn !
( xin chú thích rõ hơn vấn đề tôi đang gặp: code này chạy rất đúng khi người dùng không dùng bộ lọc Data->filter, nhưng khi người dùng sử dụng tới thì nó không còn chép kết quả ra đúng các ô nữa)
Sheets("Thucpham").Range("E2:H400").Value = Sheets("Thucpham").Range("I2:L400").Value

Ngày mai trời lại sáng · 9/8/21

phamvandunghp84 đã viết:
Nhờ các anh chị em chỉ giúp tôi vấn đề code VBA khi sheet đang có lọc dữ liệu thì làm sao để code VBA này không bị ảnh hưởng bởi việc người dùng có lọc dữ liệu? Xin cảm ơn !
( xin chú thích rõ hơn vấn đề tôi đang gặp: code này chạy rất đúng khi người dùng không dùng bộ lọc Data->filter, nhưng khi người dùng sử dụng tới thì nó không còn chép kết quả ra đúng các ô nữa)
Sheets("Thucpham").Range("E2:H400").Value = Sheets("Thucpham").Range("I2:L400").Value

Bạn thêm một câu lệnh bỏ lọc ở trước.

phamvandunghp84 · 10/8/21

3ii đã viết:
Bạn thêm một câu lệnh bỏ lọc ở trước.

Bạn ơi cho mình xin đoạn code để bỏ lọc
và dòng code để mở lại bộ lọc cho trên hàng trên cùng

Ngày mai trời lại sáng · 10/8/21

phamvandunghp84 đã viết:
Bạn ơi cho mình xin đoạn code để bỏ lọc
và dòng code để mở lại bộ lọc cho trên hàng trên cùng

Sheets("Thucpham"). AutoFilterMode = false

Maika8008 · 10/8/21

phamvandunghp84 đã viết:
Bạn ơi cho mình xin đoạn code để bỏ lọc
và dòng code để mở lại bộ lọc cho trên hàng trên cùng

Bạn ghi macro để biết code cũng được mà.

Hai Lúa Miền Tây · 10/8/21

phamvandunghp84 đã viết:
Nhờ các anh chị em chỉ giúp tôi vấn đề code VBA khi sheet đang có lọc dữ liệu thì làm sao để code VBA này không bị ảnh hưởng bởi việc người dùng có lọc dữ liệu? Xin cảm ơn !
( xin chú thích rõ hơn vấn đề tôi đang gặp: code này chạy rất đúng khi người dùng không dùng bộ lọc Data->filter, nhưng khi người dùng sử dụng tới thì nó không còn chép kết quả ra đúng các ô nữa)
Sheets("Thucpham").Range("E2:H400").Value = Sheets("Thucpham").Range("I2:L400").Value

Bạn thử cho dòng code sau phía trên dòng copy dữ liệu nhé.

Mã:

Sheets("Thucpham").ShowAllData

Ví dụ:

Mã:

    With Sheets("Thucpham")
        .ShowAllData
        .Range("E2:H400").Value = .Range("I2:L400").Value
    End With

qtm1987 · 10/8/21

Bạn ơi nếu dùng .ShowAllData thì hình như phải kèm theo On Error Resume Next hoặc bẫy lỗi cho trường hợp sheet chưa chọn giá trị lọc. Chứ không sẽ hiện báo lỗi đúng không?.

Hai Lúa Miền Tây · 10/8/21

qtm1987 đã viết:
Bạn ơi nếu dùng .ShowAllData thì hình như phải kèm theo On Error Resume Next hoặc bẫy lỗi cho trường hợp sheet chưa chọn giá trị lọc. Chứ không sẽ hiện báo lỗi đúng không?.

Nên hạn chế dùng cái bạn nói, bởi vì nó sẽ bỏ qua tất cả những lỗi mà ta không biết nó lỗi gì. Trường hợp này bạn nên kiểm tra xem coi nó có filter hay chưa. Nếu có thì thực hiện ShowAllData.

ptm0412 · 10/8/21

qtm1987 đã viết:
Bạn ơi nếu dùng .ShowAllData thì hình như phải kèm theo On Error Resume Next hoặc bẫy lỗi cho trường hợp sheet chưa chọn giá trị lọc. Chứ không sẽ hiện báo lỗi đúng không?.

Kiểm tra tình trạng filter:

PHP:

With Sheets("Thucpham")
        If .AutoFilterMode = True Then .ShowAllData
        .Range("E2:H400").Value = .Range("I2:L400").Value
  End With

befaint · 10/8/21

ptm0412 đã viết:
Kiểm tra tình trạng filter:

PHP:

With Sheets("Thucpham") If .AutoFilterMode = True Then .ShowAllData .Range("E2:H400").Value = .Range("I2:L400").Value End With

Anh 'test nhanh' chưa?

ptm0412 · 10/8/21

befaint đã viết:
Anh 'test nhanh' chưa?

Test nhanh rồi, nhưng test PCR lại thì sai. Thôi quay về sheet1.AutoFilterMode=False vậy

befaint · 10/8/21

ptm0412 đã viết:
Thôi quay về sheet1.AutoFilterMode=False vậy

Làm thế 'phá' mất tiêu cái Filter đã tạo rồi anh.

ptm0412 · 10/8/21

befaint đã viết:
Làm thế 'phá' mất tiêu cái Filter đã tạo rồi anh.

Kệ chứ! filter chỉ có 1 nhấn, mà là người dùng cuối, còn mình là người viết. Nhiều trường hợp người viết buộc người dùng chịu lỗi thay cho phần mềm, chứ ai mà code hết các lỗi. Chỉ lường trước lỗi và trong hướng dẫn sử dụng buộc người dùng làm đúng quy trình.

Ba Tê · 10/8/21

ptm0412 đã viết:
Kệ chứ! filter chỉ có 1 nhấn, mà là người dùng cuối, còn mình là người viết. Nhiều trường hợp người viết buộc người dùng chịu lỗi thay cho phần mềm, chứ ai mà code hết các lỗi. Chỉ lường trước lỗi và trong hướng dẫn sử dụng buộc người dùng làm đúng quy trình.

Theo tui thì cho 1 cái Msgbox "Nếu dữ liệu ở chế độ Filter, kết quả ra sai "gáng chịu!".
Đúng sai tùy người dùng.
(Tôi có nghe câu "Xấu đẹp tùy người đối diện")

befaint · 10/8/21

ptm0412 đã viết:
Kệ chứ!

Có kiểm tra được trạng thái Filter mà anh.

PHP:

If ws.FilterMode = True Then ws.ShowAllData

ptm0412 · 10/8/21

befaint đã viết:
Có kiểm tra được trạng thái Filter mà anh.

PHP:

If ws.FilterMode = True Then ws.ShowAllData

Được chứ. Nếu True thì chuyển thành False, cuối code thì trả lại True. Nhưng mà mình chẳng quan tâm việc trả lại, vì muốn filter chỉ cần nhấn 1 cái, chỉ tốn 5 giây cuộc đời.

Maika8008 · 10/8/21

phamvandunghp84 đã viết:
Nhờ các anh chị em chỉ giúp tôi vấn đề code VBA khi sheet đang có lọc dữ liệu thì làm sao để code VBA này không bị ảnh hưởng bởi việc người dùng có lọc dữ liệu? Xin cảm ơn !
( xin chú thích rõ hơn vấn đề tôi đang gặp: code này chạy rất đúng khi người dùng không dùng bộ lọc Data->filter, nhưng khi người dùng sử dụng tới thì nó không còn chép kết quả ra đúng các ô nữa)
Sheets("Thucpham").Range("E2:H400").Value = Sheets("Thucpham").Range("I2:L400").Value

Bạn dùng thử sub này. Gọi nó trước khi chạy các thao tác khác

Rich (BB code):

Sub Filter_UnFilter()

    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    Else
        Range("E2:H400").AutoFilter
    End If

End Sub

befaint · 10/8/21

ptm0412 đã viết:
Được chứ. Nếu True thì chuyển thành False, cuối code thì trả lại True. Nhưng mà mình chẳng quan tâm việc trả lại, vì muốn filter chỉ cần nhấn 1 cái, chỉ tốn 5 giây cuộc đời.

Không đúng rồi anh.

Filter có thể tạo ở 1 hoặc vài cột, toàn bộ cột của vùng dữ liệu; có thể toàn bộ dòng của vùng dữ liệu, hoặc một số dòng thôi.
Nên mình chỉ cần 'nhả' lọc, vẫn giữ nguyên cái người ta đã thiết lập. Vậy mới hay.

ptm0412 · 10/8/21

befaint đã viết:
Không đúng rồi anh.

Filter có thể tạo ở 1 hoặc vài cột, toàn bộ cột của vùng dữ liệu; có thể toàn bộ dòng của vùng dữ liệu, hoặc một số dòng thôi.
Nên mình chỉ cần 'nhả' lọc, vẫn giữ nguyên cái người ta đã thiết lập. Vậy mới hay.

Không cần "hay" để chiều ý người dùng, mình chết tiệt lắm

biboylenka1 · 10/8/21

PHP:

With Sheets("Thucpham")
    On Error Resume Next
        .ShowAllData
    On Error Goto 0
 End With

Em hay dùng như thế này vì thấy một anh nào đó trên diễn đàn từng dùng nhưng về bản chất thì chưa hiểu rõ lắm. Tiện đây cách anh giải thích cho em rõ hơn được không ạ? Em đang hiểu On Error Goto 0 là khôi phục lại như trước khi dùng On Error Resume Next. Hiểu như vậy có đúng không ạ?

Lỗi kết quả VBA khi người dùng sử dụng bộ lọc?

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên gạo cội

❆❆❆❆❆❆❆❆

Thành viên thường trực

❆❆❆❆❆❆❆❆

Bad Excel Member

|||||||||||||

Bad Excel Member

|||||||||||||

Bad Excel Member

Cạo Rồi Khỏi Gội

|||||||||||||

Bad Excel Member

Thành viên gạo cội

|||||||||||||

Bad Excel Member

Thành viên hay hỏi