• Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
  • Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    Noname > 06-10-11, 04:30 PM

    Ta đã biết, trong VBA của office 2k3 về trước, ta vô phương nhập được chuỗi tiếng Việt Unicode. Đa số ta quay lại bảng mã VNI hoặc ABC.
    Tuy nhiên, theo xu hướng, càng ngày càng ít người dùng hai bảng mã này.
    Một giải pháp khác là ta thể hiện chuỗi Unicode tiếng Việt đó nhờ hàm Chrw( mã unicode)
    Ví dụ: Để nhập 1 câu sau:
    text1.value= "ngày tháng năm, một hai ba bốn, những"
    Trong VBA ta phải nhập là:
    text1.value="ngày tháng n" & ChrW(259) & "m, m" & ChrW(7897) & "t hai ba b" & ChrW(7889) & "n, nh" & ChrW(7919) & "ng"
    Việc dùng hàm này rất mất thời gian và dễ nhầm lẫn vì bảng mã Unicode có tới gần 65000 ký tự.



    Rất may, chúng ta có 1 hàm hỗ trợ ta dịch 1 chuỗi Unicode thành chuỗi VBA Unicode.

    Mã:
    Function VbaUni(chuoi As String) As String
    If chuoi = "" Then
    VbaUni = """"""
    Else
    chuoi = chuoi & " "
    If AscW(Left(chuoi, 1)) < 256 Then VbaUni = """"
    For n = 1 To Len(chuoi) - 1
    uni1 = Mid(chuoi, n, 1)
    uni2 = AscW(Mid(chuoi, n + 1, 1))
    If AscW(uni1) > 255 And uni2 > 255 Then
    VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
    ElseIf AscW(uni1) > 255 And uni2 < 256 Then
    VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
    ElseIf AscW(uni1) < 256 And uni2 > 255 Then
    VbaUni = VbaUni & uni1 & """ & "
    Else
    VbaUni = VbaUni & uni1
    End If
    Next
    If Right(VbaUni, 4) = " & """ Then
    VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
    Else
    VbaUni = VbaUni & """"
    End If
    End If
    End Function

    Dưới đây là 1 ứng dụng của hàm này.
    [Hình: vbaunicode.png]

    Ta nhập chuỗi tiếng Việt vào ô phía trên, nhấn chuyển, và copy giá trị trả về ở ô phía dưới vào chỗ cần điền tiếng Việt là được!

    Chúc thành công!
    Download
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    hmanhha > 13-03-13, 10:00 AM

    Em có một bảng mà giá trị các trường là tiếng việt.Em khai báo
    dim rs as Dao.recordset

    Cho rs chạy trong bảng lấy ra các trường này.

    Vấn đề là làm thế nào hiển thị ra tiếng việt bây giờ nhỉ.happy
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    Xuân Thanh > 13-03-13, 11:31 AM

    (13-03-13, 10:00 AM)hmanhha Đã viết: Em có một bảng mà giá trị các trường là tiếng việt.Em khai báo
    dim rs as Dao.recordset

    Cho rs chạy trong bảng lấy ra các trường này.

    Vấn đề là làm thế nào hiển thị ra tiếng việt bây giờ nhỉ.happy

    Câu hỏi của bạn không rõ ràng. hiển thị tiếng Việt ra đâu? Trên form? MsgBox?...
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    hmanhha > 14-03-13, 11:44 PM

    (13-03-13, 11:31 AM)Xuân Thanh Đã viết:
    (13-03-13, 10:00 AM)hmanhha Đã viết: Em có một bảng mà giá trị các trường là tiếng việt.Em khai báo
    dim rs as Dao.recordset

    Cho rs chạy trong bảng lấy ra các trường này.

    Vấn đề là làm thế nào hiển thị ra tiếng việt bây giờ nhỉ.happy

    Câu hỏi của bạn không rõ ràng. hiển thị tiếng Việt ra đâu? Trên form? MsgBox?...
    Bác ơi.
    Em hiện trong Treeview.
    khi lấy str = rst!SMG_Name thì ký tự đã ra loằng ngoằng rùi bác ạ.Nên khi hiển thị lên nó không đúng là tiếng việt
    DB đã được upload lên đây nè bác
    http://www.mediafire.com/?u6cudeu9hcus4ql
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    trungn077 > 15-03-13, 12:39 AM

    (06-10-11, 04:30 PM)Noname Đã viết: Ta đã biết, trong VBA của office 2k3 về trước, ta vô phương nhập được chuỗi tiếng Việt Unicode. Đa số ta quay lại bảng mã VNI hoặc ABC.
    Tuy nhiên, theo xu hướng, càng ngày càng ít người dùng hai bảng mã này.
    Một giải pháp khác là ta thể hiện chuỗi Unicode tiếng Việt đó nhờ hàm Chrw( mã unicode)
    Ví dụ: Để nhập 1 câu sau:
    text1.value= "ngày tháng năm, một hai ba bốn, những"
    Trong VBA ta phải nhập là:
    text1.value="ngày tháng n" & ChrW(259) & "m, m" & ChrW(7897) & "t hai ba b" & ChrW(7889) & "n, nh" & ChrW(7919) & "ng"
    Việc dùng hàm này rất mất thời gian và dễ nhầm lẫn vì bảng mã Unicode có tới gần 65000 ký tự.



    Rất may, chúng ta có 1 hàm hỗ trợ ta dịch 1 chuỗi Unicode thành chuỗi VBA Unicode.

    Mã:
    Function VbaUni(chuoi As String) As String
    If chuoi = "" Then
    VbaUni = """"""
    Else
    chuoi = chuoi & " "
    If AscW(Left(chuoi, 1)) < 256 Then VbaUni = """"
    For n = 1 To Len(chuoi) - 1
    uni1 = Mid(chuoi, n, 1)
    uni2 = AscW(Mid(chuoi, n + 1, 1))
    If AscW(uni1) > 255 And uni2 > 255 Then
    VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
    ElseIf AscW(uni1) > 255 And uni2 < 256 Then
    VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
    ElseIf AscW(uni1) < 256 And uni2 > 255 Then
    VbaUni = VbaUni & uni1 & """ & "
    Else
    VbaUni = VbaUni & uni1
    End If
    Next
    If Right(VbaUni, 4) = " & """ Then
    VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
    Else
    VbaUni = VbaUni & """"
    End If
    End If
    End Function

    Dưới đây là 1 ứng dụng của hàm này.
    [Hình: vbaunicode.png]

    Ta nhập chuỗi tiếng Việt vào ô phía trên, nhấn chuyển, và copy giá trị trả về ở ô phía dưới vào chỗ cần điền tiếng Việt là được!

    Chúc thành công!
    Download

    NoName ơi! hình như cái này không dùng được msg mà chỉ xài cho value hoặc frm thôi fai ko? nếu muốn msg thì fai thêm cái này:
    Tác giả: Noname
    Private Declare Function GetActiveWindow Lib "user32" () As Long
    Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

    Public Function msgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
    Dim BStrMsg, BStrTitle
    BStrMsg = StrConv(PromptUni, vbUnicode)
    BStrTitle = StrConv(TitleUni, vbUnicode)

    msgBoxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
    End Function
    ' msg:
    msgBoxUni "ngày tháng n" & ChrW(259) & "m, m" & ChrW(7897) & "t hai ba b" & ChrW(7889) & "n, nh" & ChrW(7919) & "ng"
    Cám ơn NoName rất nhiều...!034
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    hmanhha > 15-03-13, 11:11 AM

    Cái này hơi ngược với vấn đề của em.

    Search mấy hôm nay thấy oải quá.
    Unicode TreeView thấy đầy trên internet.

    Thằng Nga thì không hiển thị được tiếng Nga, thằng Tầu thì không hiển thị được tiếng tầu, thằng Nhật không hiển thị được tiếng nhật.

    Đến chán.
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    Xuân Thanh > 15-03-13, 03:09 PM

    Xin thưa : Treeview tương thích tốt nhất với font VNI, không tương thích font Unicode
    Thân mến
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    hmanhha > 15-03-13, 07:09 PM

    (15-03-13, 03:09 PM)Xuân Thanh Đã viết: Xin thưa : Treeview tương thích tốt nhất với font VNI, không tương thích font Unicode
    Thân mến
    Thế thì theo bác là làm thế nào chuyển đổi font trong database có được không.

    Đến khổ.
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    Xuân Thanh > 16-03-13, 12:06 PM

    (15-03-13, 07:09 PM)hmanhha Đã viết:
    (15-03-13, 03:09 PM)Xuân Thanh Đã viết: Xin thưa : Treeview tương thích tốt nhất với font VNI, không tương thích font Unicode
    Thân mến
    Thế thì theo bác là làm thế nào chuyển đổi font trong database có được không.

    Đến khổ.

    Không cần chuyển font cho cả Database, chỉ cần dùng font VNI cho Treeview là được
    Thân mến
  • RE: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA

    hmanhha > 17-03-13, 03:35 PM

    (16-03-13, 12:06 PM)Xuân Thanh Đã viết:
    (15-03-13, 07:09 PM)hmanhha Đã viết:
    (15-03-13, 03:09 PM)Xuân Thanh Đã viết: Xin thưa : Treeview tương thích tốt nhất với font VNI, không tương thích font Unicode
    Thân mến
    Thế thì theo bác là làm thế nào chuyển đổi font trong database có được không.

    Đến khổ.

    Không cần chuyển font cho cả Database, chỉ cần dùng font VNI cho Treeview là được
    Thân mến
    Em up cả DB lên rùi.Bác làm ơn làm phúc xem sửa chỗ nào thì bảo em luôn cái được không chứ cứ chung chung chi sự thế này mệt quá đi mất.Làm mãi không được.

    em đã thêm dòng

    .Font.Name = "VNI-Couri"

    để xác định font cho cái treeview mà có được đâu, không nhẽ ngồi thử từng font chăng
    Đang định chuyển sang Visual Studio 10 thấy cũng mệt không kém.Chuyển sang đó thì cái treeview hiện tiếng việt ngon lành nhưng những phần khác lại bắt đầu lại từ đầu form, ..... mệt quá đi mất.040