Lỗi Font trong VBA giữa Win7 và WinXP
phuonglam1405 > 22-05-12, 02:11 PM
Mình sử dụng hàm đọc số thành chữ (như đính kèm). Mình viết chương trình access tren win7, nhưng khi để sang máy winxp thì bị lỗi font, mình đã chọn font trong option của VBA rồi là arial (vietnamese) rồi và bảng mã là unicode tổ hợp nhưng vẫn ko được, nhưng nếu để sang máy win7 thì đọc ngon lành. Nó đây ạ!
Public Function ChuSoUni(So As Variant) As String
On Error GoTo Exit_ChuSoUni
Dim i As Integer, J As Integer, S As Double, T As String
Dim FI(4) As Integer, FJ(3) As Integer, GI(4) As String, GJ(3) As String
ChuSoUni = ""
So = Int(Abs(So))
If So > 999999999999# Then GoTo Exit_ChuSoUni
S = So
For i = 1 To 4
FI(i) = Right(S, 3)
For J = 1 To 3
FJ(J) = Right(S, 1)
GJ(J) = Choose(FJ(J) + 1, "", " Mét", " hai", " ba", " bèn", " n¨m", " s¸u", " b¶y", " t¸m", " chÝn")
S = Int(S / 10)
Next J
GJ(3) = IIf(FJ(3) > 0, GJ(3) & " tr¨m", "")
GJ(2) = IIf(FJ(2) > 1, GJ(2) & " m¬i", IIf(FJ(2) = 1, " mêi", IIf(FJ(3) > 0 And FJ(1) > 0, " l?", "")))
If FJ(2) > 0 And FJ(1) = 5 Then GJ(1) = " l¨m"
If FJ(2) > 1 And FJ(1) = 1 Then GJ(1) = " mèt"
GI(i) = IIf(FI(i) = 0, "", GJ(3) & GJ(2) & GJ(1) & Choose(i, "", " ngµn,", " triÖu,", " tû,"))
Next i
If So > 1000 And FI(1) > 0 And FI(1) < 10 Then GI(1) = " l?" & GI(1)
T = Trim(GI(4) & GI(3) & GI(2) & GI(1))
ChuSoUni = UCase(Left(T, 1)) & Right(T, Len(T) - 1)
Exit_ChuSoUni:
Exit Function
End Function
Rất mong các thành viên có kinh nghiệm vấn đề này giúp đỡ với, mình đang cần gâp!