lỗi khi copy ký tự đặc biệt là dấu tích trong excel sang VBA thì hiện dấu chấm hỏi

[hoangpheo290193]

Chào các bác ở trong diễn đàn. Chuyện là em muốn viết vba có dấu tích ở ô mình chọn. Nhưng em copy ký tự ấy vào vba thì nó cứ hiện dấu chấm hỏi. Em đã thử đổi font từ wingdings sang time newroman để copy thì cũng không được, cứ hiện dấu chấm hỏi. Các cao nhân chỉ giáo giúp em làm thế nào để em hiện đúng cái ký tự mà em mong muốn ở trong VBA được không ạ.
code của em đây ạ:

Code của em là như này các bác nhé
Sub chonall()
If Sheet30.CheckBoxes("Check box 9").Value = 1 Then
Sheet30.Range("O40:O45").Value = "?"
Else
Sheet30.Range("O40:O45").Value = "¨"
End If
End Sub
''''
em muốn là cái dấu tích mà trên VBA cứ copy vào là hiện dấu chấm hỏi. Ký tự em muốn là dấu tích, trên excel có font trên Time là như này ạ: "þ"
Em cảm ơn các bác đã giúp đỡ ạ!

 

[Hai Lúa Miền Tây]

Chào các bác ở trong diễn đàn. Chuyện là em muốn viết vba có dấu tích ở ô mình chọn. Nhưng em copy ký tự ấy vào vba thì nó cứ hiện dấu chấm hỏi. Em đã thử đổi font từ wingdings sang time newroman để copy thì cũng không được, cứ hiện dấu chấm hỏi. Các cao nhân chỉ giáo giúp em làm thế nào để em hiện đúng cái ký tự mà em mong muốn ở trong VBA được không ạ.
code của em đây ạ:

Sub chonall()
If Sheet30.CheckBoxes("Check box 9").Value = 1 Then
Sheet30.Range("o4045").Value = "?"
Else
Sheet30.Range("o4045").Value = "¨"
End If
End Sub
''''
em muốn là cái dấu tích mà trên VBA cứ copy vào là hiện dấu chấm hỏi. Ký tự em muốn là dấu tích, trên excel có font trên Time là như này ạ: "þ"
Em cảm ơn các bác đã giúp đỡ ạ!

Bạn thử như sau

Msgbox Chr(254)

 

[hoangpheo290193]

Bạn thử như sau

Msgbox Chr(254)

là sao bác, e chèn code này vào à bác. Bác nói cho e hiểu rõ hơn được không ạ. em cảm ơn

 

[batman1]

là sao bác, e chèn code này vào à bác. Bác nói cho e hiểu rõ hơn được không ạ. em cảm ơn

Gặp những người không biết biến tấu thì phục vụ tới tận bàn vẫn chưa đủ. Phải bón cho ăn luôn

Sub chonall()
If Sheet30.CheckBoxes("Check box 9").Value = 1 Then
Sheet30.Range("O40:O45").Value = Chr(254)
Else
Sheet30.Range("O40:O45").Value = "¨"
End If
End Sub

Tức Sheet30.Range("O40:O45").Value = Chr(254)

 

[Nhattanktnn]

là sao bác, e chèn code này vào à bác. Bác nói cho e hiểu rõ hơn được không ạ. em cảm ơn

Để font chữ từ O40:O45 là font wingdings

Sheet30.Range("O40:O45").Value = chrw(254)

 

[hoangpheo290193]

Gặp những người không biết biến tấu thì phục vụ tới tận bàn vẫn chưa đủ. Phải bón cho ăn luôn

Sub chonall()
If Sheet30.CheckBoxes("Check box 9").Value = 1 Then
Sheet30.Range("O40:O45").Value = Chr(254)
Else
Sheet30.Range("O40:O45").Value = "¨"
End If
End Sub

Tức Sheet30.Range("O40:O45").Value = Chr(254)

Ui, em cảm ơn bác nhé. Em mù VBA lắm. Cảm ơn bác rất nhiều ạ!

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

Để font chữ từ O40:O45 là font wingdings

Sheet30.Range("O40:O45").Value = chrw(254)

em cảm ơn bác nhé. Em gà mờ quá.