Hàm đọc số thành chữ với font unicode (chỉ giáo dùm)

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi cop con, 29 Tháng bảy 2007.

24,849 lượt xem

  1. cop con

    cop con Thành viên sơ cấp

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    TP. Hồ Chí Minh
    Chào các bạn,
    mình sử dụng hàm đọc số thành chữ trong diễn đàn này, nhưng những hàm này chỉ dùng được khi dùng cho font VNI, con dùng cho font unicode thi "bo tay". Bạn nào có cách nào giải quyết để hàm có thể dùng với font unicode thi chỉ giáo dùm.
    Cảm on nhiều,
     
    #1
  2. darkmoon

    darkmoon Tiền và tiền $$$

    Bài viết:
    404
    Đã được thích:
    8
    Nơi ở:
    HCM
    File sưu tầm từ internet (không nhớ tác giả)
     

    Các file đính kèm:

    • VNUD.zip
      Kích thước:
      1 KB
      Đọc:
      2,511
    #2
    thao nguyen1816 thích bài này.
  3. trucmai28780

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    Ha noi
    Ham doc so thanh chu voi font unicode

    Bạn thân mến

    Có 2 cách để bạn sử dụng được font unicode
    - Cách 1: Bạn sử dụng chương trình unikey để chuyển font từ vni sang unicode
    - Cách 2: Bạn quay trở lại Module cũ sửa lại tất cả những từ như "một", "hai", "ba", "bốn",... "mười"... "nghìn", "đồng", ... gõ bằng bộ gõ Unicode
    Save lại
    Từ lần sau khi bạn dùng hàm này sẽ chuyển cho bạn về font unicode

    Chúc bạn thành công

     
    #3
  4. cop con

    cop con Thành viên sơ cấp

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    TP. Hồ Chí Minh
    Cảm ơn mọi người, các bạn rất nhiệt tình chia sẻ kiến thức của mình. Mình đã đọc trong hàm của bạn Darkmoon, sau đó bắt chước để đổi các giá trị "một", "hai"... thàn font unicode với hàm chrW rất thành công.
    Cảm ơn một lần nữa

    PS: mình không thấy hối tiết khi tham gia diễn đàn này.
     
    #4
  5. bietlamgi

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

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    Sài Gòn
    Function VNUnicode(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 = "Kh" & ChrW$(244) & "ng " & ChrW$(273) & ChrW$(7891) & "ng"
    Else
    If Abs(baonhieu) >= 1E+15 Then
    KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n - H" & ChrW$(224) & "m " & ChrW$(273) & ChrW$(7893) & "i s" & ChrW$(7889) & " ra ch" & ChrW$(7919) & " Vi" & ChrW$(7879) & "t Nam; font ch" & ChrW$(7919) & " .Vntime - Copyright by MaiKa of AQN (0953-357-988)"
    Else
    If baonhieu < 0 Then
    KetQua = ChrW$(194) & "m" & Space(1)
    Else
    KetQua = Space(0)
    End If
    SoTien = Format(Abs(baonhieu), "##############0.00")
    SoTien = Right(Space(15) & SoTien, 18)
    Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "ã")
    Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(272), "t" & ChrW$(272), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & ChrW$(7891) & "ng", "")
    Dem = Array("None", "m" & ChrW$(7897) & "t", "hai", "ba", "b" & ChrW$(7889) & "n", "n" & ChrW$(259) & "m", "s" & ChrW$(225) & "u", "b" & ChrW$(7849) & "y", "t" & ChrW$(225) & "m", "ch" & ChrW$(237) & "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 = ChrW$(273) & ChrW$(7891) & "ng" & Space(1)
    Else
    Chu = Space(0)
    End If
    Case ".00"
    Chu = "ch" & ChrW$(7861) & "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" & ChrW$(432) & ChrW$(7901) & "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 = "l" & ChrW$(7867) & Space(1)
    End If
    End Select
    Chu = Chu & Dich
    Next J
    End Select
    ViTri = InStr(1, Chu, "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7897) & "t", 1)
    If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7889) & "t"
    KetQua = KetQua & Chu
    End If
    Next i
    End If
    End If
    VNUnicode = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
    End Function
     
    #5
  6. nguyenthu2911

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    hcm
    Ai có file dịch số tiền bằng số sang chữ làm ơn cho xin với!!!!!!!
    Mình cũng có 1 file nhưng bị lỗi rồi, không khắc phục được!!!
    thanks in advance!!!!
     
    #6
  7. chuongevn

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    long an
    Các bạn sửa chữ "bẩy" thành "bảy" trong Module Số thành Chữ giúp mình nha!
     
    #7
  8. Typer

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

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    Hà Nội
    Số viết bằng chữ

    Hàm này em tự viết, các anh chị dùng thử cho em xin ý kiến. Nó trả về các kiểu Unicode, TCVN3 và VNI tùy tham số truyền vào.
    Download here (chờ tí để nó quét virus).
    Thank.
    Ghi chú: bản cập nhật ngày 19/09.
     
    Last edited: 19 Tháng chín 2008
    #8
  9. Vando

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

    Bài viết:
    436
    Đã được thích:
    3
    Nơi ở:
    Bac Giang
    Cách này không được đâu.
    Các ký tự có dấu tiếng Việt phải được thay bằng code của nó VD ChrW$(7897) là chữ ộ
     
    #9
  10. minhchuyen

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

    Bài viết:
    2
    Đã được thích:
    0
    Nơi ở:
    hcm
    Mình là thành viên mới, có tải file đổi số ra chữ nhưng khi thực hiện chúng không phân biệt được số "năm" hay "lăm" xin các bạn chỉ giáo. Thanks.
     
    #10
  11. dotanhai

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    kien giang
    Mình có cái này nè
    Copy trong Excel
     

    Các file đính kèm:

    • Book2.xls
      Kích thước:
      26 KB
      Đọc:
      584
    #11
  12. huynh duc thang

    huynh duc thang Thành viên sơ cấp

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    quang ngai
    Xin chào các anh, chi..! Mình là thành viên mới, anh chị nào có file chuyển số ra chữ viết cho mình xin với. Cảm ơn nhiều lắm.
     
    #12
  13. hoangdanh282vn

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

    Bài viết:
    75
    Đã được thích:
    6
    Nơi ở:
    TP.HCM
    Bạn xem thêm ở đây nha.
    http://webketoan.vn/forum/showthread.php?t=63260
     
    #13
  14. tuongvi76

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

    Bài viết:
    7
    Đã được thích:
    0
    Nơi ở:
    Tp.HCM
    các bạn ơi, ecxel mình o giỏi lắm. Đã chỉ rồi thì chỉ cho trót luôn nha: làm sao đánh công thức vào hàng mình cần làm? Mình muốn đổi số thành chữ trong tất cả các phiếu xuất... mà nó chỉ có 1 hàng thôi.
     
    #14
  15. MINHIN

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

    Bài viết:
    16
    Đã được thích:
    0
    Nơi ở:
    Quang ngai
    ban hoi minh ko hieu gi ca" lam sao danh cong thuc vao ham minh can".con chuyen so thanh text. ban chi can boi den phan can chuyen chon. Data>text to columns>delimited>next>next chon text trong columns data format. ok the la xong.chuc ban may man
     
    #15
  16. tuongvi76

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

    Bài viết:
    7
    Đã được thích:
    0
    Nơi ở:
    Tp.HCM
    bạn cho mình hỏi cách tạo chỉ mục trong ecxel?
     
    #16
  17. phuongdinh

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

    Bài viết:
    24
    Đã được thích:
    0
    Nơi ở:
    chau doc
    các bạn ơi sao mỗi lần mình đổi số thành chữ phải mình phải bấm vào số chuyển sang chữ, cùng 1 ô minh thay đổi số chữ không thay đổi theo là sao vậy các bạn, chỉ cho mình với
     
    #17
  18. thanhdoai

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    ha noi
    bác nào chỉ dùm tui với. Sao may file tôi downloads ở đây về máy tui chẳng mở được vậy? gửi về email hô tui nha, cảm ơn rất rất nhìu
    hoamoclanhhd@yahoo.com
     
    #18
  19. linhphuong123

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

    Bài viết:
    6
    Đã được thích:
    0
    Nơi ở:
    6/11/23A Phan Xích Long, P3, Q.Phú Nhuận, Tp.HCM
    Bạn Darkmoon ơi mình có tải file của bạn vể rồi nhưng không biết phải làm gì tiếp theo nữa. Phải làm gì thì công tức hàm vnunicode(round(C9,o)) mới xài được hả bạn.
    Cảm ơn bạn nhiều nhé
     
    #19
  20. timbolac

    timbolac Học việc

    Bài viết:
    456
    Đã được thích:
    2
    Nơi ở:
    MC

Chia sẻ trang này