Mình đoán là máy chưa được cài add in Đổi số
Lỗi VALUE là báo lỗi excel không hiểu hàm bạn nhập vào (hàm vnd() đó).
Mình không tải được file . Bạn bỏ add in đó đi
Trong file của bạn có 1 rừng name rác gây lỗi #REF. Bạn phải gửi cả add in đọc số ra tiếng Anh trong file đó thì mới thử được chứ trong file mình có thấy code của add in nào đâu!
a VANLE33 cho hỏi là làm cách nào bỏ dấu phẩy phân cách giữa hàng nghìn, triệu Ví dụ như: 1.204.652 Một triệu, hai trăm linh bốn nghìn, sáu trăm bẩy mươi hai đồng
Bạn xem lại bài #207 chỉ thay đổi công thức =VND(A1)
Bạn đọc bài #207 chưa?
Bạn lại đọc kỹ topic này để biết tải file nào và cách sử dụng như thế nào. Mình đang dùng thấy OK
có 2 cách để giả quyết vấn đề
l
Còn mấy ngày nữa là bước sang năm Giáp Ngọ! em kính chúc ban quản trị diễn đàn giải pháp excell năm mới sức khỏe dồi dào, tiền vào dủng dỉnh,mã đáo thành công. năm nay em mới bước đi những bước chập chững tới VBA rất mong mọi người giúp em sửa code như thế nào để kết quả như em mong muốn(em đã diễn tả cụ thể trong file đinh kèm). trân thành cảm ơn mọi người đã giúp đỡ em!
Rất mong được các anh chị sử dụng hàm hoặc viết code VBA giúp em!.
Bạn vào đây http://www.giaiphapexcel.com/forum/showthread.php?2048-Đọc-số-thập-phân-(số-lẻ)-như-thế-nào-là-đúng
Add-Ins này đã post nhiều lần rồi! Hàm VND()
Round() thử cái xem thế nào bạn!
Mình đâu thấy hiện ra chữ "Bằng chữ" nào đâu mà cần sửa code để mất chữ "Bằng chữ" nhỉ?!
Chữ chẵn có 4 ký tự..o A1 là số, bạn có thể dùng hàm =left(vnd(A1),len(vnd(A1))-4).
Được rùi. cảm ơn bạn. nhưng cho mình hỏi dùng add-in Acchelper sao không bỏ được chữ chẵn, mặc dù trước đó mình bỏ được
Tôi cũng ko rõ.. mặc định của tác giả là thế rồi.. muốn thay đổi thì mình phải tự chế thôi bạn...
MÌnh đã đổi như vậy rồi nhưng vẫn k được
Có nhiều hàm với code khác nhau, không biết bạn đang dùng hàm nào mà chỉ cho bạn cách sửa nữa!!
Function DocSoVni(conso) As String
s09 = Array("", " moät", " hai", " ba", " boán", " naêm", " saùu", " baûy", " taùm", " chín")
lop3 = Array("", " trieäu", " nghìn", " tyû")
If Trim(conso) = "" Then
DocSoVni = ""
ElseIf IsNumeric(conso) = True Then
If conso < 0 Then dau = "aâm " Else dau = ""
conso = Application.WorksheetFunction.Round(Abs(conso), 0)
conso = " " & conso
conso = Replace(conso, ",", "", 1)
vt = InStr(1, conso, "E")
If vt > 0 Then
sonhan = Val(Mid(conso, vt + 1))
conso = Trim(Mid(conso, 2, vt - 2))
conso = conso & String(sonhan - Len(conso) + 1, "0")
End If
conso = Trim(conso)
sochuso = Len(conso) Mod 9
If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
docso = ""
i = 1
lop = 1
Do
n1 = Mid(conso, i, 1)
n2 = Mid(conso, i + 1, 1)
n3 = Mid(conso, i + 2, 1)
baso = Mid(conso, i, 3)
i = i + 3
If n1 & n2 & n3 = "000" Then
If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " tyû" Else s123 = ""
Else
If n1 = 0 Then
If docso = "" Then s1 = "" Else s1 = " khoâng traêm"
Else
s1 = s09(n1) & " traêm"
End If
If n2 = 0 Then
If s1 = "" Or n3 = 0 Then
s2 = ""
Else
s2 = " linh"
End If
Else
If n2 = 1 Then s2 = " möôøi" Else s2 = s09(n2) & " möôi"
End If
If n3 = 1 Then
If n2 = 1 Or n2 = 0 Then s3 = " moät" Else s3 = " moát"
ElseIf n3 = 5 And n2 <> 0 Then
s3 = " laêm"
Else
s3 = s09(n3)
End If
If i > Len(conso) Then
s123 = s1 & s2 & s3
Else
s123 = s1 & s2 & s3 & lop3(lop)
End If
End If
lop = lop + 1
If lop > 3 Then lop = 1
docso = docso & s123
If i > Len(conso) Then Exit Do
Loop
If docso = "" Then DocSoVni = "khoâng" Else DocSoVni = dau & Trim(docso)
Else
DocSoVni = conso
End If
End Function
'==================================
Function DocSoAbc(conso) As String
s09 = Array("", " mét", " hai", " ba", " bèn", " n¨m", " s¸u", " b¶y", " t¸m", " chÝn")
lop3 = Array("", " triÖu", " ngh×n", " tû", " triÖu", " ngh×n", "")
If Trim(conso) = "" Then
DocSoAbc = ""
ElseIf IsNumeric(conso) = True Then
If conso < 0 Then dau = "©m " Else dau = ""
conso = Application.WorksheetFunction.Round(Abs(conso), 0)
conso = " " & conso
conso = Replace(conso, ",", "", 1)
vt = InStr(1, conso, "E")
If vt > 0 Then
sonhan = Val(Mid(conso, vt + 1))
conso = Trim(Mid(conso, 2, vt - 2))
conso = conso & String(sonhan - Len(conso) + 1, "0")
End If
conso = Trim(conso)
sochuso = Len(conso) Mod 9
If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
docso = ""
i = 1
lop = 1
Do
n1 = Mid(conso, i, 1)
n2 = Mid(conso, i + 1, 1)
n3 = Mid(conso, i + 2, 1)
baso = Mid(conso, i, 3)
i = i + 3
If n1 & n2 & n3 = "000" Then
If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " tû" Else s123 = ""
Else
If n1 = 0 Then
If docso = "" Then s1 = "" Else s1 = " kh«ng tr¨m"
Else
s1 = s09(n1) & " tr¨m"
End If
If n2 = 0 Then
If s1 = "" Or n3 = 0 Then
s2 = ""
Else
s2 = " linh"
End If
Else
If n2 = 1 Then s2 = " mêi" Else s2 = s09(n2) & " m¬i"
End If
If n3 = 1 Then
If n2 = 1 Or n2 = 0 Then s3 = " mét" Else s3 = " mèt"
ElseIf n3 = 5 And n2 <> 0 Then
s3 = " l¨m"
Else
s3 = s09(n3)
End If
If i > Len(conso) Then
s123 = s1 & s2 & s3
Else
s123 = s1 & s2 & s3 & lop3(lop)
End If
End If
lop = lop + 1
If lop > 3 Then lop = 1
docso = docso & s123
If i > Len(conso) Then Exit Do
Loop
If docso = "" Then DocSoAbc = "kh«ng" Else DocSoAbc = dau & Trim(docso)
Else
DocSoAbc = conso
End If
End Function
'===============================
Function DocSoUni(conso) As String
s09 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", " n" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n")
lop3 = Array("", " tri" & ChrW(7879) & "u", " ngh" & ChrW(236) & "n", " t" & ChrW(7927))
'Stop
If Trim(conso) = "" Then
DocSoUni = ""
ElseIf IsNumeric(conso) = True Then
If conso < 0 Then dau = ChrW(226) & "m " Else dau = ""
conso = Application.WorksheetFunction.Round(Abs(conso), 0)
conso = " " & conso
conso = Replace(conso, ",", "", 1)
vt = InStr(1, conso, "E")
If vt > 0 Then
sonhan = Val(Mid(conso, vt + 1))
conso = Trim(Mid(conso, 2, vt - 2))
conso = conso & String(sonhan - Len(conso) + 1, "0")
End If
conso = Trim(conso)
sochuso = Len(conso) Mod 9
If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
docso = ""
i = 1
lop = 1
Do
n1 = Mid(conso, i, 1)
n2 = Mid(conso, i + 1, 1)
n3 = Mid(conso, i + 2, 1)
baso = Mid(conso, i, 3)
i = i + 3
If n1 & n2 & n3 = "000" Then
If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " t" & ChrW(7927) Else s123 = ""
Else
If n1 = 0 Then
If docso = "" Then s1 = "" Else s1 = " kh" & ChrW(244) & "ng tr" & ChrW(259) & "m"
Else
s1 = s09(n1) & " tr" & ChrW(259) & "m"
End If
If n2 = 0 Then
If s1 = "" Or n3 = 0 Then
s2 = ""
Else
s2 = " linh"
End If
Else
If n2 = 1 Then s2 = " m" & ChrW(432) & ChrW(7901) & "i" Else s2 = s09(n2) & " m" & ChrW(432) & ChrW(417) & "i"
End If
If n3 = 1 Then
If n2 = 1 Or n2 = 0 Then s3 = " m" & ChrW(7897) & "t" Else s3 = " m" & ChrW(7889) & "t"
ElseIf n3 = 5 And n2 <> 0 Then
s3 = " l" & ChrW(259) & "m"
Else
s3 = s09(n3)
End If
If i > Len(conso) Then
s123 = s1 & s2 & s3
Else
s123 = s1 & s2 & s3 & lop3(lop)
End If
End If
lop = lop + 1
If lop > 3 Then lop = 1
docso = docso & s123
If i > Len(conso) Then Exit Do
Loop
If docso = "" Then DocSoUni = "kh" & ChrW(244) & "ng" Else DocSoUni = dau & Trim(docso)
Else
DocSoUni = conso
End If
End Function=UPPER(LEFT(docsouni(C12)))&RIGHT(docsouni(C12),LEN(docsouni(C12))-1)&" đồng ."Cám ơn Bạn! Nhưng bạn có thể hướng dẫn mình một cách chi tiết các bước thao tác được không.
Bạn mở file excel. Alt+F11. Insert module/ chép đoạn code trên vào máy. Tại ô có công thức bạn dùng ="Viết bằng chữ"&
UPPER(LEFT(docsouni(C12)))&RIGHT(docsouni(C12),LEN(docsouni(C12))-1)&" đồng ."="Viết bằng chữ: "&UPPER(LEFT(docsouni(H4)))&RIGHT(docsouni(H4),LEN(docsouni(H4))-1)&" đồng ."Bạn làm được chưa. Cho mình mail minh gửi lại file cho , đỡ tốn quota
Rất cám ơn vì sự giúp đỡ nhiệt tình của bạn, nó đã thực sự giúp ích rất nhiều cho tôi. Cảm thấy rất vui khi được tham gia Diễn Đàn cùng mọi người. Chúc Diễn Đàn luôn hoạt động và phát triển tốt.
1) Tôi chưa thấy số nào như số của bạn (dấu phảy ngăn cách phần nghìn)
1) Mac có khác quá nhiều so với Win không bạn?
Chắc bạn người miền nam rồi. Đọc chuẩn ngữ pháp tiếng Việt thì phải là "linh" chứ bạn.
Theo em làm như #270 là chuẩn nhất.
Theo mình thì LẺ hay LINH đều được, tùy theo vùng miền... nhưng chưa ai dám nói cái nào là CHUẨN NGỮ PHÁP cả
Chắc ông đó là fan của "Nhật ký Vàng Anh" rồi.Theo mình thì LẺ hay LINH đều được, tùy theo vùng miền... nhưng chưa ai dám nói cái nào là CHUẨN NGỮ PHÁP cả
Bàn một hồi, có ông Bộ trưởng nào đó tình cờ ghé qua GPE đọc được lại cắc cớ đề xuất bỏ LẺ lấy LINH, khi ấy SỐ LẺ bắt đọc là SỐ LINH, LẺ LOI thành LINH LOI... thì điếc luôn
Ẹc... Ẹc...
Tên em mà là "Lẻ" thì chắc em cũng ủng hộ cái chữ "lẻ" là chuẩn ngữ pháp đấy!! Cơ mà em tên Linh bác ạ!! Có một chút thiên vị!!
dùng cái này xem sao nhé bạn. phím tắt Ctrl + Shift +S
dùng cái này xem sao nhé bạn. phím tắt Ctrl + Shift +S
Cụ thể bị lỗi thế nào, có thể gửi file bị lỗi lên đây mọi người xem cho.
Chổ này nè bạn:
[COLOR=#000000]Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(7927), "t" & ChrW$(7927), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & [/COLOR][COLOR=#000000]Doc = Array("None", "ngh" & ChrW$(236) & "n t" & ChrW$(7927), "t" & ChrW$(7927), "tri" & ChrW$(7879) & "u", "ngh" & ChrW$(236) & "n", ChrW$(273) & [/COLOR]tham khảo #289 xem thế nào bạn.
em tải về nhưng báo lỗi không chạy được ah.
Bạn sử dụng add-ins này sẽ giải quyết được vấn đề của bạn.
rất nhiều tiện ích hay mà giờ em mới biết. về phần đọc số vnd, với những giá trị âm thì hàm vẫn không đọc được là âm.
