Ghi số tiền bằng chữ

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi ketoankinhcan, 10 Tháng mười một 2007.

13,423 lượt xem

  1. ketoankinhcan

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

    Bài viết:
    501
    Đã được thích:
    9
    Nơi ở:
    TP.HCM
    Để ghi số tiền bằng chử trong phiếu thu - chi. Bác nào có ý kiến gì ko, cho em xin với! chứ cứ làm công thức tất cả các công đoạn của PT-C rồi lại căng mắt ra gõ số tiền bằng chữ oải quá các Bác ơi!
    Hôm trước em có nhìn thấy có người làm như sau, VD số tiền ở C5, người ta cài CT như vầy nè: =C:\programfile\Vietchu.xla!Vnivnd($C$5) NHƯNG EM LÀM TRÊN MÁY NHÀ EM KO CÓ RA.
     
    #1
  2. levanton

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

    Bài viết:
    3,924
    Đã được thích:
    147
    Giới tính:
    Nam
    Nơi ở:
    Thành phố mang tên Bác Hồ kính yêu
    Trong các file kế toán của EVA919, Càmau, levanton, đều có công thức sẵn ghi số tiền thành chữ. bạn tìm trong mục sổ sách chứng từ sẽ có.
    Ví dụ http://www.webketoan.vn/forum/showthread.php?t=33541&page=4
     
    #2
  3. bietlamgi

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

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    Sài Gòn
    Bạn ơi, bạn dùng đoạn code này thử xem nhé! Nó thích hợp với font chữ Arial và tương đương... nếu không rõ cách cài đặt hãy liên hệ với tôi: biet_lam_gi@yahoo.com ym: biet_lam_gi...:


    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
     
    #3
  4. bietlamgi

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

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    Sài Gòn
    Nếu thích bạn tải Addins tại đây
    Hoặc nguyên bản đoạn code trên tại đây
     
    Last edited: 5 Tháng một 2008
    #4
  5. nhunglh

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

    Bài viết:
    5
    Đã được thích:
    0
    Nơi ở:
    Quan 10
    tải xong rồi làm sao nữa. Bạn làm ơn chỉ dùm. Mình mù tịt khoản này và cũng thử nhiều lần rồi...
     
    #5
  6. thuyen5d5d

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

    Bài viết:
    13
    Đã được thích:
    0
    Nơi ở:
    HCM
    Rồi thì bạn vào Tools -> Add-Ins.. -> Browse... -> Tìm tập tin Vietchu.xla -> OK -> OK.
    Chọn ô cần viết chữ rồi gõ: =USD(123). Vậy sẽ thấy kết quả ngay thôi.
     
    #6
  7. thanhkien78

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

    Bài viết:
    141
    Đã được thích:
    4
    Nơi ở:
    Maritime Bank - Ninh Bình
    Đoạn code này ai hiểu được chắc bị "tẩu hỏa nhập ma" luôn, mình có tạo được số tiền bằng chữ chỉ với 1 vài công thức đơn giản của Excell, các bạn đọc qua rồi sau này có thể tiện máy đâu tạo luôn đấy được.

    Nếu có gì không hiểu thì liên lạc với mình.
     

    Các file đính kèm:

    #7
  8. thanhnha0606

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

    Bài viết:
    35
    Đã được thích:
    0
    Nơi ở:
    any where
    Trước đây ở công ty mình chị KTT có viết chương trình trên Macro, mình có nghiên cứu và thấy trên PT,PC ở dòng số tiền bằng chữ có công thức rất đơn giản như sau:
    Ví dụ + Tại ô C10 đánh số tiền bằng số là 20.500
    + Tại ô số tiền bằng chữ có công thức =VND($C10)
    Mình không rành về Macro lắm, nếu bạn nào biết sử dụng Macro thì vào thử nhé.
    Bài này chỉ mang tính chất tham khảo.
     
    #8
  9. nga ngo 822008

    nga ngo 822008 Thành viên sơ cấp

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    hai phong
    Bác ơi e copy vào máy rồi nhưng khi mở ra nó hỏi Pass. Bác làm ơn cho e xin cái pass được không? nếu Bác đồng ý thì gửi email vào địa chỉ Jiu_er@yahoo.com giúp e với nhé!
    Cảm ơn bác!
     
    #9
  10. phuongmung

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

    Bài viết:
    6
    Đã được thích:
    1
    Nơi ở:
    HCM
    Em co tai ve tham khao nhung ko co Pass de mo. Anh co the gui cho em pass hoac cai khac duoc ko? Em dang hoc nen rat muon biet ve phan nay. Email cua em la: thuphuong_vs@yahoo.com.vn Cam on anh rat nhieu
     
    #10
  11. Thu Hien

    Thu Hien Guest

    dich tien thanh chu

    bạn ơi mình cũng tải về nhung nó hỏi pass, bạn gửi cho mình với: thuhien_nguyenhn@yahoo.com.vn. Cảm ơn nhiều
     
    #11
  12. toong_truongsoi

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

    Bài viết:
    72
    Đã được thích:
    0
    Nơi ở:
    38CX ->TP. HCM
    Cái này là tác phẩm tôi ăn cắp của Thanhkien 78 ah nhưng mà không có gửi kèm file đc, không biết làm
    Các bạn khỏi cần Pass chỉ cần mở file mới ra rồi coppy sang sheet mới rồi sửa tên lại (tên sheet) là ok, nhớ sửa cả công thức nữa cho trung với tên sheet là ok.
    Pac Thanhkien đừng chửi nha!:banana::banana::banana::banana::banana:
     
    #12
  13. thuky260709

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

    Bài viết:
    1
    Đã được thích:
    0
    Nơi ở:
    brvt
    Ðề: Ghi số tiền bằng chữ

    Sao minh mo file excel ma no hoi mat khau. vay mat khau file nay la gi vay ban, ai biet cho minh xin "trucmaikhe16@yahoo.com"
     
    #13
  14. ketoanbinhduongvn

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

    Bài viết:
    17
    Đã được thích:
    0
    Nơi ở:
    Dĩ An, Bình Dương
    Ðề: Ghi số tiền bằng chữ

    Bạn tham khảo diễn đàn về vấn đề bạn đang hỏi: tại đây
    File đính kèm là công cụ bạn sẽ sử dụng cho việc chuyển đối số sang chữ.
     
    #14
  15. phongky2013

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

    Bài viết:
    92
    Đã được thích:
    11
    Nơi ở:
    Hà Nội
    Ðề: Ghi số tiền bằng chữ

    Bạn xem video hướng dẫn đổi số tiền ra chữ nè, đơn giản và nhanh lắm

    [video=youtube;Jop1tctRl4I]https://www.youtube.com/watch?v=Jop1tctRl4I[/video]
     
    #15

Chia sẻ trang này