Ghi số tiền bằng chữ

  • Thread starter ketoankinhcan
  • Ngày gửi
ketoankinhcan

ketoankinhcan

Cao cấp
24/1/07
501
9
18
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.
 
Khóa học Quản trị dòng tiền
levanton

levanton

Cao cấp
Để 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.

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
 
B

bietlamgi

Guest
15/3/06
5
0
0
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
 
B

bietlamgi

Guest
15/3/06
5
0
0
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
 
Sửa lần cuối:
N

nhunglh

Guest
3/1/07
5
0
0
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...
 
T

thuyen5d5d

Guest
13/2/08
13
0
0
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.
 
thanhkien78

thanhkien78

Trung cấp
10/8/06
141
4
0
45
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.
 

Đính kèm

  • Chu so tien.xls
    125 KB · Lượt xem: 633
T

thanhnha0606

Guest
29/12/07
35
0
0
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.
 
N

nga ngo 822008

Guest
17/6/08
1
0
0
hai phong
Đ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.

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!
 
P

phuongmung

Sơ cấp
6/7/08
6
0
1
34
HCM
Đ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.

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
 
toong_truongsoi

toong_truongsoi

Trung cấp
19/6/08
72
0
0
38CX ->TP. HCM
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

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:
 
T

thuky260709

Guest
27/6/14
1
0
0
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"
 
ketoanbinhduongvn

ketoanbinhduongvn

Sơ cấp
21/2/14
17
0
0
Dĩ An, Bình Dương
Ðề: Ghi số tiền bằng chữ

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

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ữ.
 
P

phongky2013

Trung cấp
28/5/14
92
10
8
32
Hà Nội
Ðề: Ghi số tiền bằng chữ

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

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]
 

Xem nhiều

Webketoan Zalo OA