ปรุงก่อนชิม
Location :
นนทบุรี Thailand

[Profile ทั้งหมด]

ฝากข้อความหลังไมค์
Rss Feed
Smember
ผู้ติดตามบล็อก : 4 คน [?]




New Comments
Group Blog
 
All Blogs
 
Friends' blogs
[Add ปรุงก่อนชิม's blog to your web]
Links
 

 
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.

 
แยกให้หน่อย


โดย: -✭͓̽͜͡- IP: 27.55.72.250 วันที่: 14 กันยายน 2563 เวลา:10:30:51 น.  

ชื่อ :
Comment :
  *ใช้ code html ตกแต่งข้อความได้เฉพาะสมาชิก
 
 Pantip.com | PantipMarket.com | Pantown.com | © 2004 BlogGang.com allrights reserved.