Xin code thay đổi font chữ tiếng Nhật. (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

nhthang277

Thành viên mới
Tham gia
8/5/12
Bài viết
15
Được thích
0
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!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
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
 
Upvote 0
ptm0412 đã viết:
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
Nhấp chuột vào đây để mở rộng...
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".
 
Upvote 0

File đính kèm

Upvote 0
thnghiachau đã viết:
thế thì... theo file thì làm thế này...
Không đòi thêm nhá chủ thớ...
Nhấp chuột vào đây để mở rộng...
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!
 
Upvote 0
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.
Mã: 
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
 
Upvote 0
batman1 đã viết:
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.
Mã: 
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
Nhấp chuột vào đây để mở rộng...
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 ạ
 

File đính kèm

Upvote 0
Hoàng Tuấn 868 đã viết:
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é.
Nhấp chuột vào đây để mở rộng...
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 ạ?
 
Upvote 0
Phuongmai.2e đã viết:
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 ạ?
Nhấp chuột vào đây để mở rộng...
Bạn đổi xong lại ghép vào thôi.
 
Upvote 0
Phuongmai.2e đã viết:
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 ạ?
Nhấp chuột vào đây để mở rộ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ả.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
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ả.
Nhấp chuột vào đây để mở rộng...
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:

Hoàng Tuấn 868 đã viết:
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ả.
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
Phuongmai.2e đã viết:
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 ạ
Nhấp chuột vào đây để mở rộng...

Phuongmai.2e đã viết:
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:


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
Nhấp chuột vào đây để mở rộng...
Mỗi trang của bạn bao nhiêu dòng, số lượng file nhiều không bạn.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Độ rộng dòng cột không quan trọng, vậy bạn gửi khoảng 2 files để mình viết thử cho phù hợp với cấu trúc file nhé. Hy vọng là thành công.
Nhấp chuột vào đây để mở rộng...
Mai em gửi anh được không ạ? Do hiện tại file đó của em đang ở trên công ty. Còn định dạng 1 ô trong excel thì tương tự như em gửi anh phía trên đó ạ. Cứ phía trên là tiếng Việt thì phía dưới là tiếng Nhật ạ
 
Upvote 0
Phuongmai.2e đã viết:
Mai em gửi anh được không ạ? Do hiện tại file đó của em đang ở trên công ty. Còn định dạng 1 ô trong excel thì tương tự như em gửi anh phía trên đó ạ. Cứ phía trên là tiếng Việt thì phía dưới là tiếng Nhật ạ
Nhấp chuột vào đây để mở rộng...
Mai bạn gửi cũng được, chứ đưa mấy ô chơ vơ như vậy viết rồi lại phải sửa thôi, món này không thể tương tự được bạn ạ.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Mai bạn gửi cũng được, chứ đưa mấy ô chơ vơ như vậy viết rồi lại phải sửa thôi, món này không thể tương tự được bạn ạ.
Nhấp chuột vào đây để mở rộng...
À dạ vâng ạ. Vậy hiện tại nếu không dùng code thì có cách hay công thức nào để chọn tất cả tiếng Nhật để đổi font không anh?
 
Upvote 0
Phuongmai.2e đã viết:
À dạ vâng ạ. Vậy hiện tại nếu không dùng code thì có cách hay công thức nào để chọn tất cả tiếng Nhật để đổi font không anh?
Nhấp chuột vào đây để mở rộng...
Công thức ban nãy mình gửi bạn, bạn đổi font, thêm hàm & ghép hai cột lại, kéo xuống đến dòng cuối là xong, các sheets khác cũng làm như vậy thôi. Mỗi sheet làm chậm thì mất 2 phút. Còn đổi cùng một lúc thì mình chịu.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Công thức ban nãy mình gửi bạn, bạn đổi font, thêm hàm & ghép hai cột lại, kéo xuống đến dòng cuối là xong, các sheets khác cũng làm như vậy thôi. Mỗi sheet làm chậm thì mất 2 phút. Còn đổi cùng một lúc thì mình chịu.
Nhấp chuột vào đây để mở rộng...
Nếu ghép lại có cách dùng hàm gì khác không anh? Vì ghép lại như vậy em nghĩ mất thời gian tương đương với việc chọn từng chữ tiếng Nhật để đổi font ạ
 
Upvote 0
Phuongmai.2e đã viết:
Nếu ghép lại có cách dùng hàm gì khác không anh? Vì ghép lại như vậy em nghĩ mất thời gian tương đương với việc chọn từng chữ tiếng Nhật để đổi font ạ
Nhấp chuột vào đây để mở rộng...
Vậy là bạn chưa hiểu rồi, các công thức đó đặt tại dòng trên cùng, chỉ nhấp đúp chuột là đã xong hết luôn. Sang sheet khác bạn copy công thức sang, nhấp đúp một cái nữa lai xong tiếp, nếu nhanh tay thì mỗi sheet hết khoảng 1 phút.
Với khối lượng của bạn, nếu là mình mình sẽ làm tay như vậy thôi. Chẳng cần đến code làm gì.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Vậy là bạn chưa hiểu rồi, các công thức đó đặt tại dòng trên cùng, chỉ nhấp đúp chuột là đã xong hết luôn. Sang sheet khác bạn copy công thức sang, nhấp đúp một cái nữa lai xong tiếp, nếu nhanh tay thì mỗi sheet hết khoảng 1 phút.
Nhấp chuột vào đây để mở rộng...
Dạ, em hiểu phần đó ạ. Nhưng cái phần mà ghép sau khi đổi font chữ ý ạ. Vì em phải để tiếng Nhật và tiếng Việt cùng 1 ô cell tiếng Việt sẽ trên tiếng Nhật. Tất cả các ô cell trong 1 sheet đều như vậy. Nếu tách đổi font xong có cách nào ghép lại nhanh không anh?
 
Upvote 0
Phuongmai.2e đã viết:
Dạ, em hiểu phần đó ạ. Nhưng cái phần mà ghép sau khi đổi font chữ ý ạ. Vì em phải để tiếng Nhật và tiếng Việt cùng 1 ô cell tiếng Việt sẽ trên tiếng Nhật. Tất cả các ô cell trong 1 sheet đều như vậy. Nếu tách đổi font xong có cách nào ghép lại nhanh không anh?
Nhấp chuột vào đây để mở rộng...
Ban nãy mình có bảo bạn dùng hàm "&" rồi mà. Vòng to là kết quả, vòng nhỏ là hàm và "&" đó bạn
1682257878115.png
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Ban nãy mình có bảo bạn dùng hàm "&" rồi mà. Vòng to là kết quả, vòng nhỏ là hàm và "&" đó bạn
View attachment 289366
Nhấp chuột vào đây để mở rộng...
Dạ vâng ạ, do file cần làm của em điền đầy nhiều ô cell hơn ví dụ nên không rõ thao tác công thức như vậy có nhanh hơn không. Mai em lên thử xem sao có gì em phản hồi cho anh nhé. Em cảm ơn anh ạ
Bài đã được tự động gộp:

Hoàng Tuấn 868 đã viết:
Ban nãy mình có bảo bạn dùng hàm "&" rồi mà. Vòng to là kết quả, vòng nhỏ là hàm và "&" đó bạn
View attachment 289366
Nhấp chuột vào đây để mở rộng...
Anh ơi, nhưng sao anh có thể viết công thức lồng hàm nhiều nhanh như vậy ạ?
 
Lần chỉnh sửa cuối:
Upvote 0
Phuongmai.2e đã viết:
Dạ, anh có thể cho em xin facebook hay zalo không ạ? Có gì không rõ về excel em có thể hỏi anh không ?
Nhấp chuột vào đây để mở rộng...
Mình không dùng cả hai món đó, bạn xem trong file mình đính kèm có hàm tách tiếng Nhật bằng VBA, bạn dùng được vào đâu thì dùng vì công việc của bạn có liên quan đến.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Hoàng Tuấn 868 đã viết:
Mình không dùng cả hai món đó, bạn xem trong file mình đính kèm có hàm tách tiếng Nhât bằng VBA, bạn dùng được vào đâu thì dùng vì công việc của bạn có liên quan đến.
Nhấp chuột vào đây để mở rộng...
Dạ, em cảm ơn anh nhé. Có gì anh giúp em thêm phần VBA tìm kiếm tất cả chữ tiếng Nhật trong file excel và đổi font chữ của nó thành MS Pgothic thì càng tốt ạ.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Mình sẽ nghiên cứu, hy vọng là ổn cả.
Nhấp chuột vào đây để mở rộng...
Dạ, có gì anh nghiên cứu giúp em nhé
Bài đã được tự động gộp:

Phuongmai.2e đã viết:
Dạ, có gì anh nghiên cứu giúp em nhé
Nhấp chuột vào đây để mở rộng...
Hoàng Tuấn 868 đã viết:
Mình sẽ nghiên cứu, hy vọng là ổn cả.
Nhấp chuột vào đây để mở rộng...
Hoặc là định dạng font chữ của một ô giống nhiều ô nhưng không định dạng ô. Chỉ định dạng font: tiếng Nhật là font MS Pgothic, còn tiếng Việt là Times New Roman ạ
 
Upvote 0
Phuongmai.2e đã viết:
Hehhe, gần đúng rùi ạ. Trước em làm sale chẳng dùng gì excel nâng cao mấy. Giờ đi làm công ty dùng nhiều quá trời mà nhiều cái em không rõ. Em tìm cả buổi mãi không ra may ra web này.
Nhấp chuột vào đây để mở rộng...
Nếu có thời gian thì vào xem chỗ này, mỗi ngày một ít sau sẽ đỡ vất vả.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Cứ xem và thực hành, vướng đâu đưa lên hỏi các thành viên trên diễn đàn đến đấy, chẳng mấy mà làm được thôi.
Nhấp chuột vào đây để mở rộng...
Dạ vâng ạ, à anh ơi, có cách nào chỉnh 1 lần được tất cả các ô có kích thước khác nhau nhưng vừa với chữ vừa luôn 1 trang và không bị nhảy như thế này không ạ? Hiện tại em chỉ biết cách ctrl A tất cả và click đúp để vừa ô, nhưng nhiều ô chữ nó không hết ô.1682264003739.png
 
Upvote 0
Phuongmai.2e đã viết:
Dạ vâng ạ, à anh ơi, có cách nào chỉnh 1 lần được tất cả các ô có kích thước khác nhau nhưng vừa với chữ vừa luôn 1 trang và không bị nhảy như thế này không ạ? Hiện tại em chỉ biết cách ctrl A tất cả và click đúp để vừa ô, nhưng nhiều ô chữ nó không hết ô.View attachment 289370
Nhấp chuột vào đây để mở rộng...
Cái này có nhiều nguyên nhân, không có file cụ thể thì hơi khó.
 
Upvote 0
Đọc mấy bài này cảm giác sao mà nó nhẹ nhàng, tình cảm quá. 1 bên thì nũng nịu, 1 bên thì chiều chuộng. Cứ như là trái đất này là của chúng mình.
Ối zời, tưởng tượng thôi mà thích thế. :p :p :p

PS: Cả nhà cứ tiếp tục đi nhé. Chúc cả nhà ngon giấc.

@$@^#@$@^#@$@^#
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Bạn chạy thử xem nhé.
Nhấp chuột vào đây để mở rộng...
Em chạy được rồi ạ. Em cảm ơn anh nhé. Nhưng em copy code để chạy thử một sheet khác lại không được vì em chưa hiểu rõ cái code đó. Vậy giờ em muốn chạy code đó cho nhiều file form dạng như vậy thì cần phải chỉnh sửa như thế nào ạ? Em có nghĩ ra phương án là copy các file kia vào sheet này để đổi font nhưng như vậy thì sẽ không thuận tiện lắm. Vậy anh có thể giúp em thêm phần copy code đó cho nhiều file tương tự không ạ?
 
Upvote 0
Phuongmai.2e đã viết:
Em chạy được rồi ạ. Em cảm ơn anh nhé. Nhưng em copy code để chạy thử một sheet khác lại không được vì em chưa hiểu rõ cái code đó. Vậy giờ em muốn chạy code đó cho nhiều file form dạng như vậy thì cần phải chỉnh sửa như thế nào ạ? Em có nghĩ ra phương án là copy các file kia vào sheet này để đổi font nhưng như vậy thì sẽ không thuận tiện lắm. Vậy anh có thể giúp em thêm phần copy code đó cho nhiều file tương tự không ạ?
Nhấp chuột vào đây để mở rộng...
Bạn đọc lại bài #25 và #27 nhé.
 
Lần chỉnh sửa cuối:
Upvote 0
Phuongmai.2e đã viết:
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 ạ
Nhấp chuột vào đây để mở rộng...
1682431893277.png
Nó có những ký tự đặc biệt mà anh không biết trong tiếng Nhật, ví dụ như ảnh anh gửi kèm.
Bây giờ em liệt kê các ký tự mà em phát hiện ra vào một ô để anh xử lý thêm vì anh nhìn tiếng Nhật thì thấy giống nhau hết.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
View attachment 289437
Nó có những ký tự đặc biệt mà anh không biết trong tiếng Nhật, ví dụ như ảnh anh gửi kèm.
Bây giờ em liệt kê các ký tự mà em phát hiện ra vào một ô để anh xử lý thêm vì anh nhìn tiếng Nhật thì thấy giống nhau hết.
Nhấp chuột vào đây để mở rộng...
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é.
 

File đính kèm

Upvote 0
Phuongmai.2e đã viết:
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ấp chuột vào đây để mở rộng...
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").
 
Upvote 0
Hoàng Tuấn 868 đã viết:
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").
Nhấp chuột vào đây để mở rộng...
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 ạ
1682434451863.png
 
Upvote 0
Phuongmai.2e đã viết:
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
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
Phuongmai.2e đã viết:
Dạ vâng, được ít nào hay ít đó ạ
Nhấp chuột vào đây để mở rộng...
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.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Hoàng Tuấn 868 đã viế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.
Nhấp chuột vào đây để mở rộng...
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 đính kèm

Upvote 0
Phuongmai.2e đã viết:
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?
Nhấp chuột vào đây để mở rộ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?
 
Upvote 0
Hoàng Tuấn 868 đã viết:
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?
Nhấp chuột vào đây để mở rộ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 ạ.
 

File đính kèm

Upvote 0
Phuongmai.2e đã viết:
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 ạ.
Nhấp chuột vào đây để mở rộng...
Để 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.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Để 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.
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

Upvote 0
Phuongmai.2e đã viết:
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 ạ
Nhấp chuột vào đây để mở rộng...
Tớ sửa cái này có vẻ được.
Mã: 
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.
 
Upvote 0
cantl đã viết:
Tớ sửa cái này có vẻ được.
Mã: 
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.
Nhấp chuột vào đây để mở rộng...
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:

cantl đã viết:
Tớ sửa cái này có vẻ được.
Mã: 
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.
Nhấp chuột vào đây để mở rộng...
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?
 
Lần chỉnh sửa cuối:
Upvote 0
Phuongmai.2e đã viết:
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ữ đó.
Nhấp chuột vào đây để mở rộng...
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ớ.
:p :p :p
 
Upvote 0
Phuongmai.2e đã viế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
Nhấp chuột vào đây để mở rộng...
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.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

  • 1682614084342.png
    1682614084342.png
    6.5 KB · Đọc: 10
Upvote 0
Phuongmai.2e đã viế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
Nhấp chuột vào đây để mở rộng...
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ỉ?
 
Lần chỉnh sửa cuối:
Upvote 0
Hoàng Tuấn 868 đã viết:
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
Hoàng Tuấn 868 đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Nhấp chuột vào đây để mở rộng...
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:

Hoàng Tuấn 868 đã viết:
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
Hoàng Tuấn 868 đã viết:
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ỉ?
Nhấp chuột vào đây để mở rộng...
Hoàng Tuấn 868 đã viết:
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ỉ?
Nhấp chuột vào đây để mở rộng...
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
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Upvote 0
Hoàng Tuấn 868 đã viết:
Mình thấy bạn vẫn lượn ra lượn vào mà, có lẽ nào
Nhấp chuột vào đây để mở rộng...
Hoàng Tuấn 868 đã viết:
Mình thấy bạn vẫn lượn ra lượn vào mà, có lẽ nào lại mộng du sao.
Nhấp chuột vào đây để mở rộng...
Em xin lỗi vì phản hồi anh muộn ạ. Em chỉ vào xem trên điện thoại hôm trước đó, do chưa chạy thử nên chưa phản hồi cho anh luôn được ạ. sáng nay mở máy tính ra chạy và phản hồi cho anh luôn.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
xin hỏi về lỗi mô đun ẩn. (1 người xem)
Trả lời
5
Đọc
215
YêuCN
Y
S
  • Question Question
Object.close và Set Object = nothing (2 người xem)
Trả lời
14
Đọc
1K
nguyendang95
N
H
Lỗi khi sort data xin được hỗ trợ
Trả lời
2
Đọc
79
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm
    • Chấp nhận
Trả lời
9
Đọc
272
Nguyenkhang2404
Nguyenkhang2404
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
389
Đọc
46K
THANHHANGPT
T
8
Theo dõi bán hàng (1 người xem)
Trả lời
6
Đọc
131
Maithy46
Maithy46
T
Ngắt kết nối với tệp lệnh đính kèm (2 người xem)
Trả lời
2
Đọc
91
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
minhduc1o2
Hình ảnh bị lỗi #VALUE
Trả lời
4
Đọc
96
minhduc1o2
minhduc1o2
S
tỷ lệ % không khớp khi cộng tổng
Trả lời
2
Đọc
71
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet
Trả lời
1
Đọc
243
PhamMaiTB
P
thanhcongdnk
nhờ các cao nhân giúp dùm, xin đa tạ nhiều
    • Buồn
    • Phẫn nộ
Trả lời
2
Đọc
415
misibi
M
N
  • Question Question
Chia sẻ COM DLL giúp tra cứu mã số thuế từ trang web masothue.com (1 người xem)
    • Thích
Trả lời
1
Đọc
418
nguyendang95
N
hoidebiet1710
Doanh thu cho nhiều nhân viên bán hàng (1 người xem)
Trả lời
1
Đọc
109
BuiQuangThuan
B
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
1
Đọc
137
hoidebiet1710
hoidebiet1710
V
  • Question Question
Nhờ mọi người giúp cách xóa các mục đã chọn trong Droplist của một nhóm các ô cùng dạy một môn học.
Trả lời
3
Đọc
204
HUONGHCKT
H
L
Trừ lùi nguyên vật liệu nhập - xuất - tồn theo nhiều điều kiện
Trả lời
7
Đọc
764
oanhleqt
O
D
Lọc cột chứa nhiều nhóm từ trong Excel. Mong các bạn giải đáp giúp
Trả lời
8
Đọc
214
Thai Huyen
Thai Huyen
T
file excel bị lỗi
Trả lời
1
Đọc
61
BuiQuangThuan
B
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định
Trả lời
4
Đọc
172
HUONGHCKT
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom