แทนที่อักขระเน้นเสียงด้วยอักขระปกติด้วย VBA

แทนที่อักขระเน้นเสียงด้วยอักขระปกติด้วย Kutools for Excel

สำหรับผู้ใช้ที่มีประสบการณ์กับ Microsoft Excel การใช้แมโคร VBA เป็นวิธีง่ายๆในการจัดการกับงานที่ซับซ้อนนี้

1. ค้างไว้ อื่น ๆ + F11 ใน Excel และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. จากนั้นไปที่เซลล์ว่างแล้ววางสูตรในเซลล์: = CheckStringCHAR (InString), ตัวอย่างเช่น = CheckStringCHAR ("ù"),หรือ = CheckStringCHAR (A2).

หมายเหตุ:
(1) Microsoft Visual Basic ของคุณอาจไม่รู้จักอักขระที่เน้นเสียงเลยหากไม่รองรับ Unicode ตัวอย่างเช่นเมื่อคุณวาง "š" ใน Visual Basic คุณอาจได้รับ "?" ถ้าเป็นเช่นนั้นมาโครนี้จะไม่สามารถใช้งานได้
(2) ไม่แทนที่อักขระเน้นเสียงในสตริงของเซลล์ที่เลือกโดยตรง

ต้องใช้ทักษะและความรู้มากเกินไปในการใช้มาโคร VBA และวิธีการต่อไปนี้จะช่วยให้คุณทำงานได้ง่ายขึ้นด้วยการคลิกเพียงบางครั้ง Kutools สำหรับ Excel ของแทนที่เครื่องมืออักขระเน้นเสียงช่วยให้คุณสามารถแทนที่อักขระเน้นเสียงทุกชนิดด้วยอักขระปกติได้อย่างง่ายดายในคราวเดียว

1. เลือกช่วงที่คุณจะแทนที่อักขระที่เน้นเสียงทั้งหมด

2. คลิก Kutools > ข้อความ > แทนที่อักขระที่เน้นเสียง…, ดูภาพหน้าจอ:

3. In แทนที่อักขระที่เน้นเสียง ใหคลิกปุ the ม เลือกทั้งหมด เพื่อเลือกกฎการแทนที่ทั้งหมดและคลิกปุ่มตกลงเพื่อแทนที่อักขระที่เน้นเสียงทั้งหมด ดูภาพหน้าจอ:

หมายเหตุ / รายละเอียดเพิ่มเติม:
(1) หากไม่มีอักขระเน้นเสียงเฉพาะที่คุณต้องการคุณสามารถคลิกที่ไฟล์ เพิ่มกฎ เพื่อเพิ่มกฎของคุณเองลงในกล่องรายการด้านบนกล่องโต้ตอบแทนที่อักขระที่เน้นเสียง
(2) คุณสามารถกำหนดกฎการแทนที่ใหม่ได้ในกล่องโต้ตอบแทนที่อักขระที่เน้นเสียง

ตอนนี้คุณจะมีอักขระเน้นเสียงทั้งหมดในสตริงของช่วงที่เลือกแปลงเป็นอักขระปกติทันที ดูภาพหน้าจอ:

พื้นที่ แทนที่อักขระที่เน้นเสียง คุณลักษณะของ Kutools for Excel สามารถแทนที่อักขระเน้นเสียงทุกชนิดด้วยอักขระปกติในสมุดงานทั้งหมดได้อย่างง่ายดาย ทดลองใช้ฟรี!