Nhờ các bác viết giúp em đoạn code để dịch "L" & ChrW(7901) & "i" sang Lời ạ! Cảm ơn các bác. (1 người xem)

[trungtamcnc]

Để dịch lại các dòng hiển thị bằng tiếng Việt viết dưới dạng Vba, lâu nay em cứ copy vào chỗ Msg.
Rồi chạy marco. Em muốn nhờ các bác viết hộ đoạn mã code để đưa được dữ liệu vào Msg (từ InputBox chẳng hạn).
Dưới đây là code em hay dùng. Cảm ơn các bác nhiều ạ
Sub DichnguocVBa_Uni()
Msg = "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i"
Application.Assistant.DoAlert "Th" & ChrW(244) & "ng b" & ChrW(225) & "o", Msg, 0, 4, 0, 0, 0
With Selection
.Text = Msg
End With
End Sub

 

[befaint]

Sheet1.Range("A1").value =   "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i"

 

[trungtamcnc]

Sheet1.Range("A1").value =   "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i"

Nhập "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i" ở ô A1 thì sao vào Msg được bác nhỉ? Em không hiểu ý bác lắm ạ!

 

[befaint]

không hiểu

Mình cho tay vào làm luôn đi.

 

[giaiphap]

Để dịch lại các dòng hiển thị bằng tiếng Việt viết dưới dạng Vba, lâu nay em cứ copy vào chỗ Msg.
Rồi chạy marco. Em muốn nhờ các bác viết hộ đoạn mã code để đưa được dữ liệu vào Msg (từ InputBox chẳng hạn).
Dưới đây là code em hay dùng. Cảm ơn các bác nhiều ạ
Sub DichnguocVBa_Uni()
Msg = "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i"
Application.Assistant.DoAlert "Th" & ChrW(244) & "ng b" & ChrW(225) & "o", Msg, 0, 4, 0, 0, 0
With Selection
.Text = Msg
End With
End Sub

Bạn mô tả kỷ lại vấn đề của mình.

 

[HeSanbi]

Vừa có người hỏi hôm trước bạn sang tham khảo

Nhờ giúp chuyển chữ dạng ký hiệu sang chữ bình thường

Xin chào các bạn GPE! Tôi có 1 bảng tính gồm các chữ dạng ký hiệu như vầy: Tôi muốn chuyển từ dạng chữ trên sang dạng chữ bình thường Time New Roman dạng như vầy thì làm thế nào?: Xin cảm ơn các bạn!

www.giaiphapexcel.com

 

[VetMini]

Sheet1.Range("A1").value =   "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i"

Ở đây là hộp "MS Word" mà bạn

 

[befaint]

Ở đây là hộp "MS Word" mà bạn

Em có biết là đang hỏi ở MS Word nhưng... chủ thớt không có nói yêu cầu làm trên MS Word.

 

[huuthang_bd]

Vầy cho gọn.

Function GPE(sStr) As String
Static oAccess As Object
If oAccess Is Nothing Then Set oAccess = CreateObject("Access.Application")
GPE = oAccess.Eval(sStr)
End Function

 

[trungtamcnc]

Bạn mô tả kỷ lại vấn đề của mình.

Cảm ơn bác đã quan tâm: Em lâu nay để dịch cụm "L" & ChrW(7901) & "i gi" & ChrW(7843) & "i" thành Lời giải thì em cứ phải copy vào chỗ Msg ạ. Giờ em muốn không cần phải sửa marco mà kiểu đưa dữ liệu vào ra sản phẩm ấy ạ.

Bài đã được tự động gộp: 17/8/20

Vầy cho gọn.

Function GPE(sStr) As String
Static oAccess As Object
If oAccess Is Nothing Then Set oAccess = CreateObject("Access.Application")
GPE = oAccess.Eval(sStr)
End Function

Lỗi bác ơi View attachment 243345