Lỗi ký tự trên InputBox. Cần sự giúp đỡ

[btmnth]

Em bị lỗi khi nhập dữ liệu từ InputBox, Ký tự "Ôm". Mong mọi người giúp đỡ!

 

[SA_DQ]

Mình vẫn nhập được, chắc do xài UniKey chăng?

 

[Nguyễn Duy Tuân]

Có tình huống nếu máy bạn cài một vài phần mềm ngày trước (thường làm trên Foxpro, VB6) các phần mềm này thay đổi font hệ thống, thậm chí làm hỏng font unicode để họ hiển thị được dạng font TCVN3, VNI (giả danh unicode). Nếu trường hợp này thì bạn cần tìm cách cài lại font chuẩn Windows nếu không được thì đường phải cài lại Windows .

 

[btmnth]

Có tình huống nếu máy bạn cài một vài phần mềm ngày trước (thường làm trên Foxpro, VB6) các phần mềm này thay đổi font hệ thống, thậm chí làm hỏng font unicode để họ hiển thị được dạng font TCVN3, VNI (giả danh unicode). Nếu trường hợp này thì bạn cần tìm cách cài lại font chuẩn Windows nếu không được thì đường phải cài lại Windows .

Cảm ơn . để mình kiểm tra xem sao ạ

Bài đã được tự động gộp: 27/4/19

Mình vẫn nhập được, chắc do xài UniKey chăng?

Ký tự của mình là ký tự ôm. Để mình kiểm tra lại xem. Cảm ơn

Bài đã được tự động gộp: 27/4/19

Mình vẫn nhập được, chắc do xài UniKey chăng?

Bác có thể viết cho e nhập kí tự ôm vào bất kỳ ô nào cũng dc ạ.

 

[SA_DQ]

Bác có thể viết cho e nhập kí tự ôm vào bất kỳ ô nào cũng dc ạ.

Sub ÔmEm()
Dim Không As String

Không = InputBox("1" & Chr(10) & "2" & Chr(10) & "3", "GPE.COM", "3")
Select Case Không
Case "1"
    [B1].Value = "Ôm "
Case "2"
    [C1].Value = "Em"
Case Else
    [D1].Value = "Yêu"
End Select
End Sub

 

[leonguyenz]

Em bị lỗi khi nhập dữ liệu từ InputBox, Ký tự "Ôm". Mong mọi người giúp đỡ!

View attachment 216069

Thử lệnh sau xem nó hiển thị InputBox ra sao nhé.

InputBox("% = ""1""" & Chr(10) & Chr(212) & "m = ""2""" & Chr(10) & "Ôm = ""3""", "Change your thoughts and you change your world.")

 

[btmnth]

Sub ÔmEm()
Dim Không As String

Không = InputBox("1" & Chr(10) & "2" & Chr(10) & "3", "GPE.COM", "3")
Select Case Không
Case "1"
    [B1].Value = "Ôm "
Case "2"
    [C1].Value = "Em"
Case Else
    [D1].Value = "Yêu"
End Select
End Sub

Thôi chết em nói không rõ các bác hiểu lầm ý em. Ôm của em là ký tự toán học ạ (Ω). Xin lỗi các bác

 

[giaiphap]

Thôi chết em nói không rõ các bác hiểu lầm ý em. Ôm của em là ký tự toán học ạ (Ω). Xin lỗi các bác

Bạn dùng thử lệnh này xem sao?

Application.InputBox (ChrW(8486))

hoặc

Application.InputBox ("% = " & ChrW(34) & "1" & ChrW(34) & " Or " & ChrW(8486) & " = " & ChrW(34) & "2" & ChrW(34))

 

[btmnth]

Bạn dùng thử lệnh này xem sao?

Application.InputBox (ChrW(8486))

hoặc

Application.InputBox ("% = " & ChrW(34) & "1" & ChrW(34) & " Or " & ChrW(8486) & " = " & ChrW(34) & "2" & ChrW(34))

Vâng em cảm ơn. Cho em hỏi vấn đề này với ạ
phanloai = 1 Then
Cells(4, 5).Value = "%"
ElseIf phanloai = 2 Then
Cells(4, 5).Value = "Ω" thì ký tự Ω này vẫn bị lỗi khi ghi vào excel ạ.

 

[CHAOQUAY]

Vâng em cảm ơn. Cho em hỏi vấn đề này với ạ
phanloai = 1 Then
Cells(4, 5).Value = "%"
ElseIf phanloai = 2 Then
Cells(4, 5).Value = "Ω" thì ký tự Ω này vẫn bị lỗi khi ghi vào excel ạ.

Thử thế này

ElseIf phanloai = 2 Then
    Cells(4, 5).Value = "W"
    Cells(4, 5).Font.Name = "Symbol"

 

[btmnth]

Thử thế này

ElseIf phanloai = 2 Then
    Cells(4, 5).Value = "W"
    Cells(4, 5).Font.Name = "Symbol"

Có cách nào không cần định dạng font không ạ, vì em sau đó lại xuất ra sheet khác thì nó không ăn theo. Em cảm ơn

 

[CHAOQUAY]

Có cách nào không cần định dạng font không ạ, vì em sau đó lại xuất ra sheet khác thì nó không ăn theo. Em cảm ơn

bạn ghi macro thao tác insert sybol xem sao. Còn không thì thêm biến ghi nhớ địa chỉ của ô định dạng nguồn, sang sheet mới định dang lại