Hướng dẫn cách loại bỏ dấu tiếng việt trong excel

12 812 0
Hướng dẫn cách loại bỏ dấu tiếng việt trong excel

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel Hướng dẫn cách loại bỏ dấu tiếng việt trong excel

Hướng dẫn cách loại bỏ dấu tiếng Việt Excel Có cách chuyển đổi từ chữ tiếng việt có dấu sang không dấu theo cách sau: - Cách 1: Đơn giản sử dụng Unikey - Cách 2: Sử dụng VBA tự xây dựng hàm chuyển đổi Cách 1: Sử dụng Unikey chuyển đổi chữ tiếng việt có dấu sang không dấu Ví dụ muốn chuyển cột họ tên có dấu thành không dấu Kiểm tra liệu nguồn thuộc kiểu bảng mã Ở ví dụ cột họ tên thuộc font chữ Time New Roman -> thuộc bảng mã Unicode Bước 1: Copy toàn liệu muốn chuyển thành không dấu Bước 2: Chuột phải vào biểu tượng Unikey góc bên phải phía hình -> Chọn Công cụ…[CS + F6] nhấn tổ hợp phím Ctrl + Shift + F6 Bước 3: Hộp thoại xuất Bảng mã mục Nguồn nhập tên bảng mã nguồn liệu Unicode, bảng mã đích chọn bảng mã nguồn sang bảng mã khác theo yêu cầu bạn Di chuyển chuột sang phía bên phải tích chọn vào mục Loại bỏ dấu -> kích chọn Chuyển mã Bước 4: Sau chọn Chuyển mã hộp thoại thông báo chuyển mã thành công xuất kích chọn OK để kết thúc Trường hợp phần liệu không hợp lý hộp thoại thông báo xuất kích chọn OK để chọn lại liệu nguồn Quay trở lại bảng tính Excel chọn vị trí cần dán liệu nhấn tổ hợp phím Ctrl + V -> kết toàn chữ loại bỏ dấu Trên cách đơn giản để loại bỏ dấu tiếng việt Tuy nhiên với cách phiên thấp Unikey không hỗ trợ Cách 2: Sử dụng VBA Bước 1: Nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA Bước 2: Vào thẻ Insert -> Module Bước 3: Copy đoạn mã sau vào Module 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 = 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, 855, 7857, 7859, 7861, 7863 sConvert = sConvert & "a" Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 854, 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, 899, 7901, 7903, 7905, 7907 sConvert = sConvert & "o" Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 898, 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 Bước 4: Quay trở lại file Excel vào File -> Options Bước 5: Hộp thoại xuất chọn mục Trust Center -> Trust Center Settings Bước 6: Trong mục Macro Settings, phần Macro Settings chọn Enable all macros (not recommended; potentially dangerous code caption), phần Developer Macro Settings tích chọn mục Trust access to the VBA project object model Bước 7: Như bạn xây dựng xong hàm ConvertToUnSign() Quay trở lại bảng tính, ví dụ muốn chuyển đổi liệu ô D6 sang không dấu nhập công thức sau: =ConvertToUnSign(D6) Bước 8: Nhấn Enter -> liệu chuyển sang không dấu: Tuy nhiên xây dựng hàm tốn nhiều thời gian hiệu không cao bạn muốn chuyển đổi với lượng liệu lớn Trên cách giúp bạn loại bỏ dấu tiếng việt Excel [...]... bảng tính, ví dụ muốn chuyển đổi dữ liệu ô D6 sang không dấu nhập công thức sau: =ConvertToUnSign(D6) Bước 8: Nhấn Enter -> dữ liệu đã được chuyển sang không dấu: Tuy nhiên xây dựng hàm tốn nhiều thời gian và hiệu quả không cao khi bạn muốn chuyển đổi với lượng dữ liệu lớn Trên đây là những cách cơ bản giúp bạn loại bỏ dấu tiếng việt trong Excel ... tính Excel chọn vị trí cần dán liệu nhấn tổ hợp phím Ctrl + V -> kết toàn chữ loại bỏ dấu Trên cách đơn giản để loại bỏ dấu tiếng việt Tuy nhiên với cách phiên thấp Unikey không hỗ trợ Cách 2:... tốn nhiều thời gian hiệu không cao bạn muốn chuyển đổi với lượng liệu lớn Trên cách giúp bạn loại bỏ dấu tiếng việt Excel ... nguồn sang bảng mã khác theo yêu cầu bạn Di chuyển chuột sang phía bên phải tích chọn vào mục Loại bỏ dấu -> kích chọn Chuyển mã Bước 4: Sau chọn Chuyển mã hộp thoại thông báo chuyển mã thành công

Ngày đăng: 06/01/2017, 11:24

Từ khóa liên quan

Tài liệu cùng người dùng

Tài liệu liên quan