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

  • Thread starter Thread starter infes
  • Ngày gửi Ngày gửi
Liên hệ QC
bạn xem lại phần chuyển đổi sang USDVN và USD nhé, mình chuyển mà không được. Cảm ơn
 
Em có code hàm số ra chữ bằng tiền việt, sau đó em có sửa ngôn ngữ lại thành các loại ngoại tệ khách như: dollar Úc, Canada, Euro, vàng. nhưng mỗi loại phải cần 1 modelu để chạy. em nhờ các bác viết ngắn gọn hơn chỉ dùng 1 đoạn code mà có thể dùng được các hàm số ra các ngoại tệ và cả tiền việt. (file code đính kèm). nếu được xin các bác giải thích dùm em, vì em mới vọt cái code nên chưa biết nhiều "linh mới hoàn toàn". xin cảm ơn
 

File đính kèm

vanle33 đã viết:
Cách sử dụng hàm của bạn như thế nào thế?
Mình thấy định đạng của file không phải là add in?
Có thể add in vào excel không?
Nhấp chuột vào đây để mở rộng...
nó gồm 5 hàm: =sorachu( ); =sorausd ( ); =soraaud( ); = soraeur( ); = sorasjc( )
đúng rồi file này ko định dạng add in, có thể addin được.
 
vanle33 đã viết:
Mình thấy vẫn còn chữ "chẵn" và không có dấu chấm mà
Nhấp chuột vào đây để mở rộng...
Sorry nhe chiều mình bận quá sửa rồi mà up ko coi lại,
mình up lại bạn xem đúng ý chưa.

các pro ơi bảng mã chữ (Ỉ) của uni là bao nhiêu vậy, em chỉ tìm được chữ (i) là 69, còn chữ ('i') là 8b, nhưng tìm hòai ko được chữ (ỉ). mong các pro chỉ giáo.
 
Chỉnh sửa lần cuối bởi điều hành viên:
thomtv đã viết:
Sorry nhe chiều mình bận quá sửa rồi mà up ko coi lại,
mình up lại bạn xem đúng ý chưa.

các pro ơi bảng mã chữ (Ỉ) của uni là bao nhiêu vậy, em chỉ tìm được chữ (i) là 69, còn chữ ('i') là 8b, nhưng tìm hòai ko được chữ (ỉ). mong các pro chỉ giáo.
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo nhé:
Ký tự|Mã Dec|Mã Hex
i|105|69
í|237|ED
ì|236|EC
ỉ|7881|1EC9
ĩ|297|129
ị|7883|1ECB
I|73|49
Í|205|CD
Ì|204|CC
Ỉ|7880|1EC8
Ĩ|296|128
Ị|7882|1ECA
Để lấy mã của các ký tự Unicode, bạn dùng hàm AscW trong VBA nhé.
 
vanle33 đã viết:
Có thể dung lượng file đính kèm của bạn không đủ để up hoăc dung lượng file của bạn lớn hơn giới hạn cho phép? Bạn kiểm tra lại xem
Nhấp chuột vào đây để mở rộng...
bạn xem lại nhe!

có ai trả lời em bài #124 với
"nhưng mỗi loại phải cần 1 modelu để chạy. em nhờ các bác viết ngắn gọn hơn chỉ dùng 1 đoạn code mà có thể dùng được các hàm số ra các ngoại tệ và cả tiền việt. "
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
thomtv đã viết:
bạn xem lại nhe!

có ai trả lời em bài #124 với
"nhưng mỗi loại phải cần 1 modelu để chạy. em nhờ các bác viết ngắn gọn hơn chỉ dùng 1 đoạn code mà có thể dùng được các hàm số ra các ngoại tệ và cả tiền việt. "
Nhấp chuột vào đây để mở rộng...
1) Bài của bạn là #123 nhé! hiii
2) add in đã đúng ý mình. Nhưng bạn chỉ cho mình chỉnh ngay trong Code để dấu chấm nằm sát cạnh chữ "đồng" chứ không cách ra 1 khoảng trắng như thế?
3) Mình thử với số này 32457058050 ra kết quả thế này "Ba mươi hai tỷ, bốn trăm năm mươi bảy triệu, năm mươi tám ngàn, năm mươi đồng ." Bạn chỉnh Code để nó ra kết quả thế này nhé "Ba mươi hai tỷ, bốn trăm năm mươi bảy triệu, không trăm năm mươi tám ngàn, không trăm năm mươi đồng." nhé! Chỉ thêm hai chữ "không"
Thanks
 
Lần chỉnh sửa cuối:
Mình up lại dấu "chấm" được đưa sát vào, còn đọc thêm số "không" nữa thì cái này nhờ các bác pro chỉnh dùm lại 1 tí. Cảm ơn
 

File đính kèm

thomtv đã viết:
hàm của bài #111 là =vnd(), cấu trúc giống như hàm mình gửi, nhưng không dọc số thập phân và không phân cách dấu (,).
Nhấp chuột vào đây để mở rộng...
Thế không phải là bài mình cần rồi
1) Mình muốn có dấu phảy phân cách phần nghìn
2) Và có chữ "đồng" cuối cùng
3) Và có 1 dấu chấm sát cạnh chữ "đồng"
 
vanle33 đã viết:
Thế không phải là bài mình cần rồi
1) Mình muốn có dấu phảy phân cách phần nghìn
2) Và có chữ "đồng" cuối cùng
3) Và có 1 dấu chấm sát cạnh chữ "đồng"
Nhấp chuột vào đây để mở rộng...
Mình nghĩ code này không quá khó đâu! Bạn có thể tự tìm hiểu được mà. Khi mình chưa biết gì về VBA, đoạn code VBA đầu tiên mình tiếp xúc chính là hàm đọc số này, trong 1 ngày tìm hiểu mình đã sửa được code theo ý mình. Hãy chủ động thay vì chờ đợi bạn ạ.
 
Lần chỉnh sửa cuối:
vanle33 đã viết:
Mình hỏi thêm . Đây là Code?
Nhưng có thể add in vào excel không ?
Vì mình thấy định đạng file này không phải là file add in. Các bạn có cách nào chuyển thành file add in để add vào excel không?
Nhấp chuột vào đây để mở rộng...

Bạn xem file hướng dẫn addin đính kèm nhé!
đây là file hướng dẫn mình vọt, được search trên web mình quên tên tác giả, xin cảm ơn tác giả đã viết. mình ko biết rành về code, nhưng tìm hiều trên GPE rồi đưa bảng mã vào thì thực hiện
nếu thực hiện được xin cho 1 lần cảm ơn.
 

File đính kèm

Các bác ơi, mình đã tải được Doiso.xla rồi nhưng chưa biết cách cài đặt nơi, máy nình cài win2010, Bác nào biết chỉ giúp mình với nhé_thanks nhiều nhiều
 
Anh ơi nếu muốn dùng code này thì em phải copy đoạn này vào phần nào anh có thể hướng dẫn em được không ạh. Em cảm ơn nhiều

phamduylong đã viết:
Đây là hàm đổi số ra chữ cho 3 bảng mã :
Unicode: hàm DocSoUni
Vni Window: hàm DocSoVni
TCVN3 ABC: hàm DocSoAbc
Các bạn có thể tải tập tin DocsoVn.zip có sẳn 3 hàm trên.

Mã: 
'=====================
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
Nhấp chuột vào đây để mở rộng...
 
Các bạn ơi, mình làm lương có số lẻ đằng sau ex: 15.000.000,25...
Trong bảng lương mình chỉ lấy đến 15.000.000 thôi, nhưng khi đưa =vnd(số) trên thì đọc là Mười lăm triệu, hai lăm xu.. Giúp mình với, làm sao bỏ được cái đoạn xu..., không đọc phần lẻ nữa. Cảm ơn cả nhà nhá.
 
luckypig5 đã viết:
Các bạn ơi, mình làm lương có số lẻ đằng sau ex: 15.000.000,25...
Trong bảng lương mình chỉ lấy đến 15.000.000 thôi, nhưng khi đưa =vnd(số) trên thì đọc là Mười lăm triệu, hai lăm xu.. Giúp mình với, làm sao bỏ được cái đoạn xu..., không đọc phần lẻ nữa. Cảm ơn cả nhà nhá.
Nhấp chuột vào đây để mở rộng...
Bạn round nó lại
VD: vnd(round(conso,0)) => vnd(round(15.000.000,25,0))
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

dinhnhat91
  • Question Question
VBA Lỗi runtime error 9 subscript out of range
Trả lời
2
Đọc
33
ongke0711
ongke0711
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
1
Đọc
493
PhanTuHuong
PhanTuHuong
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
0
Đọc
45
Việt Nguyễn 86
Việt Nguyễn 86
K
Mong giúp dữ liệu từ trang web sang excel
Trả lời
0
Đọc
48
khanhvinhdai1
K
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
3
Đọc
1K
trung_bhxh
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
Trả lời
0
Đọc
66
trung_bhxh
T
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
52
Đọc
103K
khanhvinhdai1
K
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
    • Yêu thích
Trả lời
3
Đọc
1K
Skyler113
Skyler113
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
105
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
78
vanle33
vanle33
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
40
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
123
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
82
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
139
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
127
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
133
VetMini
V
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
417
A HOANG 620
A
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom