Xin code thay đổi font chữ tiếng Nhật.

[nhthang277]

Mình có đoạn văn bản song ngữ Nhật Việt, tuy nhiên chỉ muốn thay đổi font chữ tiếng Nhật hàng loạt, không thay đổi font tiếng Việt. Nhờ mọi người giúp mình với, thanks!

 

[Hoàng Tuấn 868]

Dạ, em check thì đa số là kiểu chữ cứng katakana nên em liệt kê tất cả chữ cứng katakana với âm ghép biến âm của nó ở sheet 2 nhé.

Nhưng em kiểm tra thủ công kiểu này sẽ dễ bị sót, vì ngoài trang này còn nhiều trang khác, để anh nghiên cứu thêm vậy. (Lưu ý không chêm tiếng tây vào bài viết khi có thể dùng tiếng Việt, ví dụ: "check").

 

[Phuongmai.2e]

Nhưng em kiểm tra thủ công kiểu này sẽ dễ bị sót, vì ngoài trang này còn nhiều trang khác, để anh nghiên cứu thêm vậy. (Lưu ý không chêm tiếng tây vào bài viết khi có thể dùng tiếng Việt, ví dụ: "check").

Dạ vâng ạ. Em sẽ lưu ý ạ. Do em quen thi thoảng dùng như vậy. Có gì anh nghiên cứu giúp em nhé

Em kiểm tra lại thêm có những mục này chữ tiếng Việt cũng bị đổi thành MS Pgothic ạ

 

[Hoàng Tuấn 868]

Dạ vâng ạ. Em sẽ lưu ý ạ. Do em quen thi thoảng dùng như vậy. Có gì anh nghiên cứu giúp em nhé

Em kiểm tra lại thêm có những mục này chữ tiếng Việt cũng bị đổi thành MS Pgothic ạ
View attachment 289439

Vì thế nên anh đang xem có cách nào triệt để nhất có thể, tuyệt đối thì không dám chắc nhưng giảm thiểu chút nào hay chút đó thôi.

 

[Phuongmai.2e]

Vì thế nên anh đang xem có cách nào triệt để nhất có thể, tuyệt đối thì không dám chắc nhưng giảm thiểu chút nào hay chút đó thôi.

Dạ vâng, được ít nào hay ít đó ạ

 

[Hoàng Tuấn 868]

Dạ vâng, được ít nào hay ít đó ạ

1/ Flie này một lần chạy bạn đổi font cho tất cả các file được chọn.
2/ Bạn kiểm tra lại nhé, mình đã áp thêm mã các ký tự bạn thống kê vào rồi mà vẫn còn sót chưa hết hẳn được. Mình không kiếm được bảng mã đầy đủ ký tự tiếng Nhật nên chưa làm được gì hơn.

 

[Phuongmai.2e]

1/ Flie này một lần chạy bạn đổi font cho tất cả các file được chọn.
2/ Bạn kiểm tra lại nhé, mình đã áp thêm mã các ký tự bạn thống kê vào rồi mà vẫn còn sót chưa hết hẳn được. Mình không kiếm được bảng mã đầy đủ ký tự tiếng Nhật nên chưa làm được gì hơn.

Dạ, em cảm ơn anh nhé. Em có thử vào soát lại nhiều lần thì hiện tại tìm thấy cái từ này không đổi sang font được ạ. Trong quá trình sử dụng nếu thấy các âm khác thì em gửi anh thêm sau để anh sửa lại được không?

 

[Hoàng Tuấn 868]

Dạ, em cảm ơn anh nhé. Em có thử vào soát lại nhiều lần thì hiện tại tìm thấy cái từ này không đổi sang font được ạ. Trong quá trình sử dụng nếu thấy các âm khác thì em gửi anh thêm sau để anh sửa lại được không?

File bạn vừa gửi là 2 ký tự hay 3 tự, vì mình thấy ngoài ký tự đầu tiên trông giống dấu trừ "-", còn có 2 ký tự ở hai ô sau trông giống nhau, không biết có phải 2 ô sau là một vậy không?

 

[Phuongmai.2e]

File bạn vừa gửi là 2 ký tự hay 3 tự, vì mình thấy ngoài ký tự đầu tiên trông giống dấu trừ "-", còn có 2 ký tự ở hai ô sau trông giống nhau, không biết có phải 2 ô sau là một vậy không?

Dạ, em xin lỗi ạ. Em copy nhầm. File dưới đây sheet 1 là bảng chữ cứng trong tiếng Nhật. Sheet 2 là 3 kí tự em tìm được chưa được đổi font ạ.

 

[Hoàng Tuấn 868]

Dạ, em xin lỗi ạ. Em copy nhầm. File dưới đây sheet 1 là bảng chữ cứng trong tiếng Nhật. Sheet 2 là 3 kí tự em tìm được chưa được đổi font ạ.

Để anh kiểm tra 3 chữ đấy sau, nhưng nhìn chữ Nhật anh hoa cả mắt, thấy giống nhau tuốt cả lượt.

 

[Phuongmai.2e]

Để anh kiểm tra 3 chữ đấy sau, nhưng nhìn chữ Nhật anh hoa cả mắt, thấy giống nhau tuốt cả lượt.

hi, lúc đầu em cũng thấy vậy đó ạ. Nó nhiều kí tự thật sự.
À có một điều: Ở file này, Những từ mà được khoanh tròn đỏ:
Khi nó ở sheet 1, nó không được đổi font nhưng khi em chuyển nó sang sheet 2 đổi font được

 

[cantl]

Dạ vâng ạ. Nhưng anh ơi, em vừa check lại ý, có một số lỗi bị sai vẫn không đổi sang font chữ MS Pgothic ạ

Tớ sửa cái này có vẻ được.

If Abs(AscW(kt)) > 255 Then ------------> If AscW(kt) > 8000 Or AscW(kt) < 0 Then

Cái này thì nhiều file quá nên tớ phải sửa chút
Set sh = ThisWorkbook.Sheets(1) ------------> Set sh = ThisWorkbook.ActiveSheet

Nhưng bạn có thể giải thích cho tớ hiểu bằng cách nào bạn có thể phân biệt được font nhanh thế. Khi mà tớ nhìn thì không thấy khác nhau nhiều, và nhiều chữ thế mà bạn có thể tìm chính xác vị trí chưa được chuyển thì hơi bị siêu đấy.

 

[Phuongmai.2e]

Tớ sửa cái này có vẻ được.

If Abs(AscW(kt)) > 255 Then ------------> If AscW(kt) > 8000 Or AscW(kt) < 0 Then

Cái này thì nhiều file quá nên tớ phải sửa chút
Set sh = ThisWorkbook.Sheets(1) ------------> Set sh = ThisWorkbook.ActiveSheet

Nhưng bạn có thể giải thích cho tớ hiểu bằng cách nào bạn có thể phân biệt được font nhanh thế. Khi mà tớ nhìn thì không thấy khác nhau nhiều, và nhiều chữ thế mà bạn có thể tìm chính xác vị trí chưa được chuyển thì hơi bị siêu đấy.

Code trên bạn chạy cho file đổi được toàn bộ font chữ tiếng Nhật rồi phải không ạ?
Tớ dùng ctrl F tìm kiếm tất cả ô dữ liệu có chứa dạng font Times rồi dò các chữ đó.

Bài đã được tự động gộp: 27/4/23

Tớ sửa cái này có vẻ được.

If Abs(AscW(kt)) > 255 Then ------------> If AscW(kt) > 8000 Or AscW(kt) < 0 Then

Cái này thì nhiều file quá nên tớ phải sửa chút
Set sh = ThisWorkbook.Sheets(1) ------------> Set sh = ThisWorkbook.ActiveSheet

Nhưng bạn có thể giải thích cho tớ hiểu bằng cách nào bạn có thể phân biệt được font nhanh thế. Khi mà tớ nhìn thì không thấy khác nhau nhiều, và nhiều chữ thế mà bạn có thể tìm chính xác vị trí chưa được chuyển thì hơi bị siêu đấy.

Tại sao chuyển dang dòng code trên lại được nhỉ? C có thể giải thích cho tớ hiểu thêm chút không?

 

[cantl]

Code trên bạn chạy cho file đổi được toàn bộ font chữ tiếng Nhật rồi phải không ạ?
Tớ dùng ctrl F tìm kiếm tất cả ô dữ liệu có chứa dạng font Times rồi dò các chữ đó.

Tớ chỉ nghịch code thôi, đúng hay không phải thử mới biết được.
Tớ thử đi thử lại thì nó được, còn hiểu thì hiểu sơ sơ là code tiếng Nhật nó <0, >8000 là ra ngoài phạm vi tiếng Việt thôi. Hôm nọ mới nghịch 8000 này xong nên nhớ.

 

[Hoàng Tuấn 868]

hi, lúc đầu em cũng thấy vậy đó ạ. Nó nhiều kí tự thật sự.
À có một điều: Ở file này, Những từ mà được khoanh tròn đỏ:
Khi nó ở sheet 1, nó không được đổi font nhưng khi em chuyển nó sang sheet 2 đổi font được

Bạn kiểm tra lại nhé, mình đã bổ sung mấy ký tự mới bạn đưa và chỉnh thêm phần sheet này được mà sheet kia không được.

 

[cantl]

109, 127, 144, 147

Mấy mã này thì font Times cũng được mà. Chỉ <0 hoặc >8000 mới đổi font.

 

[Hoàng Tuấn 868]

Mấy mã này thì font Times cũng được mà. Chỉ <0 hoặc >8000 mới đổi font.

Vì thế nên mới sót, đó là ký tự tiếng Nhật bạn ơi. Bạn tìm mã kiểu đó chưa đúng.

ﾓｰ ﾁｭ ｰ

 

[cantl]

Vì thế nên mới sót, đó là ký tự tiếng Nhật bạn ơi. Bạn tìm mã kiểu đó chưa đúng.

ﾓｰ ﾁｭ ｰ

Toàn bộ là số âm mà.

Function AscW2(odon As Range) As String
AscW2 = AscW(odon)
End Function

 

[Hoàng Tuấn 868]

Toàn bộ là số âm mà.

Function AscW2(odon As Range) As String
AscW2 = AscW(odon)
End Function

Không ảnh hưởng, nó vẫn nhận và đổi font là đạt yêu cầu đề ra rồi.

 

[Hoàng Tuấn 868]

hi, lúc đầu em cũng thấy vậy đó ạ. Nó nhiều kí tự thật sự.
À có một điều: Ở file này, Những từ mà được khoanh tròn đỏ:
Khi nó ở sheet 1, nó không được đổi font nhưng khi em chuyển nó sang sheet 2 đổi font được

Không biết bạn đã chạy thử lại file bài #74 chưa mà không thấy phản hồi nhỉ?

 

[Phuongmai.2e]

Bạn kiểm tra lại nhé, mình đã bổ sung mấy ký tự mới bạn đưa và chỉnh thêm phần sheet này được mà sheet kia không được.

Theo tớ thấy mấy ký tự bạn trên đây đưa thì có mã như sau: 109, 127, 144, 1

Bạn kiểm tra lại nhé, mình đã bổ sung mấy ký tự mới bạn đưa và chỉnh thêm phần sheet này được mà sheet kia không được.

Theo tớ thấy mấy ký tự bạn trên đây đưa thì có mã như sau: 109, 127, 144, 147.

Em vừa chạy thử thấy được rồi ạ. Em cảm ơn anh nhiều nhé. Trong quá trình dùng nếu có thấy lỗi nhờ anh sửa thêm nha

Bài đã được tự động gộp: 29/4/23

Không biết bạn đã chạy thử lại file bài #74 chưa mà không thấy phản hồi lại

Không biết bạn đã chạy thử lại file bài #74 chưa mà không thấy phản hồi lại nhỉ?

Không biết bạn đã chạy thử lại file bài #74 chưa mà không thấy phản hồi lại nhỉ?

Em vừa chạy thử thấy được rồi ạ. Em cảm ơn anh nhiều nhé. Trong quá trình dùng nếu có thấy lỗi nhờ anh sửa thêm nha