Ghi số tiền bằng chữ

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

ketoankinhcan

Thành viên thân thiết
24/1/07
501
9
18
TP.HCM
#1
Để 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.
 
levanton

levanton

Thành viên thân thiết
#2
Để 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

Thành viên sơ cấp
15/3/06
5
0
0
Sài Gòn
#3
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

Thành viên sơ cấp
15/3/06
5
0
0
Sài Gòn
#4
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

Thành viên sơ cấp
3/1/07
5
0
0
Quan 10
#5
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

Thành viên sơ cấp
13/2/08
13
0
0
HCM
#6
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

Thành viên thân thiết
10/8/06
141
4
0
40
Maritime Bank - Ninh Bình
#7
Đ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

T

thanhnha0606

Thành viên sơ cấp
29/12/07
35
0
0
any where
#8
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

Thành viên sơ cấp
17/6/08
1
0
0
hai phong
#9
Đ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

Thành viên sơ cấp
6/7/08
6
1
1
29
HCM
#10
Đ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

Thành viên sơ cấp
19/6/08
72
0
0
38CX ->TP. HCM
#12
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

Thành viên sơ cấp
27/6/14
1
0
0
brvt
#13
Ðề: 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

Thành viên sơ cấp
21/2/14
17
0
0
Dĩ An, Bình Dương
#14
Ðề: 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

Thành viên sơ cấp
28/5/14
92
10
8
26
Hà Nội
#15
Ðề: 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]
 

Thành viên trực tuyến

  • daongocnam0603
  • xediengiatot
  • tuanduongthanh
  • akakavn

Xem nhiều