excel-vba-การตัดตัวอักษรออกจากอักขระพิเศษ
ปกติข้อมูลใน cell มักจะมีทั้งตัวอักษร ผสมตัวเลข หรือ ผสมอักขระพิเศษ เช่น คำว่า Thailand, !don't care 14.-% ซึ่งจะมีปัญหาในการเขียนสูตร แล้วสูตรรับข้อมูลเหล่านี้จะ error เราจำเป็นต้องปรับข้อมูลก่อน ซึ่งถ้าข้อมูลมากๆ จะเสียเวลามาก จึงขอแนะนำ code สำหรับจัดการปัญหานี้
เราสามารถ ตรวจสอบคำว่ามีอักขระพิเศษ ผสมอยู่ได้ด้วยการกำหนดช่วงของระหัส ASCII Code ได่ ดังนี้ 'ตัวเลข อยู่ระหว่าง 48 - 57 'ตัวอักษรอยู่ระหว่าง 65 - 90(พิมพ์ใหญ่) และ 97 -122 (พิมพ์เล็ก) 'อักษรพิเศษอยู่ระหว่าง 32 - 47,58 - 64 , 91-96 , 123 - 127 'อักษรพิเศษอยู่ระหว่า ง(The extended ASCII codes ) 128-255
จาก code ด้านล่างนี้เป็นฟังก์ชั่นสำหรับการคัดแยกเอาเฉพาะ อักขระพิเศษ
Function GetSpecialChar(inputText As String) Dim Txt, Txt_temp As String Dim i, iCode As Integer For i = 1 To Len(inputText) iCode = Asc(Mid(inputText, i, 1)) If (iCode > 32 And iCode < 48) Or (iCode > 57 And iCode < 65) Or (iCode > 122 And iCode < 256) Then Txt_temp = Txt_temp & Mid(inputText, i, 1) End If Next i GetSpecialChar = Txt_temp End Function
Create Date : 06 พฤศจิกายน 2555 |
Last Update : 9 พฤศจิกายน 2555 10:56:23 น. |
|
1 comments
|
Counter : 3492 Pageviews. |
|
|