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

Chia sẻ bởi:hands
★★★★★
‹ Vận dụng công thức mảng để tính... Add-in Connvert font của OverAC ›
Quảng cáo

Gởi các bạn Add-in: Đổi số sang chữ trong Excel sử dụng font Unicode.
Cách sử dụng:
1. Chép file Doiso.XLA vào thư mục Add-in
Đối với Excel XP trên Windows XP:
C:Documents and SettingsUserNameApplication DataMicrosoftAddIns
Đối với Excel 2000 trên Windows 98:
C:WindowsApplication DataMicrosoftAddIns
Đối với Excel 97 trên Windows 98:
C:Program FilesMicrosoft OfficeOfficeLibrary
2. Khởi động lại Excel, cài đặt add-in vừa tạo cho Excel bằng cách chọn trình đơn Tools Add-Ins để mở hộp thoại Add-Ins, chọn tên add-in " Doiso" trong danh sách Add-Ins available, rồi bấm OK.
3. Hàm sử dụng: vnd(số cần đổi")

Hy vong Add-in này có thể giúp ích cho các bạn.

www.giaiphapexcel.com/diendan/threads/add-in-%C4%90%E1%BB%95i-s%E1%BB%91-sang-ch%E1%BB%AF-trong-excel-s%E1%BB%AD-d%E1%BB%A5ng-font-unicode.1017/

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ
Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học
★★★★★ 5 ★ 1 👤 3 ▥ 0
‹ Vận dụng công thức mảng để tính FIFO Add-in Connvert font của OverAC ›
Quảng cáo

Bạn nên đọc

3 Responses

  1. hands says:
    04/03/2007 at 9:02 am

    Trả lời:

    SG nói thêm ở bước 3. Giả sử bạn cần đọc ô A1=12345 .

    -Nếu bạn muốn đọc số bằng tiếng việt thì bạn gõ:

    =vnd(A1)
    –> kết quả: Mười hai ngàn ba trăm bốn mươi lăm đồng chẵn.

    -Nếu bạn muốn đọc số tiền USD bằng tiếng việt thì bạn gõ:

    =usvn(A1)
    –> kết quả:Mười hai ngàn ba trăm bốn mươi lăm đôla chẵn.

    -Nếu bạn muốn đọc số tiền USD bằng tiếng anh thì bạn gõ:

    =usd(A1)
    –> kết quả:Twelve thousand three hundred forty five dollars only.


    Chú ý:     Các bạn nhớ gõ bài có dấu nha!.

    http://www.giaiphapexcel.com/diendan/threads/add-in-%C4%90%E1%BB%95i-s%E1%BB%91-sang-ch%E1%BB%AF-trong-excel-s%E1%BB%AD-d%E1%BB%A5ng-font-unicode.1017/post-9928

    Reply
  2. hands says:
    03/05/2007 at 9:03 am

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

    '=====================
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

    http://www.giaiphapexcel.com/diendan/threads/add-in-%C4%90%E1%BB%95i-s%E1%BB%91-sang-ch%E1%BB%AF-trong-excel-s%E1%BB%AD-d%E1%BB%A5ng-font-unicode.1017/

    -Nếu bạn muốn đọc số tiền USD bằng tiếng việt:

    +Font Unicode thì bạn gõ: =DocSoUni(A1)

    +Font Vni Window thì bạn gõ: =DocSoVni(A1)

    +Font Vni Window thì bạn gõ: =DocSoAbc(A1)

    Reply
  3. hands says:
    08/05/2007 at 9:04 am

    Tôi cũng có một cái addin dùng để chuyển từ số sang chữ( Tôi không nhớ tên tác giả). Có thể chuyển số sang chữ tiếng bằng Việt và Tiếng Anh.

    Cú pháp:
    =VND(giá trị,true) : để chuyển đổi đơn vị tiền tệ
    =VND(giá trị) : để chuyển đổi số thông thường
    =USD(giá trị,true) : để chuyển đổi đơn vị tiền tệ
    =USD(giá trị) : để chuyển đổi số thông thường
    ————————————————————
    De vnTools hoat dong, may tinh cua ban can Windows XP va MS Excel XP tro len.

    Cai dat vnTools Add-In, ban thao tac nhu sau :
    1/ Chay file vnTools.exe va chi dinh den mot thu muc nao do tren o dia cung may tinh cua ban. Mac dinh, duong dan se la ..Program FilesvnTools
    2/ Khoi dong Excel voi mot Workbook bat ky nao do.
    3/ Goi menu : Tools – Add-Ins va nhap chuot len nut Browser. Duyet tim den thu muc chua Add-in ma ban vua cai vao may tinh. Chon no (tap tin: Ufunctions.xla), sau do nhan nut OK.
    4/ Chac chan rang tren hop thoai Add-Ins cua Excel, da co xuat hien ten NTD's Tools va dau kiem (checkBox) lua chon.
    5/ Nhap nut OK. Bay gio Add-in da duoc cai dat
    ——————————————–
    Lưu ý nếu bạn dùng BKAV thì bỏ chế độ " diệt không cần hỏi đi nhé"

    http://www.giaiphapexcel.com/diendan/threads/add-in-%C4%90%E1%BB%95i-s%E1%BB%91-sang-ch%E1%BB%AF-trong-excel-s%E1%BB%AD-d%E1%BB%A5ng-font-unicode.1017/post-12955

    Reply

Leave a Reply

Your email address will not be published. Required fields are marked *

Quảng cáo
▣ Excel Ứng Dụng

Cũ vẫn chất

Vận dụng công thức mảng để tính FIFO Vận dụng công thức mảng để tính FIFO Mẫu bài tuyên truyền kỷ niệm 50 năm Giải phóng miền Nam 30 4 2025? Mẫu bài tuyên truyền kỷ niệm 50 năm Giải phóng miền Nam 30 4 2025? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu?

Xem thêm