Add-in: Đổi số sang chữ trong Excel sử dụng font Unicode (1 người xem)

  • Thread starter Thread starter infes
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
I

infes

Thành viên mới
Tham gia
7/12/06
Bài viết
2
Được thích
444
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 Settings\UserName\Application Data\Microsoft\AddIns
Đối với Excel 2000 trên Windows 98:
C:\Windows\Application Data\Microsoft\AddIns
Đối với Excel 97 trên Windows 98:
C:\Program Files\Microsoft Office\Office\Library
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.
 

File đính kèm

Lần chỉnh sửa cuối:
truonghb đã viết:
hướng dẫn mình cachs dùng với, mình đã copy, cài đúng theo hướng dẫn nhưng làm thế nào để nó chuyển từ số sang chỗ
Nhấp chuột vào đây để mở rộng...

hoaxuongrong_2911 đã viết:
Minh cung chep file doiso.zip , da lam dung huong dan xong van khong the nao doi so ra chu duoc.giup minh voi
Nhấp chuột vào đây để mở rộng...

Trả lời:

infes đã viết:
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 Settings\UserName\Application Data\Microsoft\AddIns

Đối với Excel 2000 trên Windows 98:

C:\Windows\Application Data\Microsoft\AddIns

Đối với Excel 97 trên Windows 98:

C:\Program Files\Microsoft Office\Office\Library

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.
Nhấp chuột vào đây để mở rộng...

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

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Xin lỗi bạn ngocduyen và các bạn. Do không cẩn thận tôi đã gởi tập tin docsovn có lỗi. Tôi đã gởi lại docsovn.zip ngày 8/5/2007
 
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 Files\vnTools
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é"
 

File đính kèm

Cám ơn các bạn đã cung cấp.
Xin phép sử dụng một số hàm của bác Long để em viết giáo trình nhé! Hàm này rất hiện đại và ngắn gọn vì bác đã sử dụng cả WorkSheetFunctions.
 
Bạn down load file của anh Phamduylong ở bài #10, sau đó sử dụng công thức như sau:

-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)​
 
Bạn down load file của anh Phamduylong ở bài #10, sau đó sử dụng công thức như sau:

-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)​
__________________
Thanks bạn secret !
Nhưng mình đã tải file cua anh Long rồi, nhưng mình vẫn không chạy được, hay la fải sử dụng cả phần VBA mà mình chưa biết về VBA nhiều.
Bạn có thể hướng dẫn mình chi tiết không.
Hàng ngày mình phải lập thông báo về tiền $ rất nhiều, nên rất vất vả.
Bạn giúp mình nhé.
 
Bạn có sử dụng BKAV không? Nó xóa mất macro rồi !
 
BKAV xem macro của Excel là virus nên xóa tất cả các lệnh đã viết. Phải add-in lại lừ bản chưa bị BKAV để mắt tới.
 
Secret_grasses đã viết:
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!.
Nhấp chuột vào đây để mở rộng...


SG có thể xem lại đc ko?
Tôi đã download docso.zip về nhưng chỉ chạy được hàm =vnd(so) ra tiếng Việt. Các hàm như =usvn(so) hay usd(so) đều cho kết quả là #NAME?
Ngoài ra, trong kết quả của hàm =vnd(so) có các dấu phẩy (,) ngăn cách bạn có thể bỏ giúp các dấu phảy đó đc ko? Ham -usd(so) nên cho kết quả là ... US dollars thay vì chỉ là dollars để phân biệt đô Mỹ với đô khác.
Cảm ơn bạn nhiều.
 
Giờ mình muốn đọc số tiền VND bằng Tiếng Anh thì ntn các cậu? Liệu có phải ngồi sửa lại không ạ?

Cảm ơn cả nhà!
 
lỗi phông quá mình dùng uncode mà vẫn lỗi không đọc được chữ nào
 
lamductn1991 đã viết:
lỗi phông quá mình dùng uncode mà vẫn lỗi không đọc được chữ nào
Nhấp chuột vào đây để mở rộng...
Bạn nên trả lời có trích dẫn hoặc hỏi rõ ràng hơn để mọi người biết bạn đang nói đến "khía cạnh" nào.
Nếu bạn định nói về tiện ích của bạn Phạm Duy Long thì nếu tôi không lầm thì vd. hàm đổi số thành chữ, sắp xếp, chuyển đổi bảng mã cần phải chỉnh sửa. Mà có nhiều phiên bản quá nên cũng chả biết phiên bản mới nhất là bản nào, và bạn đang dùng bản nào.
 
Tôi mới gia nhập làm thành viên của GPE, có xem bài đổi số thành chữ và làm thử theo đúng hướng dẫn nhưng vẫn không ra kết quả. Đã vào add-in chạy "doiso" nhưng vẫn không ra kết quả. Mong cả nhà GPE chỉ giúp. Cám ơn rất nhiều.
 
Bác Long làm ơn cho em hỏi, file đổi số thành chữ của bác ý, em đã làm đúng theo hướng dẫn, đã copy và chạy được add-in, đã bật unicode rồi nhưng khi viết hàm =vnd(số tiền) thì lại không ra kết quả. Mong bác chỉ giúp. Cảm ơn bác rất nhiều.
 
kimanh_gha đã viết:
Bác Long làm ơn cho em hỏi, file đổi số thành chữ của bác ý, em đã làm đúng theo hướng dẫn, đã copy và chạy được add-in, đã bật unicode rồi nhưng khi viết hàm =vnd(số tiền) thì lại không ra kết quả. Mong bác chỉ giúp. Cảm ơn bác rất nhiều.
Nhấp chuột vào đây để mở rộng...
Trên GPE có rất nhiều hàm đọc số thành chữ với nhiều tên hàm vì nhiều người viết. Các hàm của tôi viết thường mang tên là DocsoUni, DocsoVni, DocsoAbc tùy theo bảng mã Unỉcode, VNI hay TCVN3-ABC.
Muốn biết Add-Ins của bạn có hàm nào, bạn bấm mũi tên của nút AutoSum > More Functions > Or select a category > chọn Use Defined trong danh sách, bạn sẽ thấy danh sách tên các hàm.
 
mình load file của bạn Infes về dùng thử - thì chỉ đọc được tiền việt thôi (chỉ hàm =vnd(a1) thì đọc được )
còn hàm liên quan đến USD thì cũng chỉ thông báo #name?
Như thế là sao? có ai bít chỉ giùm cho mình với
 
Lần chỉnh sửa cuối:
honghanhbt đã viết:
Bạn Lovely83 ơi, có thể trích dẫn đường link tới file của bạn DieuNT để tớ tham khảo được không?
Cám ơn bạn!
Nhấp chuột vào đây để mở rộng...
Mình đã tải lên diễn đàn rồi đấy. Trong chuyên mục các Add- ins sẵn có của excel >đổi số ra chữ.honghanhbt sang đó tải về dùng thử nhé.
 
Hàm đổi số sang chữ dung font Unicode

Chào các bạn.

Mình đã đổi sang font UniCode và thêm chức năng đổi tiền VND sang tiếng Anh.

Dùng câu lệnh sau:

=VND()
=USD()
=USVN()
=VNUS()

Các pác thấy có lỗi nào báo để em sửa

Thank bro jj đó đã post addin này nhé.
 

File đính kèm

Sửa lại vài chỗ tự tìm thấy vẫn còn lỗi. Mời các đồng nghiệp nào.
 

File đính kèm

foundaction đã viết:
Cảm ở bạn Thaonguyen_hienanh cái đó rất tốt, nhưng mình nghĩ đằng sau dấu phẩy (phết) ví dụ như 123,25 thì nó chỉ đọc là một trăm hai ba đồng hai năm, mình nghĩ bạn nên cho thêm chữ xu vào cuối có thể là "một trăm hai ba đồng hai năm xu" như thế sẽ đẹp hơn rất nhiều. Trân trọng cảm ơn foundaction
Nhấp chuột vào đây để mở rộng...
Bạn xem bên chủ đề này có thể đúng với yêu cầu của bạn.
Đọc số thập phân (số lẻ) như thế nào là đúng ?
 
Ban thaonguyen hienanh ơi
mình đã dowload file n2TEV.. về rồi và mình dùng lệnh =usvn() thì cho kết quả là : lỗi font chữ bạn làm ơn chỉ giùm mình cái
 
Các bạn thử dùng công cụ này xem thế nào. http://www.megaupload.com/vn/?d=XZ4LDKXQ
Có khá nhiều chức năng, trong đó có chuyển số thành chữ, cho phép tùy biến theo bảng mã quen dùng.
Download về rồi mở Excel lên vào Tools>Add-Ins>Browse... đến file vừa download
Sẽ xuất hiện 1 menu mới "Bổ trợ" trong đó có 1 số lệnh.
Dùng chức năng chuyển số thành chữ bằng cách bấm vào menu hoặc nhập trực tiếp trong Cell : =N2T(địa chỉ ô chứa số)
 
Nên Post lên luôn trên diễn đàn đi bạn. Post Mega ít người dùng lắm bạn ơi.
Thân.
 

File đính kèm

chuduyen711 đã viết:
Các bác ơi, em muốn dùng hàm đổi số sang chữ trong Open office.org Calc thì làm như thế nào, có ai biết không chỉ em với, cơ quan em mới chuyển sang dùng phần mềm này mới quá, em k biết. Cảm ơn các Bác nhiều nhiều, có ai biết thì chỉ cho em với nha.
Nhấp chuột vào đây để mở rộng...

Tạm thời mình chỉ mới làm cho bạn đọc được sang tiếng Anh thôi, còn tiếng Việt Unicode thì chưa "mò" ra! Vì mình cũng mới chân ướt chân ráo nghiên cứu OpenOffice mà thôi!

Với lại cơ chế Add-Ins không thấy xuất hiện trong OpenOffice 3.0, cho nên bạn có thể dùng file này như một file Template vậy!

File viết trên phiên bản OpenOffice 3.0 có phần mở rộng là *.ods

Cú pháp =USD(Số tiền)
 

File đính kèm

Vnd

Cho tôi góp vui với !

Cái VND của tôi dùng đã mấy năm rồi, rất ổn.
Khi đọc số ra chữ có dấu phẩy phân cách lớp,
đuôi có phân biệt "đồng chẵn" hay là không.
Ngoài ra có kèm mấy hàm nho nỏ khác.
Mời các bạn dùng thử nhé
 

File đính kèm

Cho em hỏi với:
Em add-in được tập tin Doiso.xla vào rồi, em lưu vào ổ D và em đổi số được rồi. Nhưng mỗi lần đóng Excel lại và khởi động lại thì nó báo ('D:\Setup\Doi so ra chu in Excel\Doiso.xla' could not be found. Check the spelling of the file name, an verify that the file location is correct. If you are trying to open the file from your of most recently used files on the File menu, make sure that the file has not been rename, moved, or deleted ----- Ok). Ok vào không đổi được và ra #NAME?. (Nếu đổi được thì lại phải vào add-in/browse).
Anh (chị) nào bị giống em và cách khắc phục như nào chỉ em với. Mỗi lần như thế mất thời gian quá ạ. Em xin cảm ơn!
 
anhthudoan đã viết:
Cho em hỏi với:
Em add-in được tập tin Doiso.xla vào rồi, em lưu vào ổ D và em đổi số được rồi. Nhưng mỗi lần đóng Excel lại và khởi động lại thì nó báo ('D:\Setup\Doi so ra chu in Excel\Doiso.xla' could not be found. Check the spelling of the file name, an verify that the file location is correct. If you are trying to open the file from your of most recently used files on the File menu, make sure that the file has not been rename, moved, or deleted ----- Ok). Ok vào không đổi được và ra #NAME?. (Nếu đổi được thì lại phải vào add-in/browse).
Anh (chị) nào bị giống em và cách khắc phục như nào chỉ em với. Mỗi lần như thế mất thời gian quá ạ. Em xin cảm ơn!
Nhấp chuột vào đây để mở rộng...
- Bạn gỡ add-Ins đó ra (bỏ check tên add-Ins đó trong Cửa sổ add-Ins), sau đó lưu và đóng file lại.
- Mở file đó lên lại, Đăng ký lại add-Ins này là xong.

Lỗi bạn gặp là do lúc trước bạn lưu file add-ins ở 1 folder khác, sau khi đăng ký bạn di chuyễn file add-Ins đi chỗ khác.
 
mấy cái hàm nầy đâu đọc được nếu số tự đánh dấu phân cách phần nghìn bạn
123 ->123.000 khác nhau không đọc được (một trăm hai mươi ba đồng / nghìn). Làm sao khác phục được bạn ơi !!!
 
vietnamtool đã viết:
mấy cái hàm nầy đâu đọc được nếu số tự đánh dấu phân cách phần nghìn bạn
123 ->123.000 khác nhau không đọc được (một trăm hai mươi ba đồng / nghìn). Làm sao khác phục được bạn ơi !!!
Nhấp chuột vào đây để mở rộng...
Cái này là lỗi chưa chỉnh lý số liệu trước khi đưa vào xử lý.
Hãy thêm vào 1 đoạn mã chỉnh lý: Kiểm tra tất cả các ký tự, nếu không phải là số, dấu thập phân và dấu - thì replace nó đi.
 
muốn chữ đọc ra nằm trong dấu (..) thi làm thế nào các ban, chỉ cho mình với,
 
cảm ơn ban, cụ thể hơn chút nữa được không bạn.
 
cuoidien đã viết:
cảm ơn ban, cụ thể hơn chút nữa được không bạn.
Nhấp chuột vào đây để mở rộng...
Vậy mà còn chưa cụ thể nữa à...
Ví dụ bạn dùng hàm VND() để dịch cái con số 123 ở trong ô A1 thành chữ:
=VND(A1) = Một trăm hai mươi ba​
Bi giờ, bạn lồng cái hàm VND đó vào trong cái ngoặc đơn:
="(" & VND(A1) & ")" = (Một trăm hai mươi ba)​
Chỉ có vậy thôi.
 
Cho mình hỏi tí, đổi chữ ra số thường dùng đều dành để đọc số tiền. nay mình muốn đọc số như Diện tích đất chẳn hạn(12.542,60 mét vuông) thì lảm sao đọc dược phần đuôi ?
Ban nào có cách xin chỉ giáo !!!
 
Sao mình chuyển qua số tiền bằng chữ cuối dòng không có chữ Đồng vậy
 
Làm sao bỏ chữ .."chẵn" ở cuối dòng chuyển đổi ??

infes đã viết:
Sorry các bạn, post nhầm file đổi số cho VNI
Đây là bản đổi file cho font Unicode
Nhấp chuột vào đây để mở rộng...

Anh Infes oi
Làm sao để bỏ chữ "chẵn" ở cuối câu chuyển đổi...anh giúp với.
Có ai biết giúp tôi với....

vi dụ : 123 => Một trăm hai ba đồng chẵn.
Tôi viết lệnh chi...ngân hàng không đồng ý có chữ chẵn này .

Làm sao ? làm sao ?
Các chương trình khác cái thì lại thiếu chữ đồng, cái lại không viết hoa chữ đầu tiên....khổ thế cơ chứ
....

 
pcviet đã viết:
Anh Infes oi
Làm sao để bỏ chữ "chẵn" ở cuối câu chuyển đổi...anh giúp với.
Có ai biết giúp tôi với....

vi dụ : 123 => Một trăm hai ba đồng chẵn.
Tôi viết lệnh chi...ngân hàng không đồng ý có chữ chẵn này .

Làm sao ? làm sao ?
Các chương trình khác cái thì lại thiếu chữ đồng, cái lại không viết hoa chữ đầu tiên....khổ thế cơ chứ
....
Nhấp chuột vào đây để mở rộng...
Có người thi không thích chữ chẵn, có người thích để chữ Đôla Mỹ, v.v...
Đơn giản nếu bạn xài chương trình nào, của ai, thì phải động não biến nó thành công cụ làm được việc cho mình chứ. Ví dụ hàm trên muốn bỏ chữ chẵn thì dùng substitute để thay thế, ví dụ:
PHP: 
=VND(123) =>  Một trăm hai ba đồng chẵn.

Đổi thành:
=Substitute(VND(123)," chẵn","") ==> Một trăm hai ba đồng
Còn chương trình nào không có chữ đồng và không viết hoa chữ đầu tiên, thì làm như sau:
PHP: 
=VND(123) =>  một trăm hai ba

Đổi thành:
=Upper(Left(VND(123)))&Right(VND(123),len(VND(123))-1)&" đồng"
 
Lần chỉnh sửa cuối:
Đổi số thành chữ

Mình Post file này để các bạn tham khảo, tuy nhiên nó chỉ dùng TCVN3 thôi. Mình cũng có câu hỏi như bạn quisitaro là:
Muốn đọc số thập phân kiểu như: 15,20 = Mười lăm phẩy hai mươi
15,26 m2 = Mười lăm phẩy hai (mươi) sáu mét vuông
thì phải làm thế nào? Mong được sự giúp đỡ của các Đại gia
 

File đính kèm

Mình muốn đọc một số như sau: 100=> ONE HUNDRED ONLY
thì mình làm thế nào?
Vì mình để VND 100 dùng cách của infes nó thành ONE HUNDRED DOLLARS ONLY.
Có cách nào chỉ cần đọc số thôi không cần đọc ngoại tệ không nhỉ?
 
Ly_Hung đã viết:
Mình Post file này để các bạn tham khảo, tuy nhiên nó chỉ dùng TCVN3 thôi. Mình cũng có câu hỏi như bạn quisitaro là:
Muốn đọc số thập phân kiểu như: 15,20 = Mười lăm phẩy hai mươi
15,26 m2 = Mười lăm phẩy hai (mươi) sáu mét vuông
thì phải làm thế nào? Mong được sự giúp đỡ của các Đại gia
Nhấp chuột vào đây để mở rộng...
Bạn dùng cái này thử xem. Mình cũng không nhớ là lấy cái này ở đâu nữa, nó có đọc được cả số thập phân.
 

File đính kèm

Lần chỉnh sửa cuối:
Đổi sổ tự động nhận dạng bảng mã, đổi dương lịch sang âm lịch và ngược lại.

- Đổi số: =docso(A1) (A1 là địa chỉ của cell có con số cân đọc thành chữ)
- Đổi số USD: =docsoUSD(A1) (A1 là địa chỉ của cell có con số cân đọc thành chữ)
- Đổi ra âm lịch: =Amlich(A1) (A1 là địa chỉ của cell có ngày dương lịch)
- Đổi ra dương lịch: =duonglich(A1) (A1 là địa chỉ của cell có ngày âm lịch)

Font sẽ được tự động nhận dạng.
Download :
Mã: 
[URL]http://www.giaiphapexcel.com/forum/showthread.php?p=172970#post172970[/URL]
 
Chỉnh sửa lần cuối bởi điều hành viên:
Cho em hỏi cách sử dụng cho Office 2007.
 
Add- In trong ứng dụng đọc số thành chữ

Em chào cả nhà,

Em down file đổi số về máy rùi nhưng sao chỉ đổi sang tiền Việt Nam được thôi nhỉ. Còn khi muốn đọc số tiền USD bằng tiếng Việt và tiếng Anh thì không được. Cả nhà chỉ giùm em với nha.

Thanks cả nhà nhìu!!!%#^#$
 
donhungc8 đã viết:
sao mìmh không Chép được file Doiso.XLA vào thư mục Add-in

máy mình dùng Excel XP trên Windows XP: nhưng lại ko có các thư mục UserNam\Application Data\Microsoft\AddIns như theo đường dẫn này.
C:\Documents and Settings\UserName\Application Data\Microsoft\AddIns
Làm thế nào bây giờ? mọi người hãy giúp mình với
Nhấp chuột vào đây để mở rộng...
Bạn chép Doiso.xla vào 1 nơi nào đó trên ổ cứng. Ví dụ: D:\AddIn\Doiso.xla
Mở Excel > Tools > AddIns > Browse > tìm đến D:\AddIn\Doiso.xla > OK
 
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))
Nhấp chuột vào đây để mở rộng...
Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks
 
soonwi đã viết:
Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks
Nhấp chuột vào đây để mở rộng...

đồng = đ & ồ & ng
mã đ = 273, ồ = 7891 > DocSoUni = DocSoUni & ChrW(273) & ChrW(7891) & "ng"

Để biết mã của 1 ký tự, bạn dùng hàm AscUni:
Mã: 
Function AscUni(text As String) As Long
AscUni = AscW(text)
End Function
Mã:
 
Chào cả nhà, anh chị cho e hỏi, e add ADD-IN này vào nhưng nói kg đọc được tiếng việt (chỉ đọc được tiếng anh thôi ah). Có cách nào đề nó đợc được tiếng việt kg a? help em với nha. Thanks all!
 
soonwi đã viết:
Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks
Nhấp chuột vào đây để mở rộng...

Hoặc đơn giản hơn, bạn thêm & "đồng" như công thức sau: =DocSoUni(xx) & " đồng."
 
Mình thực hiện được việc đọc số bằng hàm vnd rồi nhưng mình muốn hỏi thêm khi có nhu cầu chuyển từ số 101.30$ sang "Một trăm đô la và ba mươi cent" thì dùng hàm gì. Bạn nào biết chỉ giúp mình với. Trong công việc của mình rất cần, nhiểu khi không chú ý là quên và thêm vốn tiếng Anh ko vững nên mình bị sai.
 
huongcc đã viết:
Mình thực hiện được việc đọc số bằng hàm vnd rồi nhưng mình muốn hỏi thêm khi có nhu cầu chuyển từ số 101.30$ sang "Một trăm đô la và ba mươi cent" thì dùng hàm gì. Bạn nào biết chỉ giúp mình với. Trong công việc của mình rất cần, nhiểu khi không chú ý là quên và thêm vốn tiếng Anh ko vững nên mình bị sai.
Nhấp chuột vào đây để mở rộng...

Nếu đó là tiền Việt thì nó đọc ra sao?
Nếu là "Một trăm lẻ một đồng và ba mươi xu" (bạn bẻ cò hết 1 đồng đấy nhá --=0--=0) thì bạn replace "đồng" thành "đô la" và replace "xu" thành "cent".
 
Đã tìm được cách khắc phục. Co 2 cach:
1/ Lồng thêm hàm Substitute để remove dấu phẩy: vd =substitute(vnd(a1),",","")

2/ Can thiệp vào code ( ALT-F11), tìm và xoá chuỗi ;2C ở dòng

BangChu = BangChu + IIf(Len(BangChu) = 0, "", ";2C;20")
 
ngolinh108 đã viết:
Mọi người xin chỉ giáo cho mình làm sao để thêm ngoặc đơn vào phần chữ vừa được đổi từ số sang vd: (Hai trăm ba mươi tám nghìn, chín trăm sáu mươi bảy đồng). Cám ơn !
Nhấp chuột vào đây để mở rộng...
Bạn làm thế này cho đơn giản:
Giả sử bạn vừa đổi số thành chữ bằng công thức: =ABC
Bây giờ bạn gõ là: ="("&ABC&")"
Chúc bạn thành công!
 
anhn đã viết:
Các pac oi, mọi người có thể chỉ cho mình cách đổi số (đọc số tiền USD = tiếng Việt) bây giờ mới thấy là mình cần phải dùng nó, nhưng chỉ dùng được hàm vnd và usd thôi chứ không dùng được hàn usvn, kết quả nó toàn báo lỗi (#name) thôi. Cảm ơn mọi người nhiều. Có gì mọi người gửi mail cho mình với nhé, địa chỉ mail của minh là: anh.0208@gmail.com
Nhấp chuột vào đây để mở rộng...
Bạn copy thêm 1 UDF (function) và thay thế VND = USVN. Và phần chữ đồng bạn thay thế = Đôla Mỹ là OK.
Còn chưa OK thì gởi code lên.
Hay dùng cách khác là dùng hàm substitute(VND(...),"đồng","DoLa...")
 
Lỗi chương trình.

infes đã viết:
Sorry các bạn, post nhầm file đổi số cho VNI
Đây là bản đổi file cho font Unicode
Nhấp chuột vào đây để mở rộng...

Trước hết xin cảm ơn bạn đã post file này lên. Cung rất hay, nhưng hinh như file này bị lôi.
VD: 1.070.000 vnd.
+ Trong chương trình: Một triệu, bảy mươi ngàn đồng chẵn. (Theo mình nếu như quy đổi như thế này là bị sai. Vi trong chương trình mã số hoá của mạng máy tính không cho phép lược bớt. Đặc biệt là hệ thống thanh toán qua ngân hàng. Nêu quy đổi như vậy thì hệ thống thanh toán chỉ hiểu là 170.000vnd: Một trăm bảy mươi ngàn đồng.)
+ Đúng ra hệ thống sẽ quy đổi là: Một triệu không trăm bảy mươi ngàn đồng. Như thế mới đúng và hệ thống mã hoá thanh toán điện tử thư tín mới hiểu đúng.

!$@!! Hết rồi! Còn gì thiếu sót rất mong được chỉ giáo. Thanks!
 
Trước hết xin cảm ơn bạn đã post file này lên. Cung rất hay, nhưng hinh như file này bị lôi.
VD: 1.070.000 vnd.
+ Trong chương trình: Một triệu, bảy mươi ngàn đồng chẵn. (Theo mình nếu như quy đổi như thế này là bị sai. Vi trong chương trình mã số hoá của mạng máy tính không cho phép lược bớt. Đặc biệt là hệ thống thanh toán qua ngân hàng. Nêu quy đổi như vậy thì hệ thống thanh toán chỉ hiểu là 170.000vnd: Một trăm bảy mươi ngàn đồng.)
+ Đúng ra hệ thống sẽ quy đổi là: Một triệu không trăm bảy mươi ngàn đồng. Như thế mới đúng và hệ thống mã hoá thanh toán điện tử thư tín mới hiểu đúng.

Em đang gặp trục trặc với vấn đề này! Các bác thương thì thương cho trót đi! Bổ sung mấy dòng nữa vào cho đầy đủ! Em không hiểu gì về VBA nên không tự làm được! Nín thở chờ các bác!
 
vu_tuan_manh_linh đã viết:
Trước hết xin cảm ơn bạn đã post file này lên. Cung rất hay, nhưng hinh như file này bị lôi.
VD: 1.070.000 vnd.
+ Trong chương trình: Một triệu, bảy mươi ngàn đồng chẵn. (Theo mình nếu như quy đổi như thế này là bị sai. Vi trong chương trình mã số hoá của mạng máy tính không cho phép lược bớt. Đặc biệt là hệ thống thanh toán qua ngân hàng. Nêu quy đổi như vậy thì hệ thống thanh toán chỉ hiểu là 170.000vnd: Một trăm bảy mươi ngàn đồng.)
+ Đúng ra hệ thống sẽ quy đổi là: Một triệu không trăm bảy mươi ngàn đồng. Như thế mới đúng và hệ thống mã hoá thanh toán điện tử thư tín mới hiểu đúng.

Em đang gặp trục trặc với vấn đề này! Các bác thương thì thương cho trót đi! Bổ sung mấy dòng nữa vào cho đầy đủ! Em không hiểu gì về VBA nên không tự làm được! Nín thở chờ các bác!
Nhấp chuột vào đây để mở rộng...

bạn hãy xem theo link này copy hàm về dùng thử nhé
http://www.giaiphapexcel.com/forum/showthread.php?38196-G%E1%BB%ADi-m%E1%BB%8Di-ng%C6%B0%E1%BB%9Di-1-h%C3%A0m-%C4%91%E1%BB%8Dc-s%E1%BB%91-m%E1%BB%9Bi
 
Các bác ơi!
Làm thế nào để đổi số sang chữ trong windows 2007, em ko biết cài đặt thế nào. Hic.
Các bác chỉ giáo giúp em với!
 
Cái này dùng rồi nè, chạy tít mù khơi, cài vào Add-In là xong
 

File đính kèm

Bạn tải Ad-In của anh Nguyen Duy Tuan về mà dùng, trong đó thừa yêu cầu của bạn. Hơn nữa, lập công thức bằng kéo thả y Office thật tiện và dễ
Địa chỉ tải ở đây
 
của bạn cuongetb dùng được nhưng lại là font chữ VNI. Mình thì không hay dùng loại này. Bạn có thể chuyển sang Unicode được không?
 
nên tải phiên bản nào thể đổi số sang chữ thành 3 cach đọc

Chao các bạn cho minh thấy bài viết về (3 cách) đổi số sang chữ như sau:
1. =vnd() : đồng chẳn
2. =usvn() : đô la mỹ
3. = usd () :doller
vị minh nên tải phiên bản nào mới đúng? làm phiền các bạn chỉ cho minh nhé
 
chào bạn jenni, làm phiền bạn cung cấp cho minh phiên bản có thể đọc số bằng tiếng việt như bạn hướng:

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

mong sớm nhận được sự trợ giúp đỡ của , cám ơn nhiều
 
infes đã viết:
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 Settings\UserName\Application Data\Microsoft\AddIns
Đối với Excel 2000 trên Windows 98:
C:\Windows\Application Data\Microsoft\AddIns
Đối với Excel 97 trên Windows 98:
C:\Program Files\Microsoft Office\Office\Library
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.
Nhấp chuột vào đây để mở rộng...

Thanks bạn, xài rất tốt, nhưng cho mình hỏi làm sao để có thể bỏ đi cái chẳn ở cuối cái dịch số, vì mình làm quyết định cho cơ quan Nhà nước mà số lẽ nó cũng để chử chẵn (VD: 1.546 : Một ngàn năm trăm bốn mươi sáu đồng chẵn) như thế thì sai qui định. Mong bạn giúp đỡ giùm thanks ^o^.
 
bạn cho mình hỏi, có thể chỉnh cho nó hiện đầy đủ hơn ko?
vd: 212,055,420 - Hai trăm mười hai triệu không trăm năm mươi năm ngàn bốn trăm hai mươi đồng
thay vì hai trăm mười hai triệu, năm mươi năm ngàn, bốn trăm hai mươi đồng
thanksssss....


infes đã viết:
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 Settings\UserName\Application Data\Microsoft\AddIns
Đối với Excel 2000 trên Windows 98:
C:\Windows\Application Data\Microsoft\AddIns
Đối với Excel 97 trên Windows 98:
C:\Program Files\Microsoft Office\Office\Library
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.
Nhấp chuột vào đây để mở rộng...
 
Bạn nào có addins đổi mét vuông font unicode không ? Cho mình xin với !! Cám ơn rất nhiều !!!
 
zeusdilinh đã viết:
Bạn nào có addins đổi mét vuông font unicode không ? Cho mình xin với !! Cám ơn rất nhiều !!!
Nhấp chuột vào đây để mở rộng...

Bạn tham khảo add-in Accounting Helper tại đây:
http://www.giaiphapexcel.com/forum/...-độ-nhanh-tối-đa-nhanh-hơn-80-các-Addins-khác

FuncArgs.jpg
 
Gửi phamduylong


mình tải docso.zip của bạn về nhưng khi mở file excel này thì k sử dụng được cứ báo lỗi là #NAME, dù đã nhiều lần làm đi làm lại vẫn k thành công, bạn chỉ mình cách sử dụng xem sao.

Khi minh copy đoạn code này của bạn thì mình sẽ làm những thao tác nào trong e xcel để nó tự cài đặt, bạnm có thể chỉ mình được k?
cám ơn bạn nhiều
 
infes đã viết:
Sorry các bạn, post nhầm file đổi số cho VNI
Đây là bản đổi file cho font Unicode
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều về add-in này. Lâu nay mình vẫn sử dụng nó, tuy nhiên mình rất mong bạn ra tay giúp thay đổi add-in doiso.xla như sau:
- add-in doiso.xla đang dùng: =vnd(123456) --> kêt quả: Một trăm hai mươi ba ngàn, bốn trăm năm mươi sáu đồng chẵn.
- Mình muốn đối lại: =vnd(123456)--> Kết quả: (Bằng chữ: Một trăm hai mươi ba ngàn, bốn trăm năm mươi sáu đồng).
Tức là thay đổi: 1) Thêm đóng mở ngoặc; 2) Thêm Bằng chữ:; 3) Bỏ chữ chẵn cuối câu; 4) Không cần quan tâm đến số thập phân.

Như thế tiện hơn khi sử dụng.
Rất mong nhận được giúp đỡ từ bạn!
Cảm ơn nhiều!
 
nhờ các bác đọc hộ số này giúp em nhé : 15.452.300.000.000.000.000.000 ! có người đố em nhưng em không biết đọc, các Bác giúp em nhé!Bác nào giải được nhắn hộ vào mail giúp em nhé : duythuongxd@gmail.com ,thanks you verry much !
 
Em add-in được tập tin Doiso.xla vào rồi, em lưu vào ổ D và em đổi số được rồi. Nhưng mỗi lần đóng Excel lại và khởi động lại thì nó báo ('D:\Setup\Doi so ra chu in Excel\Doiso.xla' could not be found. Check the spelling of the file name, an verify that the file location is correct. If you are trying to open the file from your of most recently used files on the File menu, make sure that the file has not been rename, moved, or deleted ----- Ok). Ok vào không đổi được và ra #NAME?. (Nếu đổi được thì lại phải vào add-in/browse).
Anh (chị) nào bị giống em và cách khắc phục như nào chỉ em với. Mỗi lần như thế mất thời gian quá ạ. Em xin cảm ơn!
cadafi đã viết:
- Bạn gỡ add-Ins đó ra (bỏ check tên add-Ins đó trong Cửa sổ add-Ins), sau đó lưu và đóng file lại.
- Mở file đó lên lại, Đăng ký lại add-Ins này là xong.

Lỗi bạn gặp là do lúc trước bạn lưu file add-ins ở 1 folder khác, sau khi đăng ký bạn di chuyễn file add-Ins đi chỗ khác.
Nhấp chuột vào đây để mở rộng...
Mình cũng gặp phải lỗi này và cũng làm như Cadafi hướng dẫn nhưng vẫn không được, mong các bạn giải thích giùm
 
Lần chỉnh sửa cuối:
cho mình hỏi thêm 1 cái nũa nha:
ở trang thứ nhất tải phần mêm về doiso khi minh đânh 222222 vãn ra như thế này : Hai traêm hai möôi hai ngaøn hai traêm hai möôi hai ñoàng chaün
 
tuanlinhcongtu đã viết:
cho mình hỏi thêm 1 cái nũa nha:
ở trang thứ nhất tải phần mêm về doiso khi minh đânh 222222 vãn ra như thế này : Hai traêm hai möôi hai ngaøn hai traêm hai möôi hai ñoàng chaün
Nhấp chuột vào đây để mở rộng...

Khi bạn gặp trường hợp như vậy bạn phải chuyển Font để nó hiển thị đúng!
 
Thường font chữ mặc định của exels là Arial, bạn chỉ cần đổi sang font VNI-times là được.
 
các huynh ơi, em muốn đọc số tấn kilogam thì làm thế nào
ví dụ : 123,45 -> một trăm hai mươi ba tấn 45 ki lô gam thì làm thế nào.
Nếu không phiền các huynh có thể làm giúp em hoặc dạy em cách làm được k ạ?
 
Làm sao đổi fon chữ sang tims new roman
 
Cái bảng của mình đọc được số tiền nhưng lại thiếu chữ "đồng chẵn" thì làm thế nào bây giờ?

Ví dụ: "Năm đồng chẵn" thì nó chỉ hiện là "năm"
 
Mình có đoạn code SoRaChu này copy ở trên diễn đàn, nhưng không biết cách gán phím tắt khi sử dụng. Nhờ các bạn chỉ giúp. Trân trọng cảm ơn
 

File đính kèm

Bác nào chỉ cho em cách copy các addin giồng như doiso.xla ở trên vào thư mục nào trong Win 7 và Office 2010? Ới em 1 cái nhé, Thanks
 
thanhk bạn long nhé
nhưng cho mình hỏi một tý mình không muốn dùng từ ngàn mà thay bằng từ nghìn thi làm như thế nào
thank you
 
Mình làm theo hướng dẫn của bạn và đã làm được, cám ơn bạn nhiều.--=0
 
Pansy_flower đã viết:
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!.
Nhấp chuột vào đây để mở rộng...

Mình không đổi được số sang chữ tiền usd bằng tiếng việt? Giúp mình với :(
 
cho mình hỏi nó gõ chữ mà có dấu phẩy, bỏ dấu phẩy làm sao vậy
 
Cảm ơn topic, tôi đã tải về dùng thử nhưng vẫn bị lỗi font chữ
 
Lần chỉnh sửa cuối:
Doi chu ra so trong Ecxel

Chúc các bạn hoàn thành tốt nhiệm vụ của mình
: Huýt sáo:
 

File đính kèm

em sử dụng excel 2003 trên win7 chạy cai đạt vn Tools Add-in

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 Files\vnTools
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
--------------------------------------------
các bác chỉ giúp em chứ có làm được đâu
 
Mình muốn File đổi thành kiểu chữ Unicode.
 
Nói chung là dùng được nhưng mà có một lỗi nhỏ mà chưa sửa được, Khi mình viết: 123456 thì nó sẽ đọc là một trăm hai mươi ba nghìn, bốn trăm năm mươi sáu nhưng mình muồn đọc như thế mà bỏ dấu , đi nghĩa là một trăm hai mươi ba nghìn bốn trăm năm mươi sáu. Bạn nào biết giúp mình với.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu (1 người xem)
    • Cười
Trả lời
13
Đọc
253
HUONGHCKT
H
HeSanbi
  • Question Question
Chuyển mã VBA ứng dụng Excel 32 bit hoạt động trên cả 64bit (Hoàn toàn 0 phí) (6 người xem)
Trả lời
0
Đọc
3
HeSanbi
HeSanbi
T
Ctrl + Shift + 0 không dùng để unhide cột được (1 người xem)
Trả lời
24
Đọc
22K
Oji
O
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
    • Yêu thích
Trả lời
19
Đọc
4K
Hoàng Tuấn 868
H
B
Em nhờ các bro giúp giải pháp in nhiều file ạ (3 người xem)
Trả lời
1
Đọc
10
Hoàng Tuấn 868
H
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel (1 người xem)
Trả lời
3
Đọc
77
HeSanbi
HeSanbi
huytamlinh
Anh Chị giúp em sửa lỗi định dạng với ạ !
Trả lời
3
Đọc
34
Hoàng Tuấn 868
H
T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable
Trả lời
1
Đọc
41
Lý Tân
Lý Tân
S
Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới). Thank
Trả lời
1
Đọc
17
LOGANWover
L
S
Xin hỏi các pro. Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới).
Trả lời
2
Đọc
47
samthai8017
S
T
  • Question Question
Xin giúp em mã lệnh tổng hợp tự động lên bảng tổng hợp!
Trả lời
1
Đọc
44
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
4
Đọc
896
nguyendang95
N
V
Quản lý xuất nhập vật tư trong kho
Trả lời
19
Đọc
756
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên
    • Cảm ơn
Trả lời
4
Đọc
346
phuongnam366377
phuongnam366377
F
Mấy cao thủ giúp dùm mình với. File excel bị lỗi mà mình không biết lỗi chỗ nào để sửa.
Trả lời
2
Đọc
102
firstbood
F
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
3 4 5
Trả lời
438
Đọc
58K
sát thủ uyên ương
S
X
Làm thế nào để ẩn "Blank" trong Pivot table
    • Thích
Trả lời
15
Đọc
36K
nguyenngochieu761321
nguyenngochieu761321
H
Đánh số thự theo lượt
Trả lời
5
Đọc
157
hongminh_0306
H
D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL
Trả lời
2
Đọc
200
danhpheo
D
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show
Trả lời
2
Đọc
155
AnhThu-1976
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom