làm sao gõ tiếng việt trong VBA ạ

chào bạn bạn xem chương 4 bài 8 nhé.

dạ thầy!!

Báo value thầy ơi

Chào bạn bạn copy function đó vào module.

làm rồi  thầy ơi ! luc ma qua excel gõ univover ( là tên funtion á) rùi A1 (là nơi gõ chữ có dấu) thay vì nó biên dịch ra mã để coppy vào VBA thì nó value

Chào bạn bạn đọc thêm bài này nữa nhé.

https://gitiho.com/blog/unicode-tieng...

Đúng 1 số tên còn ví dụ như Võ Anh Khoa sau khi univba => "Võ Anh Khoa" => sau khi chạy code V? Anh Khoa Tên Nguyễn Trọng Hào Thì Đúng

Chào bạn bạn thử như sau để biết đúng hay sai nhé.

Option Explicit

Sub chayrun()

    Dim v As String

    v = "Võ Anh Khoa"

    MsgBox v

    Sheet1.Range("B1").Value = v

End Sub

Function UniVba(TxtUni As String) As String 'chuyen vba sang uni

Dim N, uni1 As String, uni2 As String

    If TxtUni = "" Then

        UniVba = """"""

    Else

        TxtUni = TxtUni & " "

        If AscW(Left(TxtUni, 1)) < 256 Then UniVba = """"

            For N = 1 To Len(TxtUni) - 1

                uni1 = Mid(TxtUni, N, 1)

                uni2 = AscW(Mid(TxtUni, N + 1, 1))

                 If AscW(uni1) > 255 And uni2 > 255 Then

                    UniVba = UniVba & "ChrW(" & AscW(uni1) & ") & "

                 ElseIf AscW(uni1) > 255 And uni2 < 256 Then

                    UniVba = UniVba & "ChrW(" & AscW(uni1) & ") & """

                 ElseIf AscW(uni1) < 256 And uni2 > 255 Then

                    UniVba = UniVba & uni1 & """ & "

                 Else

                    UniVba = UniVba & uni1

                End If

            Next

        If Right(UniVba, 4) = " & """ Then

            UniVba = Mid(UniVba, 1, Len(UniVba) - 4)

        Else

            UniVba = UniVba & """"

        End If

    End If

End Function

https://www.youtube.com/watch?v=UU4K3... nhờ thầy xem trường hợp vs Uniform e đang làm bài tập chương 12

Chào bạn với from phần tile bạn không gõ được tiếng việt, còn phần Label1 bạn kích đúp vào nó và sửa thành tiếng việt bạn nhé.