Add-in: Đổi số sang chữ trong Excel sử dụng font Unicode

[bongmaihung]

Cám ơn Bạn rất nhiều, nhưng mình hơi kém khoản này, lại đang rất cần file này để làm việc. Bạn rảnh có thể chỉnh sửa giúp mình qua teamviewer được không.

Bạn làm được chưa. Cho mình mail minh gửi lại file cho , đỡ tốn quota

 

[tranquynh2509]

Mình đã cố thực hiện theo bạn hướng dẫn, nhưng không được, có lẽ do mình thao tác không đúng. Thật phiền bạn quá, nhưng nếu được bạn có thể cho mình xin SĐT và giúp mình cài lại qua teamviewer được không. Cám ơn bạn nhiều.

 

[tranquynh2509]

Cám ơn bạn, đây là đc mail của mình " Tranquynh2509@gmail.com"

 

[bongmaihung]

Cám ơn bạn, đây là đc mail của mình " Tranquynh2509@gmail.com"

Spam chút: Bạn check mail nhé
Spam

 

[tranquynh2509]

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.

 

[tieuhoangtu186]

excel 2010 van ko áddin dc. addin nao cho 2010 ,, cho xin a

 

[honglien1993]

Bài viết thật hay cám ơn bạn nha

 

[Chất Độc]

Em tìm không thấy add in phù hợp với yêu cầu cho mình, ai cho e xin add in với mẫu như sau:
123,004,005
Một trăm hai mươi ba triệu, không trăm lẻ bốn ngàn, không trăm lẻ năm đồng.

Em cám ơn nhiều!

 

[vanle33]

Em tìm không thấy add in phù hợp với yêu cầu cho mình, ai cho e xin add in với mẫu như sau:
123,004,005
Một trăm hai mươi ba triệu, không trăm lẻ bốn ngàn, không trăm lẻ năm đồng.

Em cám ơn nhiều!

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)
2) Hãy dùng add in của anh Nguyen duy tuan với công thức =VND(A1;;;;;TRUE) là ra kết quả đúng yêu cầu của bạn!

 

[Chất Độc]

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)
2) Hãy dùng add in của anh Nguyen duy tuan với công thức =VND(A1;;;;;TRUE) là ra kết quả đúng yêu cầu của bạn!

E có tìm được add in tự đếm không trăm, chỉnh sữa tý nhưng công thức gốc của nó lại đếm số lẻ bằng linh, e tìm mãi chả thay được từ linh bằng từ lẻ

Đây công thức của add in đó

Function dsa(conso, Optional doiso1 = " linh", Optional doiso2 As Byte = 0) As Stringdoiso1 = " " & Trim(doiso1)
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
dsa = ""
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 = doiso1
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 dsa = "kh«ng" Else dsa = Dau & Trim(DocSo)
Else
dsa = conso
End If
If doiso2 = 0 Then dsa = UCase(Left(dsa, 1)) & Mid(dsa, 2)
If dsa <> "" Then dsa = dsa & " " & "®ång ch½n./"
End Function
'===============================
Function dsu(conso, Optional doiso1 = " linh", Optional doiso2 As Byte = 0) As String
doiso1 = " " & Trim(doiso1)
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" & ",", " ngàn" & ",", " t" & ChrW(7927))
'Stop
If Trim(conso) = "" Then
dsu = ""
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 = doiso1
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 dsu = "kh" & ChrW(244) & "ng" Else dsu = Dau & Trim(DocSo)
Else
dsu = conso
End If
If doiso2 = 0 Then dsu = UCase(Left(dsu, 1)) & Mid(dsu, 2)
If dsu <> "" Then dsu = dsu & " " & ChrW(273) & ChrW(7891) & "ng."
End Function

 

[Kiều Mạnh]

To Chất Độc Lẻ và linh tìm trên GPE nhiều lắm mà Bạn Làm biếng tìm hay sao ấy

 

[hancuong]

Bạn làm được chưa. Cho mình mail minh gửi lại file cho , đỡ tốn quota

Chào bạn!
Mình thực hiện cài đặt được nhưng bị báo lỗi do sử dụng Win 7 64 bít. Bạn có bộ cài nào dành cho win 64bit cho mình xin qua mail. Cuonghn.bk@gmail.com.

Cảm ơn bạn nhiều!

 

[ndhuan118]

Cả nhà ở cho em hỏi, mấy cái add-In đổi số sang chữ này có cái nào dành cho Excel cài trên Mac không. Cho em với!!!

 

[vanle33]

Cả nhà ở cho em hỏi, mấy cái add-In đổi số sang chữ này có cái nào dành cho Excel cài trên Mac không. Cho em với!!!

1) Mac có khác quá nhiều so với Win không bạn?
2) Tôi nghĩ add in "đổi số sang chữ" chỉ dùng trong excel thì trên bất cứ hệ điều hành nào cũng hoạt động. Đó là 1 thành phần của excel.
Không lẽ người viết hệ điều hành Mac chỉ cho phép một số phần mềm của riêng họ hoạt động trên Mac. Đó là tính chất "cục bộ". Nếu đúng thì gỡ bỏ Mac ngay và luôn đi bạn để chuyển sang hệ điều hành thông dụng là Win.

 

[vu_tuan_manh_linh]

E có tìm được add in tự đếm không trăm, chỉnh sữa tý nhưng công thức gốc của nó lại đếm số lẻ bằng linh, e tìm mãi chả thay được từ linh bằng từ lẻ

Đây công thức của add in đó

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.
Nhân tiện đào mồ cái topic này, gửi bà con add-in đọc số font unicode chuẩn ngữ pháp tiếng Việt. Cụ tỷ như sau:
Hàng trăm =0 thì đọc "không trăm"
Hàng chục =0 thì đọc "linh"
Hàng đơn vị =5 mà hàng chục <>0 thì đọc là "lăm"
Hàng đơn vị =1 mà hàng chục >1 thì đọc là "mốt"
Hàng đơn vị =4 mà hàng chục <>1 thì đọc là "tư"

 

[ndu96081631]

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.

Cái vụ này phải xem lại nha!
Tôi thì chẳng nghe ai nói chữ "LINH" là chuẩn ngữ pháp cả
Tôi cũng nghe nhiều người miền Bắc đọc "lăm" là "nhăm" đấy nhé

 

[vanle33]

Cái vụ này phải xem lại nha!
Tôi thì chẳng nghe ai nói chữ "LINH" là chuẩn ngữ pháp cả
Tôi cũng nghe nhiều người miền Bắc đọc "lăm" là "nhăm" đấy nhé

Theo em làm như #270 là chuẩn nhất.
Ví dụ: 105708501 sẽ đọc là Một trăm lẻ năm triệu bảy trăm lẻ tám nghìn năm trăm lẻ một đồng.
Phải không bác?

 

[ndu96081631]

Theo em làm như #270 là chuẩn nhất.
Ví dụ: 105708501 sẽ đọc là Một trăm lẻ năm triệu bảy trăm lẻ tám nghìn năm trăm lẻ một đồng.
Phải không bác?

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...

 

[Hau151978]

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...

Chắc ông đó là fan của "Nhật ký Vàng Anh" rồi.

 

[vu_tuan_manh_linh]

Cái vụ này phải xem lại nha!
Tôi thì chẳng nghe ai nói chữ "LINH" là chuẩn ngữ pháp cả
Tôi cũng nghe nhiều người miền Bắc đọc "lăm" là "nhăm" đấy nhé

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ị!!
P/s: Cái vụ đọc số này em học từ ngày cấp 1, thầy cô dạy thì chắc là chuẩn rồi!