Public Function VND(BaoNhieu)
Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
Dim l, J, Vitri As Byte, S As Double
Dim Hang, Doc, Dem
If BaoNhieu = 0 Then
KetQua = "Khoâng ñoàng"
Else
If Abs(BaoNhieu) >= 1E+15 Then ' 1E+15 töùc 1.000.000.000.000.000 töùc 1 trieäu tyû
KetQua = "Soá quaù lôùn"
Else
If BaoNhieu < 0 Then
KetQua = "Tröø" & Space(1)
Else
KetQua = Space(0)
End If
SoTien = Format(Abs(BaoNhieu), "##############0.00") '18 digits with 2 decimal
SoTien = Right(Space(15) & SoTien, 18)
Hang = Array("None", "traêm", "möôi", "gì ñoù")
Doc = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "y")
Dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
For l = 1 To 6
Nhom = Mid(SoTien, l * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If l = 5 Then
Chu = "ñoàng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00"
Chu = "chaün"
Case Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
Chu = Space(0)
Hang(3) = Doc(l)
For J = 1 To 3
Dich = Space(0)
S = Val(Mid(Nhom, J, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(J) & Space(1)
End If
Select Case J
Case 2 And S = 1
Dich = "möôøi" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(J) & Space(1)
Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"
Dich = "l" & Mid(Dich, 2) ' Kyù töï en lô
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And l = 4) Then
Dich = "leû" & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End Select
Vitri = InStr(1, Chu, "möôi moät", 1)
If Vitri > 0 Then Mid(Chu, Vitri, 9) = "möôi moát"
KetQua = KetQua & Chu
End If
Next l
End If
End If
VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function
Bạn chịu khó tìm kiếm trên diễn đàn.
OK, giúp bạn đây. Không hiểu bạn tìm thế nào chứ mình thấy topic này ở ngay trang 1
Hình như sửa lại tý tẹo ở [F1] & [B6] là được thôi mà
Có đâu nnhiều name lắm đâu mà bạn đã "hãi" vậy.
Có đâu nnhiều name lắm đâu mà bạn đã "hãi" vậy.
Làm gì đến 1 rừng name
Bạn chỉ cần đọc kỹ tất cả các bài ở topic đó là biết sử dụng thôi.
Biết sử dụng thành thạo đã là OK.
Ưu điểm của dùng name là bạn có thể gửi file đó cho tất cả mọi người dùng excel 2003 trở lên !!! thì không bị lỗi #VALUE ở máy khác do máy khác không có code hoặc add in.
Bạn có thể tham khảo add in của anh Nguyễn Duy Tuân. Đọc số âm 1 cách ngon lành.
Test thử số thầy Siwtom đưa nó đọc kết quả sai bét.
Sửa lại 1 chút thì nó lại đọc đúng thầy ạ!
Nếu dữ liệu chỉ như File đính kèm thì chỉ cần đơn giản như sau:
Bạn xem thử File đính kèm!
Công thức này mình làm dựa theo dữ liệu bạn đưa lên thôi, nếu có thêm nhiều dữ liệu thì công thức không đúng nữa đâu. Bạn đưa dữ liệu thật lên đi tôi làm giúp cho.
Hôm nọ bảo giúp bạn mà mình bận quá! Bạn xem thử, có gì hồi âm lại ngay nhé!
thử công thức này xem sao
=IF($B3=0,0,IF(OR(OFFSET(Sheet2!$B$1,MATCH($B$2,Sheet2!$A$2:$A$500,0)+ROW(1:1)-1,-1,,)=0,OFFSET(Sheet2!$B$1,MATCH($B$2,Sheet2!$A$2:$A$500,0)+ROW(1:1)-1,-1,,)=$B$2),OFFSET(Sheet2!$B$1,MATCH($B$2,Sheet2!$A$2:$A$500,0)+ROW(1:1)-1,,,),0))
=0;OFFSET(Sheet2!$B$1;MATCH($B$2;Sheet2!$A$2:$A$500;0)+ROW(4:4)-1;-1;=$B$2);OFFSET(Sheet2!$B$1;MATCH($B$2;Sheet2!$A$2:$A$500;0)+ROW(4:4)-1;;;0)) 
Bạn xem thử file này:
