Xóa chữ " chẵn " trong VBA chuyển số thành chữ.

[vanthi1991]

Public Function HIEU(BaoNhieu) ' doc so viet nam dong Unicode
If Val(BaoNhieu) = 0 Then
Ketqua = "Không " & ChrW(273) & ChrW(7891) & "ng"
Else
If Abs(BaoNhieu) > 1E+15 Then
Ketqua = "S" & ChrW(7889) & " quá l" & ChrW(7899) & "n"
Else
If BaoNhieu < 0 Then Ketqua = "Âm" & Space(1) Else Ketqua = Space(0)
SOTIEN = Format(Abs(BaoNhieu), "###############0.00")
SOTIEN = Right(Space(15) & SOTIEN, 18)
Hang = Array("None", "tr" & ChrW(259) & "m", "m" & ChrW(432) & ChrW(417) & "i", "gì " & ChrW(273) & "ó")
DonVi = Array("None", "ngàn t" & ChrW(7927) & "", "t" & ChrW(7927) & "", "tri" & ChrW(7879) & "u", "ngàn", "" & ChrW(273) & ChrW(7891) & "ng", "xu")
Dem = Array("None", "m" & ChrW(7897) & "t", "hai", "ba", "b" & ChrW(7889) & "n", "n" & ChrW(259) & "m", "sáu", "b" & ChrW(7843) & "y", "tám", "chín")
For n = 1 To 6
Nhom = Mid(SOTIEN, n * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If n = 5 Then
Chu = ChrW(273) & ChrW(7891) & "ng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00", ",00"
Chu = "ch" & ChrW(7861) & "n"
Case Else
S1 = Left(Nhom, 1): S2 = Mid(Nhom, 2, 1): S3 = Right(Nhom, 1)
Chu = Space(0): Hang(3) = DonVi(n)
For K = 1 To 3
Dich = Space(0): S = Val(Mid(Nhom, K, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(K) & Space(1)
Else
If K = 1 And n > 1 And n < 6 And Val(Mid(SOTIEN, (n - 1) * 3 - 2, 3)) > 0 Then
Dich = "không" & Space(1) & Hang(K) & Space(1)
End If
End If
Select Case K
Case 2 And S = 1
Dich = "m" & ChrW(432) & ChrW(417) & "i" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(K) & Space(1)
Case 3 And S = 5 And Val(S2) > 2
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If n > 1 And Val(Mid(SOTIEN, (n - 1) * 3 - 2, 3)) > 0 Or (Val(S1) > 0) Then
Dich = "l" & ChrW(7867) & "" & Space(1)
End If
End Select
Chu = Chu & Dich
Next K
End Select
ViTri = InStr(1, Chu, "m" & ChrW(432) & ChrW(7901) & "i m" & ChrW(7897) & "t")
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW(432) & ChrW(417) & "i m" & ChrW(7889) & "t"
Ketqua = Ketqua & Chu
End If
Next n
End If
End If
HIEU = UCase(Left(Ketqua, 1)) & Trim(Mid(Ketqua, 2))
End Function

View more random threads:

• Lập công thức tổng quát
• Help me!
• Cao thủ vào giúp em với ạ
• Nhờ giúp dùm hàm VBA Index có nhiều điều kiện
• xóa dữ liệu nhưng công thức vẫn nhảy
• cách tạo đồng hồ
• Xin giúp chèn hình có điều kiện và chèn chú thích vào ô
• print nhieu sheet trong excel
• Đồng thời có thể nhập dữ liệu từ hai PC khác nhau lên một sheet (Excel)
• nhờ giúp tính số tiền cần đầu tư , biết lãi suất và số năm

[mallboro]

Đoạn code trên bạn tìm và sửa dòng này:

Chu = "ch" & ChrW(7861) & "n"

Thành

Chu = ""

Là được.