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!

 

[ptm0412]

Giúp xong rồi đó, thấy chưa?

 

[nhthang277]

Giúp xong rồi đó, thấy chưa?

Dạ, em vẫn không thấy gì ạ!

 

[befaint]

Giúp xong rồi đó, thấy chưa?

"Cảm ơn anh.
Đã xong, close topic!".

 

[ptm0412]

Dạ, em vẫn không thấy gì ạ!

Tại bài 1 không có gì làm sao giúp bạn?

 

[nhthang277]

Tại bài 1 không có gì làm sao giúp bạn?

Em xin lỗi do thông tin không rõ ràng, em đính kèm file, mong được anh chị hỗ trợ giúp!

 

[ptm0412]

Theo như trong file thì chẳng có ô nào vừa Anh vừa Việt. Chọn ô tiếng Nhật rồi đổi font thôi

 

[VetMini]

Theo như trong file thì chẳng có ô nào vừa Anh vừa Việt. Chọn ô tiếng Nhật rồi đổi font thôi

Chọn nhiều lắm. Làm hết "mấy chục ngàn ô" chắc "em gãy tay mất".
Anh code giùm, em chỉ việc tải về "bấm một phát".

 

[thnghiachau]

Chọn nhiều lắm. Làm hết "mấy chục ngàn ô" chắc "em gãy tay mất".
Anh code giùm, em chỉ việc tải về "bấm một phát".

Ctrl+A => đổi font => xong
ngộ ta.... chẳng hiểu chủ thớt muốn cái gì???

 

[ptm0412]

Ctrl+A => đổi font => xong
ngộ ta.... chẳng hiểu chủ thớt muốn cái gì???

Người ấy chỉ muốn đổi font cho chữ tiếng Nhật, chữ tiếng Việt không đổi

 

[thnghiachau]

Người ấy chỉ muốn đổi font cho chữ tiếng Nhật, chữ tiếng Việt không đổi

thế thì... theo file thì làm thế này...
Không đòi thêm nhá chủ thớ...

 

[nhthang277]

thế thì... theo file thì làm thế này...
Không đòi thêm nhá chủ thớ...

Cảm ơn anh đã hướng dẫn, tuy nhiên em muốn thêm biết là nếu trong file chữ tiếng Nhật có rất nhiều font chữ khác nhau. Vậy mình code thế nào để có thể tự động chuyển tấc cả chữ TN đó về 1 font duy nhất ạ, còn Ctr A rồi change font thì sẻ change luôn cả font tiếng Việt nên không làm được. Xin cảm ơn, mong mọi người đừng close topic của em lúc này!

 

[batman1]

Tôi không biết tiếng Nhật có những ký tự nào. Tôi làm bừa trên cơ sở dữ liệu trong tập tin đính kèm.

Chạy sub test. Nếu không được thì thôi, tôi dừng ở đây.

Sub FontJA(ByVal rng As Range, ByVal fontname As String)
Dim k As Long, s As String, cell_ As Range, ma As String
    For Each cell_ In rng
        s = cell_.Value
        For k = 1 To Len(s)
            ma = Hex$(AscW(Mid(s, k, 1)))
            If Len(ma) < 4 Then ma = String(4 - Len(ma), "0") & ma
            If ma > "201D" Then
                cell_.Font.Name = fontname
                Exit For
            End If
        Next k
    Next cell_
End Sub

Sub test()
Dim lastRow As Long
    lastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    If lastRow > 1 Then FontJA Sheet1.Range("A2:A" & lastRow), "Times New Roman"
End Sub

 

[Phuongmai.2e]

Tôi không biết tiếng Nhật có những ký tự nào. Tôi làm bừa trên cơ sở dữ liệu trong tập tin đính kèm.

Chạy sub test. Nếu không được thì thôi, tôi dừng ở đây.

Sub FontJA(ByVal rng As Range, ByVal fontname As String)
Dim k As Long, s As String, cell_ As Range, ma As String
    For Each cell_ In rng
        s = cell_.Value
        For k = 1 To Len(s)
            ma = Hex$(AscW(Mid(s, k, 1)))
            If Len(ma) < 4 Then ma = String(4 - Len(ma), "0") & ma
            If ma > "201D" Then
                cell_.Font.Name = fontname
                Exit For
            End If
        Next k
    Next cell_
End Sub

Sub test()
Dim lastRow As Long
    lastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    If lastRow > 1 Then FontJA Sheet1.Range("A2:A" & lastRow), "Times New Roman"
End Sub

Em cũng có một file cần chuyển đổi toàn bộ chữ tiếng Nhật thành một font và không đổi chữ tiếng Việt nhưng mà tiếng Nhật và tiếng Việt lại cùng một ô cell thì phải làm thế nào ạ? Mong anh chỉ giúp ạ

 

[Hoàng Tuấn 868]

nhưng mà tiếng Nhật và tiếng Việt lại cùng một ô cell thì phải làm thế nào ạ?

Mình tách hộ bạn, tiếng Việt một ô, tiếng Nhật một ô, bạn làm nốt nhé.

 

[Phuongmai.2e]

Mình tách hộ bạn, tiếng Việt một ô, tiếng Nhật một ô, bạn làm nốt nhé.

Em cảm ơn anh ạ, nhưng file gốc của em là tiếng Việt và tiếng Nhật cùng một ô, không được tách riêng ý . Nếu mà chung một ô như vậy thì có cách nào để tìm kiếm tất cả chữ tiếng Nhật để đổi về font chữ tiếng Nhật riêng không ạ?

 

[Hoàng Tuấn 868]

Em cảm ơn anh ạ, nhưng file gốc của em là tiếng Việt và tiếng Nhật cùng một ô, không được tách riêng ý . Nếu mà chung một ô như vậy thì có cách nào để tìm kiếm tất cả chữ tiếng Nhật để đổi về font chữ tiếng Nhật riêng không ạ?

Bạn đổi xong lại ghép vào thôi.

 

[Phuongmai.2e]

Bạn đổi xong lại ghép vào thôi.

Nhưng mà như thế sẽ rất lâu mà em làm nhiều file, mỗi file 3 trang. Mỗi trang gồm nhiều ô như vậy. Liệu có code hay có cách nào có thể giải quyết vấn đề đó không ạ?

 

[Hoàng Tuấn 868]

Nhưng mà như thế sẽ rất lâu mà em làm nhiều file, mỗi file 3 trang. Mỗi trang gồm nhiều ô như vậy. Liệu có code hay có cách nào có thể giải quyết vấn đề đó không ạ?

Tách và ghép bằng code thì mình có thể giúp bạn được, có điều mình không biết tí gì về tiếng Nhật để đổi font cả.

 

[Phuongmai.2e]

Tách và ghép bằng code thì mình có thể giúp bạn được, có điều mình không biết tí gì về tiếng Nhật để đổi font cả.

Em chỉ cần chọn được tất cả chữ tiếng Nhật đổi font về MS Pgothic là được ạ. Còn chữ tiếng Việt thì để toàn bộ là font Times New Roman ạ

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

Tách và ghép bằng code thì mình có thể giúp bạn được, có điều mình không biết tí gì về tiếng Nhật để đổi font cả.

Cái này không quan trọng phần biết tiếng Nhật đâu ạ. Vì mục tiêu là chỉ cần là chọn tất cả tiếng Nhật trong 1 sheet excel đổi về font chữ MS Pgothic