Chuyển đổi kiểu chữ (1 người xem)

[vitinhvnbmt]

mình có một cột dữ liệu được viết bằng font chữ tiếng nhật
bây giờ mình muốn chuyển kiểu chữ sang font tiếng anh
thì có thể dùng hàm hay cách nào đó một cách nhanh chóng được không nhỉ?
chứ cứ ngồi gõ lại từng chữ thì rất là mất thời gian.
rất mong các ace xem giúp?

 

[Let'GâuGâu]

mình có một cột dữ liệu được viết bằng font chữ tiếng nhật
bây giờ mình muốn chuyển kiểu chữ sang font tiếng anh
thì có thể dùng hàm hay cách nào đó một cách nhanh chóng được không nhỉ?
chứ cứ ngồi gõ lại từng chữ thì rất là mất thời gian.
rất mong các ace xem giúp?

không biết unikey tool kit có thể làm được không, bạn tìm hiểu xem
nếu trong word để chuyển đôi từ vni windown sang unicode thì rất ok

 

[vitinhvnbmt]

mình đã thử dùng unikey tool nhưng không được bạn à

 

[HieuCD]

bạn nên tạo danh sách các ký tự chuyể đổi và đưa lên, các bạn trên diễn đàn giúp dể hơn

 

[Let'GâuGâu]

bạn nên tạo danh sách các ký tự chuyể đổi và đưa lên, các bạn trên diễn đàn giúp dể hơn

chuyển ký tự latin đó bạn...........nhiều chuyện tí....hiihihi

DÙNG hàm TV trên diễn đàn chuyển thử

 

[vitinhvnbmt]

bạn nên tạo danh sách các ký tự chuyể đổi và đưa lên, các bạn trên diễn đàn giúp dể hơn

cảm ơn bạn. mình đã tạo thêm danh sách và update lại file đính kèm rồi. nhờ các bạn xem giúp

 

[vitinhvnbmt]

chuyển ký tự latin đó bạn...........nhiều chuyện tí....hiihihi

DÙNG hàm TV trên diễn đàn chuyển thử

không được bạn à. bạn chỉ cần đổi font ở cột D sang Arial giống như font ở cột B là bạn nhận thấy ngay. thấy ngay được rằng nó vẫn vậy

 

[HieuCD]

bạn xem file được chưa

 

[vitinhvnbmt]

bạn xem file được chưa

bạn hiểu nhầm ý mình rồi. dữ liệu mình có ban đầu là ở cột B. mình muốn có dữ liệu như ở cột C thì làm cách nào cho nhanh? y mình muốn hỏi vậy.
(dữ liệu ở cột C là mình đã thay thế một cách thủ công, từng chữ một nên rất mất thời gian)

 

[HieuCD]

bạn hiểu nhầm ý mình rồi. dữ liệu mình có ban đầu là ở cột B. mình muốn có dữ liệu như ở cột C thì làm cách nào cho nhanh? y mình muốn hỏi vậy.
(dữ liệu ở cột C là mình đã thay thế một cách thủ công, từng chữ một nên rất mất thời gian)

cột C mình đã xóa, rồi dùng hàm NhatAnh để thay thế cho bạn, bạn thử nhập hàm vào ô khác xem kết quả

 

[vitinhvnbmt]

cột C mình đã xóa, rồi dùng hàm NhatAnh để thay thế cho bạn, bạn thử nhập hàm vào ô khác xem kết quả

ra kết quả rồi nhưng mà hàm NhatAnh là hàm gì thế bạn? mình nhập hàm đó vào file excel của mình thì nó không ra như vậy? please help?

 

[HieuCD]

ra kết quả rồi nhưng mà hàm NhatAnh là hàm gì thế bạn? mình nhập hàm đó vào file excel của mình thì nó không ra như vậy? please help?

là hàm tự tạo viết bằng code VBA
File của bạn phải lưu theo đuôi .xlsm, mở file của mình và của bạn, nhấn Alt+F11, sẽ thấy code, chọn tên file của bạn, chọn Insert Module, sau đó copy toàn bộ code của file ví dụ và dán vào Module file của bạn, lúc đó mới dùng được

 

[vitinhvnbmt]

là hàm tự tạo viết bằng code VBA
File của bạn phải lưu theo đuôi .xlsm, mở file của mình và của bạn, nhấn Alt+F11, sẽ thấy code, chọn tên file của bạn, chọn Insert Module, sau đó copy toàn bộ code của file ví dụ và dán vào Module file của bạn, lúc đó mới dùng được

ok cảm ơn bạn nhé, mình đã làm được

 

[vitinhvnbmt]

bạn xem file được chưa

bạn ơi bây giờ mình muốn chuyển ngược lại, tức là từ Anh sang Nhật nên mình đã đảo database ở hai cột E, F.
nhưng mà nó không được.
chữ và ký tự đặc biệt thì ok nhưng số thì nó vẫn y chang.
bạn có cách nào khắc phục không? khi mình nhập số định dạng Anh vào cột B thì ở cột C sẽ là số định dạng Nhật?

 

[HieuCD]

bạn ơi bây giờ mình muốn chuyển ngược lại, tức là từ Anh sang Nhật nên mình đã đảo database ở hai cột E, F.
nhưng mà nó không được.
chữ và ký tự đặc biệt thì ok nhưng số thì nó vẫn y chang.
bạn có cách nào khắc phục không? khi mình nhập số định dạng Anh vào cột B thì ở cột C sẽ là số định dạng Nhật?

bạn chỉnh lại code

Function NhatAnh(S As String, Rng As Range) As String
    Dim i As Long, Dic As Object, tmp()
    Set Dic = CreateObject("Scripting.Dictionary")
    tmp = Rng.Value
    For i = 1 To UBound(tmp)
        If IsNumeric(tmp(i, 1)) Then tmp(i, 1) = Trim(Str(tmp(i, 1)))
        If Not Dic.Exists(tmp(i, 1)) Then Dic.Add tmp(i, 1), tmp(i, 2)
    Next
    For i = 1 To Len(S)
        If Dic.Exists(Mid(S, i, 1)) Then
            NhatAnh = NhatAnh & Dic.Item(Mid(S, i, 1))
        Else
            NhatAnh = NhatAnh & Mid(S, i, 1)
        End If
    Next
    Set Dic = Nothing
End Function