Đọc ký tự Ω trong VBA của word

Liên hệ QC

phamlehuynh

Thành viên mới
Tham gia
4/8/17
Bài viết
2
Được thích
0
Giới tính
Nam
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
 
Lần chỉnh sửa cuối:
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.
 
Lần chỉnh sửa cuối:
Word hay Excel? Câu hỏi thì giời hiểu... rít rít cài gì...
Mã:
'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
 
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
 
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.
 
Bạn định dạng font symbol là được mà. Mò ký tự chuẩn, sau đó record macro + định dạng là nó ra.
 
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
 
:)) Em đào mộ phát
8Ω của bác viết trong VBA là "8" & ChrW(8486)
 
Web KT
Back
Top Bottom