Chúng ta sử dụng tiếng Việt có dấu, đó là điều hiển nhiên, nhưng các phần mềm thì không hẳn khi nào sử dụng tiếng Việt có dấu nó cũng nhận, và cách duy nhất là chuyển đổi tiếng Việt có dấu sang tiếng Việt không dấu, đây là hướng dẫn bỏ dấu trên excel, còn với google sheet mời các bạn xem ở bài viết bỏ dấu tiếng Việt trong google sheets.
Có hai cách đơn giản để chuyển đổi tiếng Việt có dấu sang không dấu, chúng ta sẽ đi tìm hiểu lần lượt hai cách nhé.
1. Chuyển Đổi Tiếng Việt Không Dấu Bằng Unikey
Đây là cách sử dụng phần mềm gõ tiếng Việt Unikey để chuyển đổi, với Unikey thì có rất nhiều tiện ích, và đây cũng chính là phần mềm gõ tiếng Việt mà mình sử dụng nhiều nhất.
Đầu tiên bạn cần copy toàn bộ dữ liệu cần chuyển đổi, sau đó nhấn phím tắt Ctrl + Shift + F6 để mở công cọ Unikey Toolkit, để gọi được công cụ này thì bạn phải chạy Unikey trước đó nhé.
Sau đó kiểm tra xem bảng mã của bạn đang sử dụng là gì, tick vào Loại bỏ dấu sau đó nhấn Chuyển mã
Chọn OK nếu có cảnh báo thành công.
Sau đó dán vào cột B, các bạn sẽ thấy toàn bộ tiếng Việt có dấu đã chuyển thành không dấu hết rồi nhé
Tuy nhiên trong một vài trường hợp gặp lỗi khi chuyển, hãy tham khảo cách thứ hai này nhé
2. Chuyển Đổi Tiếng Việt Không Dấu Bằng VBA
Đây là cách sử dụng hàm tự tạo để chuyển đổi tiếng Việt có dấu thành không dấu
Nhấn Alt + F11 để mở chương trình Microsoft Visual Basic For Applications, sau đó vào Insert - Module
Copy toàn bộ đoạn code bên dưới dán vào khung soạn thảo
Function ConvertToUnSign(ByVal sContent As String) As String
Dim i As Long
Dim intCode As Long
Dim sChar As String
Dim sConvert As String
ConvertToUnSign = AscW(sContent)
For i = 1 To Len(sContent)
sChar = Mid(sContent, i, 1)
If sChar <> "" Then
intCode = AscW(sChar)
End If
Select Case intCode
Case 273
sConvert = sConvert & "d"
Case 272
sConvert = sConvert & "D"
Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863
sConvert = sConvert & "a"
Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862
sConvert = sConvert & "A"
Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879
sConvert = sConvert & "e"
Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878
sConvert = sConvert & "E"
Case 236, 237, 297, 7881, 7883
sConvert = sConvert & "i"
Case 204, 205, 296, 7880, 7882
sConvert = sConvert & "I"
Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907
sConvert = sConvert & "o"
Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906
sConvert = sConvert & "O"
Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921
sConvert = sConvert & "u"
Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920
sConvert = sConvert & "U"
Case 253, 7923, 7925, 7927, 7929
sConvert = sConvert & "y"
Case 221, 7922, 7924, 7926, 7928
sConvert = sConvert & "Y"
Case Else
sConvert = sConvert & sChar
End Select
Next
ConvertToUnSign = sConvert
End Function
Như hình này, sau đó tắt đi
Quay trở lại file excel, lúc này các bạn nhập công thức như sau:
=ConvertToUnSign(A2)
Và nhấn Enter
Kết quả đã chuyển đổi thành tiếng Việt không dấu, việc còn lại là copy công thức xuống các ô còn lại
Các bạn chú ý vì đây là hàm tự tạo, nên khi lưu file lại mà gửi đi mấy khác thì sẽ lỗi, muốn gửi đi mấy khác mà không lỗi thì các bạn một là copy lại các giá trị vừa chuyển đổi và dán value, hoặc lưu lại file với đuôi .xlsm nhé, chúc các bạn thành công.
