File dịch tiền ra chữ

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi tonykhanh1818, 4 Tháng tư 2006.

12,931 lượt xem

  1. tonykhanh1818

    tonykhanh1818 Thành viên sơ cấp

    Bài viết:
    13
    Đã được thích:
    0
    Chào bác đức
    Mình vừa tải được file dịch tiền ra chử do bạn hướng dẩn,nhưng không biết cách sử dụng nhờ bác hường dẩn cho minh cách sử dụng để thuận lợi hơn cho công việc
    Cám ơn bác Đức trước nghe
    Khanh
     
    #1
  2. kimtinhtn

    kimtinhtn Thành viên hoạt động

    Bài viết:
    61
    Đã được thích:
    0
    Nơi ở:
    Tp HCM
    Trước tiên, bạn phải copy file đổi số vào C:\Program Files\Microsoft Office\Office10\Addins (tùy theo máy bạn addins được đặt trong thư mục nào của ổ C: )
    Trên file excel bạn đang cần dịch số thành chữ, bạn vào tools\add-ins chon browse sau đó chọn đường dẫn đến file doiso mà bạn vừa copy vào ổ C:
    Trên bảng tính excel bạn gõ : =VND(chọn đường đến cell mà bạn cần dịch thành chữ)
    Chúc thành công !
     
    #2
  3. lehongduc

    lehongduc Thành viên thân thiết

    Bài viết:
    129
    Đã được thích:
    1
    Nơi ở:
    VietNam
    Sử dụng Tiện ích tiếng Việt cho Excel (VnUtils)

    Xin chào,
    Sau khi chạy file VnUtils.exe đế giải nén, nếu bạn không khai báo khác đề nghị của chương trình giải nén, bộ tiện ích này sẽ được đặt trong folder VNUTILS. Bên trong folder này có sẵn các file hướng dẫn cách thức sử dụng đặt bên trong folder con HELP.
    Xin các bạn đọc các file hướng dẫn này để biết cách setup VnUtils vào Excel và cách sử dụng các hàm của bộ tiện ích này.
    Lê Hồng Đức
    (0913.941.144)
     
    #3
  4. thanhvunt

    thanhvunt http://thanhvunt.com

    Bài viết:
    2,084
    Đã được thích:
    10
    Nơi ở:
    Nha Trang
    Chào bác Đức. Hôm trước em cũng đã tải cái file của bác về rồi nhưng thấy cái đuôi của nó có họ ét xe nên em ngại vá. Em chẳng biết nguồn này có yêu cầu li xăng hay lai xần gì không nữa. Em chỉ sợ dính vai rớt nên hỏng dám thử lửa nữa. he he...
     
    #4
  5. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Vâng em cũng có ý engại như anh OldNTV. Việc nén file không khó. Nếu có config riêng gì đấy mới nên đưa vào exe. Vậy file Exe của bác sẽ làm những việc gì thế nhỉ? hay chỉ đơn giản là giải nén?
     
    #5
  6. thanhvunt

    thanhvunt http://thanhvunt.com

    Bài viết:
    2,084
    Đã được thích:
    10
    Nơi ở:
    Nha Trang
    Thường thì việc nén file ít ai dùng đến kiểu giải này. Nếu giải nén theo kiểu setup thì có vẻ chuyên nghiệp nhưng phải chuyên nghiệp theo kiểu chỉ cần run và sau đó nó sẽ auto update. Nhưng thời buổi này mà mấy file họ ét tung lên mạng chỉ những ai khờ mới run. Nếu bác Đức thực sự có thành ý thì nên up lên một nguồn có uy tín thì anh em mới dám xài bác ạ.
     
    #6
  7. lehongduc

    lehongduc Thành viên thân thiết

    Bài viết:
    129
    Đã được thích:
    1
    Nơi ở:
    VietNam
    Về VnUtils

    Xin chào các Bạn,
    Thể theo yêu cầu của các Bạn, tôi đã nhờ Bác Duyệt (levanduyet) giúp upload tiện ích này lên WKT với dạng nén RAR để các Bạn tiện và khỏi ngại virus.
    Về vấn đề thành ý, xin có mấy lời trao đổi cùng các Bạn, VnUtils đã được tôi công bố lên internet và tặng cộng đồng từ cuối năm 1999, lúc Excel 5 còn phổ biến và Excel 6 mới ra lò, kèm theo cả password để User tùy ý sửa đổi theo nhu cầu. Password đó là: ANHBADUC
    Các Bác nghi ngờ và cẩn thận là phải, nhưng phải đặt vấn đề thành ý thì hơi buồn đấy các Bác ạ.
    Chúc các Bác hạnh phúc.
    Lê Hồng Đức
     
    Last edited: 10 Tháng tư 2006
    #7
  8. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Đường dẫn để các bạn download đây.
    http://webketoan.com/thuvien/comment.php?dlid=413&PHPSESSID=795b92b16b6c5b7c842d42ab652030f9
    Xin cám ơn Anh.

    Thân,

    Lê Văn Duyệt
     
    #8
  9. lehongduc

    lehongduc Thành viên thân thiết

    Bài viết:
    129
    Đã được thích:
    1
    Nơi ở:
    VietNam
    Xin chào,
    Về tiện ích "dịch tiền ra chữ" và một số tiện ích xử lý tiếng Việt khác do tôi viết: xin các Bạn download và tìm hiểu chi tiết tại đây:
    http://quantribanhang.googlepages.com mục "Quà tặng cộng đồng"
    Xin lưu ý: đây là mã nguồn mở với pasword vào là ANHBADUC
    Chúc sức khỏe.
    Lê Hồng Đức
     
    #9
  10. Secret_grasses

    Secret_grasses Thành viên hoạt động

    Bài viết:
    317
    Đã được thích:
    3
    Nơi ở:
    Ngôi nhà nhỏ trên thảo nguyên.
    Mình vô vẫn bình thường, nhưng down file ko đc.
    http://ketoan.wkt.googlepages.com/quatangcongdong.htm

    Nếu bạn muốn down file thì xem bài #10 của anh Duyệt có link download đó.

    Trước tiên bạn down file này về.(Trong thư viện còn rất nhiều file đổi số thành chữ, SG lấy file này làm ví dụ để hướng dẫn cụ thể hơn cho bạn).

    Sau khi giải nén,bạn vào tool====>add-ins===>browse====>chọn đường dẫn đến nơi bạn mới down file add-in đó về===>enter.(Hoặc khi giải nén xong bạn copy file đó===>ở cửa sổ browse bạn chỉ việc paste là xong)

    Ở ô bạn muốn đổi số thành chữ bạn đặt công thức:
    -Nếu muốn đọc đồng USD: =USD(A1)
    -Nếu muốn đọc đồng VN : =VND(A1)
     
    #10
  11. vietdoan

    vietdoan Thành viên hoạt động

    Bài viết:
    6
    Đã được thích:
    0
    Bước 1:
    - Mở một Workbook mới
    - Vào Tools > Macro > Visual Basic Editor
    - Click chuột phải, chọn Insert Module > Module
    Bước 2:
    Nhập đoạn mã lệnh sau:
    Public Function vn(baonhieu)
    Dim ketqua, sotien, nhom, chu, dich, s1, s2, s3 As String
    Dim i, j, vitri As Byte, s As Double
    Dim hang, doc, dem
    If baonhieu = 0 Then
    ketqua = "khoâng ñoàng"
    Else
    If Abs(baonhieu) >= 1E+15 Then
    ketqua = "soá quaù lôùn"
    Else
    If baonhieu < 0 Then
    ketqua = "tröø" & Space(1)
    Else
    ketqua = Space(0)
    End If
    sotien = Format(Abs(baonhieu), "##############0.00")
    sotien = Right(Space(15) & sotien, 18)
    hang = Array("none", "traêm", "möôi", "gì ñoù")
    doc = Array("none", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "chaün")
    dem = Array("none", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
    For i = 1 To 6
    nhom = Mid(sotien, i * 3 - 2, 3)
    If nhom <> Space(3) Then
    Select Case nhom
    Case "000"
    If i = 5 Then
    chu = "ñoàng" & Space(1)
    Else
    chu = Space(0)
    End If
    Case ".00"
    chu = "chaün"
    Case Else
    s1 = Left(nhom, 1)
    s2 = Mid(nhom, 2, 1)
    s3 = Right(nhom, 1)
    chu = Space(0)
    hang(3) = doc(i)
    For j = 1 To 3
    dich = Space(0)
    s = Val(Mid(nhom, j, 1))
    If s > 0 Then
    dich = dem(s) & Space(1) & hang(j) & Space(1)
    End If
    Select Case j
    Case 2 And s = 1
    dich = "möôøi" & Space(1)
    Case 3 And s = 0 And nhom <> Space(2) & "0"
    dich = hang(j) & Space(1)
    Case 3 And s = 5 And s2 <> Space(1) And s2 <> "0"
    dich = "l" & Mid(dich, 2)
    Case 2 And s = 0 And s3 <> "0"
    If (s1 >= "1" And s1 <= "9") Or (s1 = "0" And i = 4) Then
    dich = "leû" & Space(1)
    End If
    End Select
    chu = chu & dich
    Next j
    End Select
    vitri = InStr(1, chu, "möôi moät", 1)
    If vitri > 0 Then Mid(chu, vitri, 9) = "möôi moát"
    ketqua = ketqua & chu
    End If
    Next i
    End If
    End If
    vn = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
    End Function

    Public Function usd(baonhieu)
    Dim ketqua, sotien, nhom, chu, dich, s1, s2, s3 As String
    Dim i, j, vitri As Byte, s As Double
    Dim hang, doc, dem
    If baonhieu = 0 Then
    ketqua = "khoâng dollars"
    Else
    If Abs(baonhieu) >= 1E+15 Then
    ketqua = "soá quaù lôùn"
    Else
    If baonhieu < 0 Then
    ketqua = "tröø" & Space(1)
    Else
    ketqua = Space(0)
    End If
    sotien = Format(Abs(baonhieu), "##############0.00")
    sotien = Right(Space(15) & sotien, 18)
    hang = Array("none", "traêm", "möôi", "gì ñoù")
    doc = Array("none", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "dollars", "cents")
    dem = Array("none", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
    For i = 1 To 6
    nhom = Mid(sotien, i * 3 - 2, 3)
    If nhom <> Space(3) Then
    Select Case nhom
    Case "000"
    If i = 5 Then
    chu = "dollars" & Space(1)
    Else
    chu = Space(0)
    End If
    Case ".00"
    chu = "chaün"
    Case Else
    s1 = Left(nhom, 1)
    s2 = Mid(nhom, 2, 1)
    s3 = Right(nhom, 1)
    chu = Space(0)
    hang(3) = doc(i)
    For j = 1 To 3
    dich = Space(0)
    s = Val(Mid(nhom, j, 1))
    If s > 0 Then
    dich = dem(s) & Space(1) & hang(j) & Space(1)
    End If
    Select Case j
    Case 2 And s = 1
    dich = "möôøi" & Space(1)
    Case 3 And s = 0 And nhom <> Space(2) & "0"
    dich = hang(j) & Space(1)
    Case 3 And s = 5 And s2 <> Space(1) And s2 <> "0"
    dich = "l" & Mid(dich, 2)
    Case 2 And s = 0 And s3 <> "0"
    If (s1 >= "1" And s1 <= "9") Or (s1 = "0" And i = 4) Then
    dich = "leû" & Space(1)
    End If
    End Select
    chu = chu & dich
    Next j
    End Select
    vitri = InStr(1, chu, "möôi moät", 1)
    If vitri > 0 Then Mid(chu, vitri, 9) = "möôi moát"
    ketqua = ketqua & chu
    End If
    Next i
    End If
    End If
    usd = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
    End Function
    Bước 3:
    Sau khi ghi lại đoạn mã lệnh trên, bạn đóng cửa sổ Visual Basic lại, trở về bảng tính Excel, chọn File > Save As…
    Tại ô Save As Type, chọn “Microsoft Excel Add-Ins (*.xla). Rồi đặt cho nó một cái tên là Name.
    Bước 4:
    Vào Tools > Add-Ins. Bấm vào Browse chọn đường dẫn đến file Name.xla vừa tạo. Bấm OK.
    Các bạn có thể làm theo cách sau để có đc hàm dịch số ra chữ
    Chúc các bạn thành công
     
    #11
  12. vietdoan

    vietdoan Thành viên hoạt động

    Bài viết:
    6
    Đã được thích:
    0
    Hàm dịch số sang tiếng anh

    Bước 1

    - Mở một Workbook mới
    - Vào Tools > Macro > Visual Basic Editor
    - Click chuột phải, chọn Insert Module > Module

    Bước 2
    Nhập câu lệnh.
    Public Function EN(AMT)
    Dim ToRead, Chuoi, Nhom, Word As String
    Dim I, J As Byte, W, X, Y, Z As Double
    Dim Donvi, HChuc, Khung
    If AMT = 0 Then
    ToRead = "none"
    Else
    Donvi = Array("none", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twele", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen")
    HChuc = Array("none", "none", "twenty", "thirty", "fourty", "fifty", "sixty", "seventy", "eighty", "ninety")
    Khung = Array("none", "trillion", "billion", "million", "thousand", "dolars", "cents")
    If AMT < 0 Then
    ToRead = "Minus" & Space(1)
    Else
    ToRead = Space(0)
    End If
    Chuoi = Format(Abs(AMT), "###############.00") '18 digits with 2 decimal places
    Chuoi = Right(Space(15) & Chuoi, 18)
    For I = 1 To 6
    Nhom = Mid(Chuoi, I * 3 - 2, 3)
    If Nhom <> Space(3) Then
    Select Case Nhom
    Case "000"
    If I = 5 And Abs(AMT) > 1 Then
    Word = "dollars" & Space(1)
    Else
    Word = Space(0)
    End If
    Case ".00"
    Word = "only"
    Case Else
    X = Val(Left(Nhom, 1))
    Y = Val(Mid(Nhom, 2, 1))
    Z = Val(Right(Nhom, 1))
    W = Val(Right(Nhom, 2))
    If X = 0 Then
    Word = Space(0)
    Else
    Word = Donvi(X) & Space(1) & "hundred" & Space(1)
    If W > 0 And W < 21 Then
    Word = Word & "and" & Space(1)
    End If
    End If
    If I = 6 And Abs(AMT) > 1 Then
    Word = "and" & Space(1) & Word
    End If
    If W < 20 And W > 0 Then
    Word = Word & Donvi(W) & Space(1)
    Else
    If W >= 20 Then
    Word = Word & HChuc(Y) & Space(1)
    If Z > 0 Then
    Word = Word & Donvi(Z) & Space(1)
    End If
    End If
    End If
    Word = Word & Khung(I) & Space(1)
    End Select
    ToRead = ToRead & Word
    End If
    Next I
    End If
    EN = UCase(Left(ToRead, 1)) & Mid(ToRead, 2)
    End Function

    Bước 3
    Sau khi ghi lại đoạn mã lệnh trên, bạn đóng cửa sổ Visual Basic lại, trở về bảng tính Excel, chọn File > Save As…
    Tại ô Save As Type, chọn “Microsoft Excel Add-Ins (*.xla). Rồi đặt cho nó một cái tên là Name.
    Bước 4
    Vào Tools > Add-Ins. Bấm vào Browse chọn đường dẫn đến file Name.xla vừa tạo. Bấm OK.
    Bước 5
    Cách sử dụng
    =en(10.000.000) => Enter sẽ thấy công dụng của hàm
    chúc các bạn thành công!!!!!!!!
     
    #12
  13. haizapo

    haizapo Thành viên hoạt động

    Bài viết:
    67
    Đã được thích:
    1
    Nơi ở:
    HCMC
    Em có 1 file doitien.xls. Chẳng biết cách upload, mong các bác giúp em để em share cho mọi người.
    Cách để sử dụng rất đơn giản, chẳng cần phải setup gì hết. Chỉ cần mở file doitien.xls, sau đó save as type Add In, OK. Sau đó, vào tools/Add in..., rồi chọn doitien/ OK. Xong.
    Tất cả các file excel đều có thể sử dụng chức năng:
    =vnd(a1) hoặc =usd(a1)( ô a1 chính là ô chứa số cần đổi ra chữ)

    Bácnào cho em cái quyền upload, hay gửi mail cho em, em gửi file cho
    haikt1@yahoo.com
    Haizapo
     
    #13
  14. kiennt83

    kiennt83 Thành viên hoạt động

    Bài viết:
    34
    Đã được thích:
    1
    Nơi ở:
    Hà Nội
    E gọi hàm đc rồi =vn(number) đã ra chữ nhưng font định dạng ko phải .Vntime.
    Hix chắc là VniTime rồi :L
     
    #14
  15. lehongduc

    lehongduc Thành viên thân thiết

    Bài viết:
    129
    Đã được thích:
    1
    Nơi ở:
    VietNam
    Để chia xẻ file với Bà con trên mạng.

    Các Bác thân mến,
    Để chia xẻ tài liệu với bà con trên mạng khi chưa có quyền upload lên diễn đàn, các Bác có thể mần như sau:
    1. Hoặc là đăng ký lấy 1 Account của các Website có cung cấp dịch vụ lưu trữ và chia xẻ miễn phí tài nguyên trên Internet, thí dụ như: www.enips.com, sau đó upload lên và chia xẻ.
    2. Sử dụng dịch vụ miễn phí của Gmail. Điều kiện cần là phải có 1 Account của Gmail, dễ thôi: xin gửi email cho tôi tới địa chỉ: lhongduc@gmail.com với Subject: "Pls Invite", tôi sẽ gửi đến các bác 1 thư mời đăng ký lấy Account miễn phí của Gmail (invite). Sau khi đăng ký, các bác sử dụng dịch vụ Google Page Creator của Google (www.googlepages.com) để tạo Website cho riêng mình và cho upload tài liệu lên đây để chia xẻ cho cộng đồng. Các Bác có thể tham khảo tại địa chỉ này: ketoan.wkt.googlepages.com
    Chúc sức khỏe Bà con Cô Bác
     
    #15
  16. anhoanh

    anhoanh Thành viên hoạt động

    Bài viết:
    105
    Đã được thích:
    1
    Nơi ở:
    Đà Nẵng
    Các Bác ơi!
    Lâu nay tôi dùng file này để dịch tiền từ số ra chữ. Không biết các Bác co thế dùng được không.
    Đây là file dạng Add-in.
    Các Bác tải file này về sau đó:
    1. Mở Excel
    2. Chọn Tools -> Add-ins
    3. Browse đến file bạn tải về sau đó chọn
    Để chuyển số thành chữ bạn phải dùng hàm sau:
    1. VND: Cho ra tiếng việt VND
    2. VND_US: Cho ra Tiếng Anh VND
    3. USD: Cho ra Tiếng ANH USD
    4. USDV: Cho ra Tiếng ANH VND
    Nói chung đây là file rất đơn giẩn các Bác có thể vào Macro để chỉnh Hàm lại theo như mong muons của Các Bác.
    Hy vọng các Bác có thể sử dụng được.
    Thân CHào
     

    Các file đính kèm:

    #16
  17. anhoanh

    anhoanh Thành viên hoạt động

    Bài viết:
    105
    Đã được thích:
    1
    Nơi ở:
    Đà Nẵng
    Mình xin đính chính:

    Để chuyển số thành chữ bạn phải dùng hàm sau:
    1. VND: Cho ra tiếng việt VND
    2. VND_US: Cho ra Tiếng Anh VND
    3. USD: Cho ra Tiếng ANH USD
    4. USDV: Cho ra Tiếng Việt USD
     
    #17
  18. ciffob

    ciffob Thành viên sơ cấp

    Bài viết:
    2
    Đã được thích:
    0
    Nơi ở:
    Hà Nội
    Bổ sung đọc số tiếng Việt

    :cool2: http://www.pcworld.com.vn/pcworld/info/article/2006-6/TVExcel.zip

    Nhân đọc bài "Tiện ích Excel chuyển số sang chữ" trong TGVT số 4/2006, tôi xin đóng góp thêm tiện ích TVEXCEL.XLA phục vụ cho việc đọc số tiếng Việt (ĐSTV). Tiện ích này có hộp thoại giao diện tiếng Việt giúp người sử dụng dễ dàng chọn các mục theo yêu cầu (các phần việc còn lại do chương trình tự xử lý.

    MỘT SỐ TÍNH NĂNG

    • ĐSTV làm việc trên nền Excel 2000/XP/2003, không làm việc tốt trên Excel 97 (hoặc cũ hơn) vì không hỗ trợ Unicode.

    • Hỗ trợ 3 bảng mã VNI, ABC, Unicode. ĐSTV tự chọn bảng mã của ô hiện hành theo tên font. Nhóm VNI Windows có tên font "VNI-*"; nhóm TCVN3-ABC có tên font ".VN*"; nhóm Unicode là các tên font khác, do tên font Unicode không có đặc điểm nhận dạng chung nên không xác định chính xác. Do đó, nếu bạn sử dụng các bảng mã khác thì ĐSTV sẽ coi như là Unicode. Để thể hiện chữ Việt đúng trên form, ĐSTV cần các font sau cho 3 bảng mã:

    + Unicode: Arial, Times New Roman

    + Vni Windows: VNI-Times

    + TCVN3-ABC: .VnTime

    • Tự chọn ô có số (ô nguồn) cuối cùng bên phải của dòng phía trên gần ô cần ghi đọc số nhất (ô đích). Điều này phù hợp với ô tổng cộng (ô nguồn) là ô cuối cùng bên phải của bảng tổng hợp số liệu ô ghi tổng kết bằng chữ (ô đích) nằm ở dòng dưới ô tổng cộng. ĐSTV cho phép bạn chọn lại 1 ô nguồn khác bất kỳ trên bảng tính (trừ ô đích).

    • Do cách đọc số thập phân không thống nhất giữa các loại đơn vị (một đồng năm mươi hai xu, một đơn vị năm mươi hai phần trăm,...) nên ĐSTV chỉ đọc phần nguyên (sau khi làm tròn số) của số. Độ lớn của số không giới hạn (một số ứng dụng chỉ xử lý đến 15 chữ số). Số có thể là giá trị của một ô, kết quả trả về từ công thức trên bảng tính hoặc nhập số trực tiếp vào form.

    • Cho phép thay đổi linh hoạt cách đọc số qua chuỗi nhập bất kỳ (có thể đưa vào công thức các chuỗi như "Tổng cộng", "đồng", "mét",... ) kết hợp biến docso và nhomngan. Kết quả đọc số thể hiện ngay trên form.

    • Có thể ghi kết quả ra ô đích trên bảng tính bằng công thức (sẽ tự cập nhật đọc số khi ô nguồn thay đổi) hoặc bằng chuỗi.

    • Thể hiện tình trạng hoạt động của ĐSTV trên form giúp người sử dụng dễ dàng.

    CÁCH SỬ DỤNG

    Giải nén tập tin TVEXCEL.ZIP (tải về từ www.pcworld.com.vn) để lấy tập tin TVEXCEL.XLA. Bạn có thể mở trực tiếp tập tin TVEXCEL.XLA để sử dụng, nhưng tốt nhất nên cho nó hoạt động cùng Excel để khai thác các hàm đọc số như hàm của Excel bằng cách: vào menu Tools > Add-Ins, chọn Browse rồi duyệt tìm đến tập tin TVEXCEL.XLA, chọn nó rồi nhấn OK. Sau đó, trên thanh menu Excel sẽ có thêm menu Tiếng Việt và menu con Đọc số tiếng Việt. Bạn có thể sử dụng ĐSTV bằng 2 cách:

    I. Sử dụng hàm

    TVEXCEL cung cấp các hàm sau:

    Hàm Công dụng
    DocSoVni(số) Đọc số mã VNI Windows
    DocSoVniH(số) Đọc số mã VNI Windows (ký tự đầu viết hoa)
    DocSoAbc(số) Đọc số mã TCVN3-ABC
    DocSoAbcH(số) Đọc số mã TCVN3-ABC (ký tự đầu viết hoa)
    DocSoUni(số) Đọc số mã Unicode
    DocSoUniH(số) Đọc số mã Unicode (ký tự đầu viết hoa)
    NhomNgan(số) Định dạng số sang dạng 0.000

    Bạn sử dụng các hàm này giống như các hàm của Excel, chú ý bảng mã đang sử dụng mà chọn hàm cho phù hợp.

    Ví dụ: ô B12 sử dụng font .VnTime (bảng mã TCVN3-ABC) có giá trị 1234

    Công thức Kết quả trả về
    =DocSoAbc(B12) một ngàn hai trăm ba mươi bốn
    = "Tổng cộng số tiền là " & DocSoAbc(B12) Tổng cộng số tiền là một ngàn hai trăm ba mươi bốn
    =DocSoAbc(B12) & " (" & NhomNgan(B12) & ")" một ngàn hai trăm ba mươi bốn (1.234)

    II. Sử dụng hộp thoại

    Từ bảng tính Excel:

    - Chọn 1 ô nguồn để làm nơi ĐSTV sẽ ghi công thức đọc số vào bảng tính (không hoạt động khi bạn chọn nhiều ô nguồn).

    - Chọn menu Tiếng Việt --> Đọc số tiếng Việt, form TVEXCEL Doc so tieng Viet xuất hiện. Trong form (từ trên xuống) có những mục sau:

    1. Bảng thông báo tình trạng: Cho biết tình trang hiện tại và gợi ý cho bạn cách xử lý phù hợp.

    2. Nguồn dữ liệu:

    - Số từ ô nguồn: để lấy giá trị từ 1 ô trên bảng tính. Bạn có thể thay đổi địa chỉ ô nguồn.

    - Tự nhập số: bạn tự nhập số vào hộp nhập (chỉ nhập số nguyên). Nếu chọn mục này, ĐSTV chỉ cho ghi vào bảng tính dạng chuỗi.

    3. Địa chỉ ô nguồn: Cho phép thay đổi địa chỉ ô nguồn qua cột và dòng. ĐSTV sẽ cập nhật lại theo dữ liệu ô nguồn mới chọn.

    4. Số từ ô nguồn/ Tự nhập số: Dữ liệu từ ô nguồn hoặc số do bạn nhập vào.

    5. Số định dạng 0.000:

    Nếu Số từ ô nguồn là số, ĐSTV sẽ làm tròn số và định dạng số theo dạng 0.000 không lệ thuộc vào khai báo Digit grouping symbol trong Regional and Language Options của Control Panel.

    6. Cách đọc số:

    Cho phép thay đổi linh hoạt cách đọc số bằng bàn phím qua chuỗi kết hợp 2 biến docso và nhomngan. 2 biến này có hiệu lực khi trong Cách đọc số có chuỗi "docso" hoặc "nhomngan" (không phân biệt chữ hoa, thường), cần chọn kiểu gõ bàn phím phù hợp với bảng mã nhập tiếng Việt.

    - Biến docso: chuyển số sang cách đọc tiếng Việt.

    - Biến nhomngan: định dạng số theo dạng 0.000

    Ví dụ: ô nguồn A1 sử dụng font Arial (bảng mã Unicode) có giá trị là 1233,5

    Cách đọc số (bạn tự nhập vào) Kết quả đọc số
    1
    Tổng cộng số tiền là docso đồng (nhomngan). Tổng cộng số tiền là một ngàn hai trăm ba mươi bốn đồng (1.234).
    2
    Danh sách này có docso thí sinh (nhomngan). Danh sách này có một ngàn hai trăm ba mươi bốn thí sinh (1.234).
    3
    Tổng khối lượng là docso kg Tổng khối lượng là một ngàn hai trăm ba mươi bốn kg
    4
    Danh sách này có nhomngan thí sinh Danh sách này có 1.234 thí sinh

    Những thay đổi trong Cách đọc số sẽ được cập nhật trong Kết quả đọc số.

    7. Kết quả đọc số: Cho biết kết quả đọc số theo Cách đọc số. Kết quả này được ghi vào ô đích nếu chọn lệnh Ghi đọc số (nếu bảng tính bị khóa thì Ghi đọc số không hiệu lực).

    8. Ghi dạng công thức/ chuỗi:

    - Ghi dạng công thức: sẽ ghi công thức vào ô đích. Khi ô nguồn thay đổi giá trị thì công thức sẽ trả về kết quả mới theo giá trị ô nguồn. Ví dụ công thức tại ví dụ 1 sử dụng mã Unicode sẽ được ĐSTV ghi vào ô nguồn:

    ="Tổng cộng số tiền là " & DocSoUni(A4) & " đồng (" & NhomNgan(A4) & ")."

    Nếu sử dụng thạo công thức, bạn có thể chỉnh lại công thức không cần đến hộp thoại.

    - Ghi dạng chuỗi: sẽ ghi vào ô đích chuỗi trong Kết quả đọc số.

    9. Cách viết hoa số:

    - Một triệu...: sẽ ghi hoa ký tự đầu của chuỗi đọc số. Ví dụ: Một triệu hai trăm ngàn.

    - một triệu...: sẽ ghi thường ký tự đầu của chuỗi đọc số. Ví dụ: một triệu hai trăm ngàn.

    10. Bảng mã: Cho biết ô đang chọn sử dụng bảng mã nào và ĐSTV sẽ chọn công thức phù hợp với bảng mã đang chọn.
    TVEXCEL còn một số vấn đề cần trao đổi với các bạn để chương trình hoàn thiện hơn:

    - Một ngàn triệu đọc là một tỷ. Vậy một ngàn tỷ và một triệu tỷ đọc là gì? Số 1.000.000.000.000.000.000 đọc là một tỷ tỷ có đúng không?

    - Theo sách giáo khoa, số "1,2" đọc là một đơn vị hai phần mười. Cách đọc này chính xác. Nhưng nếu đọc một đồng hai phần mười thì hơi lạ tai. Có cách đọc số thập phân nào áp dụng chung cho các loại đơn vị không?

    - Làm thế nào để nhận dạng tên 1 font nào đó là Unicode?

    Phạm Duy Long
    Trung tâm dạy nghề huyện Lai Vung, Đồng Tháp
    pham_duy_long@yahoo.com

    |<< << >> >>|
     
    Last edited: 11 Tháng ba 2007
    #18
  19. tamnt07

    tamnt07 Sống đơn giản, lấy nụ cười làm căn bản!

    Bài viết:
    5,075
    Đã được thích:
    445
    Nơi ở:
    The Capital

Chia sẻ trang này