Sử dụng AutoFilter không hỗ trợ tiếng Trung

[vinhthinhnd]

Hiện tại mình sử dụng VBA để viết câu lệnh AutoFilter. Vì dữ liệu của mình là tiếng trung nên khi mình gõ tiếng trung vào VBA không nhận.
Mình có copy paste dòng văn bản đó nhưng nó chỉ hiển thị dấu ??. Có cách nào để gõ được tiếng trung trong VBA chỉ giáo mình với

Đấy là dòng code trong dấy ?? mình muốn thay thành văn bản sau: 废品
ActiveSheet.Range("$A$1:$BQ$44887").AutoFilter Field:=33, Criteria1:="??"

Cảm ơn các bạn.

 

[BuiQuangThuan]

Hiện tại mình sử dụng VBA để viết câu lệnh AutoFilter. Vì dữ liệu của mình là tiếng trung nên khi mình gõ tiếng trung vào VBA không nhận.
Mình có copy paste dòng văn bản đó nhưng nó chỉ hiển thị dấu ??. Có cách nào để gõ được tiếng trung trong VBA chỉ giáo mình với

Đấy là dòng code trong dấy ?? mình muốn thay thành văn bản sau: 废品
ActiveSheet.Range("$A$1:$BQ$44887").AutoFilter Field:=33, Criteria1:="??"

Cảm ơn các bạn.

Gõ ô đó xuống sheet. gán biến cho cái ô đó. xong điều kiện theo biến xem

 

[Phuocam]

Thử

ActiveSheet.Range("$A$1:$BQ$44887").AutoFilter Field:=33, Criteria1:= ChrW(24223) & ChrW(21697)

.

 

[SA_DQ]

Gõ ô đó xuống sheet. gán biến cho cái ô đó. xong điều kiện theo biến xem

Cũng có thể gán cho ô í 1 Name & thích gọi lúc nào thì gọi.

 

[vinhthinhnd]

Mình sẽ làm theo các cách của các bạn. Cảm ơn các bạn rất nhiều