Anh, Chị giúp em nhe,cho em xin file đổi số thành chữ,cố nội dung là : Tổng số tiền ghi bằng chữ :...............................................em cám ơn Anh,Chị rất nhiều.
nhan phim Atl+11 mơ module roi paste đoạn code dưới vao, module sau đó lưu lại
về sau muốn sự dung ham chỉ cần nhập công thức : DSOTIEN(SOTIEN) ENTER LA OK
View attachment DOCSOTIEN.xlsx
Public Function Dsotien(sotien As Single)
Dim a, b, X, Y As Single, Dso, Ddv, So, Dv, doc As String
a = Fix(Val(sotien))
b = Len(Trim(a))
X = 1
Y = (b) - 1
doc = ""
Do
So = Array("Khoâng", "Moät", "Hai", "Ba", "Boán", "Naêm", "Saùu", "Baûy", "Taùm", "Chín")
Dso = So(Mid(a, X, 1))
Dv = Array("", "möôi", "traêm", "nghìn", "möôi", "traêm", "trieäu", "möôi", "traêm", "tyû", "möôi", "traêm", "nghìn", "möôi nghìn", "traêm nghìn")
Ddv = Dv(Y)
If (Dso = "Moät" And Ddv = "möôi" And Mid(a, X, 1) <> 0) Then
Ddv = "möôøi"
doc = doc & Space(1) & Ddv
Else
If Mid(a, X, 1) = 0 Then
If X < 6 Then
If (Y = 3 Or Y = 6 Or Y = 9 Or Y = 12 Or Y = 15) Then
doc = doc & Space(1) & Ddv
Else
doc = doc
End If
Else
If Mid(a, X - 2, 2) <> "00" And (Y = 3 Or Y = 6 Or Y = 9 Or Y = 12 Or Y = 15) Then
doc = doc & Space(1) & Ddv
Else
doc = doc
End If
End If
Else
doc = doc & Space(1) & Dso & Space(1) & Ddv
End If
End If
X = X + 1
Y = Y - 1
Loop Until Y < 0
Dsotien = doc & " ñoàng"
End Function
View attachment DOCSOTIEN.xlsx
