Đọc ký tự Ω trong VBA của word (1 người xem)

[phamlehuynh]

Chào mọi người ,

Mình đọc giá trị trong 1 ô có ký tự Ω thì ra "?" .Ví dụ : mình có ô B16 = 8 Ω nhưng khi VBA đọc thì = "8?"

Sub test()
Dim value As String
value = Range("B16").Value
' kết quả value = "8?"
End Sub

Nhờ mọi người giúp để có thể lấy được value = 8Ω .

Cám ơn

 

[vanle33]

Chào mọi người ,

M

Nhờ mọi người giúp để có thể có value = 8Ω .

Cám ơn

Có nhiều cách để có chữ 8Ω trong 1 cell.
Ví dụ bạn nhập chữ 8W rồi chọn font là Symbol là có chữ 8Ω . OK?
ps: Excel hay Word đều có thể dùng cách trên.

 

[befaint]

read giá trị

Word hay Excel? Câu hỏi thì giời hiểu... rít rít cài gì...

'Trong VBA:
AscW("Ω") =8486
ChrW(8486) ="Ω"

'Trên bảng tính (Excel 2013 trở lên):
=UNICODE("Ω") =8486
=UNICHAR(8486) ="Ω"

 

[phamlehuynh]

Word hay Excel? Câu hỏi thì giời hiểu... rít rít cài gì...

'Trong VBA:
AscW("Ω") =8486
ChrW(8486) ="Ω"

'Trên bảng tính (Excel 2013 trở lên):
=UNICODE("Ω") =8486
=UNICHAR(8486) ="Ω"

Mình có ô B16 là 8Ω . Nhưng trong VBA đọc ra giá trị là là "8? "
value = Range("B16").Value
' kết quả value = "8?"
Mình muốn hỏi cách làm sao để đọc được giá trị là value = "8Ω" .
Cám ơn

 

[HieuCD]

Mình có ô B16 là 8Ω . Nhưng trong VBA đọc ra giá trị là là "8? "
value = Range("B16").Value
' kết quả value = "8?"
Mình muốn hỏi cách làm sao để đọc được giá trị là value = "8Ω" .
Cám ơn

Bạn đọc hay VBA đọc?

thử
value = Range("B16").Value
Range("B18").Value = value
đọc ô B18

 

[befaint]

làm sao để đọc được giá trị là value = "8Ω"

"đọc" ở đây được hiểu như nào?
Trong môi trường VBA không hỗ trợ (không hiển thị được) mấy cái ký tự đó và các ký tự unicode có dấu.
- Gõ cái ký tự Ω đó trong VBA còn không được.
- MsgBox ChrW(8486) thì cũng không hiển thị được.

 

[PhanTuHuong]

Bạn định dạng font symbol là được mà. Mò ký tự chuẩn, sau đó record macro + định dạng là nó ra.

 

[ndu96081631]

Mình có ô B16 là 8Ω . Nhưng trong VBA đọc ra giá trị là là "8? "
value = Range("B16").Value
' kết quả value = "8?"
Mình muốn hỏi cách làm sao để đọc được giá trị là value = "8Ω" .
Cám ơn

Thật ra thì VBA nó đọc được rồi đấy. Vấn đề là sau khi đọc xong, bạn định làm gì tiếp?
1> Nếu muốn hiển thị ra Msgbox thì không được (muốn thì phải dùng 1 loại MsgBox khác)
2> Nếu để gán vào chỗ nào đó sau khi đọc thì hoàn toàn không có vấn đề
Ngoài ra, bạn cũng không thể gõ ký tự Unicode trong cửa sổ VBA

 

[tuanngo302]

) Em đào mộ phát
8Ω của bác viết trong VBA là "8" & ChrW(8486)