Snasui Excel Forum

Posted: **Fri Nov 01, 2013 10:39 am**

สวัสดีครับ อาจารย์

มีเรื่องรบกวนสอบถามครับ

ผมได้ทำการ upload excel มาจากระบบหนึ่ง ภาษาไทยจะทำการอ่านได้แต่ ถ้าไปดูในช่อง input line จะกลายเป็นภาษาต่างดาว

ผมจึงทำการแปลงเป็น unicode แต่ติดตรงที่พอแปลงแล้ว ได้มาแค่ ตัวแรกของชื่อ เช่น นางสาว เอ จะได้มาแค่ น.

ผมแนบไฟล์ตัวอย่างมาเพื่อรบกวนช่วยชี้แนะให้หน่อยครับว่าผิดอะไรหรือว่าต้องเพิ่มอะไรครับ

ขอบคุณครับ

Posted: **Fri Nov 01, 2013 11:42 am**

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    Dim LResult() As Byte
    Dim t As String
    LResult = StrConv(Target, vbFromUnicode)
    For i = 0 To UBound(LResult)
        t = t & Chr(LResult(i))
    Next
    Target = t
End Sub

Snasui Excel Forum

การ convert font เป็น vbUnicode

การ convert font เป็น vbUnicode

Re: การ convert font เป็น vbUnicode