chuyển số thành chữ trong excel

D

dungba_tiger

New Member
Hội viên mới
Cho mình hỏi làm thế nào để chỉ đánh số mà nó hiện lên thành chữ trong excel,vd: như chỉ đánh 50000 thì nó hiện là: Năm mươi nghìn đồng, hoặc năm mươi nghìn USD:cry7::hichic:
 
Ðề: chuyển số thành chữ trong excel

cái này phải dùng hàm mà bạn. Cái này bạn search trên google là ra ngay. Nó hơi dài 1 tí không tiện copy cho bạn ở đây. Chịu khó tìm nha bạn
 
Ðề: chuyển số thành chữ trong excel

bạn vào tool sau đó vào macro rồi vào visual basic ban bấm thêm modul sau đoa copy phần này vàu nhe :
Public Function VND(BaoNhieu)
If Val(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)
SoTien = Format(Abs(BaoNhieu), "##############0.00")
SoTien = Right(Space(15) & SoTien, 18)
Hang = Array("None", "traêm", "möôi", "gì ñoù")
DonVi = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "xu")
Dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chín")
For N = 1 To 6
Nhom = Mid(SoTien, N * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If N = 5 Then
Chu = "ñoàng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00", ",00"
Chu = Space(0) '"chaün"
Case Else
S1 = Left(Nhom, 1): S2 = Mid(Nhom, 2, 1): S3 = Right(Nhom, 1)
Chu = Space(0): Hang(3) = DonVi(N)
For K = 1 To 3
Dich = Space(0): S = Val(Mid(Nhom, K, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(K) & Space(1)
'Else
' If K = 1 And N > 1 And N < 6 And _
' Val(Mid(SoTien, (N - 1) * 3 - 2, 3)) > 0 Then
' Dich = "khoâng" & Space(1) & Hang(K) & Space(1)
'End If
End If
Select Case K
Case 2 And S = 1
Dich = "möôøi" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(K) & Space(1)
Case 3 And S = 5 And Val(S2) > 0
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If N > 1 And Val(Mid(SoTien, (N - 1) * 3 - 2, 3)) > 0 _
Or (Val(S1) > 0) Then
Dich = "leû" & Space(1)
End If
End Select
Chu = Chu & Dich
Next K
End Select
ViTri = InStr(1, Chu, "möôi moät")
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "möôi moát"
KetQua = KetQua & Chu
End If
Next N
End If
End If
thế là ok
Có gì ko hiểu bạn liên hệ với mình : trinhkimthanh1984@yahoo.com
Chúc bạn thành công
 
Ðề: chuyển số thành chữ trong excel

ôi trời ơi, người ta hỏi trong excell mà hướng dẫn cao siêu vậy
 
Ðề: chuyển số thành chữ trong excel

Bạn hãy cho Thanh địa chỉ mail Thanh gởi cho bạn phần mềm đọc số ra chữ, khi tải về được thì bạn lập công thức : = doc_soVND(Số tiền,1). Mail : ketoan_thanh@yahoo.com.vn
 
Ðề: chuyển số thành chữ trong excel

cảm ơn bạn Thanh nhé!:love03: mình cũng đang tìm phần mềm này ma!hj! Bạn cóp giùm mình nhé! thank you:nuhon:
 
Ðề: chuyển số thành chữ trong excel

bạn ơi gửi cho mình phần mềm này đi.mình thấy hay đó.mail của mình là:truongthinhan1010@gmail.com
 
Ðề: chuyển số thành chữ trong excel

Cảm ơn các bạn, hiện mình đang d9j công tác ngoài Hà Nội với sếp nên không có ở SG gởi cho các bạn.
 
Ðề: chuyển số thành chữ trong excel

tuankt_vqt nói:
ôi trời ơi, người ta hỏi trong excell mà hướng dẫn cao siêu vậy
Nhấn để mở rộng...
đâu có cao siêu đâu, phần này bạn phải làm vào như thế thì excel của bạn mới đọc được.
bạn chỉ cần gõ =vnd(..) thế là ok
 
Ðề: chuyển số thành chữ trong excel

không cần phần mềm gì đâu, gửi cho mình địa chỉ email mình gửi cho mẫu phiếu chi trong đó có phần đọc số thành chữ, copy lại rồi sử dụng ở các file khác thôi
 
Ðề: chuyển số thành chữ trong excel

Mình cũng dang cần gấp phần mềm đọc số thành chữ. Nếu khi nào gửi được bạn gửi hộ cho mình vào mail là: ngatruong7476@gmail.com
Cảm ơn nhiều.:
 
Ðề: chuyển số thành chữ trong excel

Hì một câu hỏi thật là tuyệt bạn ơi vậy bạn nên học cả lập trình nữa thì mời ổn được bàn à
 
Ðề: chuyển số thành chữ trong excel

dungba_tiger nói:
Cho mình hỏi làm thế nào để chỉ đánh số mà nó hiện lên thành chữ trong excel,vd: như chỉ đánh 50000 thì nó hiện là: Năm mươi nghìn đồng, hoặc năm mươi nghìn USD:cry7::hichic:
Nhấn để mở rộng...
Bạn phải dùng Addin của Excel, cụ thể cách làm như sau:
Vào Tool-->Add In.. Tìm đến Browes...
CS0.10616323_1_1.jpg

TÌm đến Addin cần chọn.
3L0.10616379_1_1.jpg

SAu đó vào Tool-->macro->Securit.Chỉnh lại thành Low( not recommend) cho Add In nó hoạt đông.
Sử dụng:
Bạn chỉ cần dùng như sau:
=VND( địa chỉ ô)
=USD( điạ chỉ ô)
 
Ðề: chuyển số thành chữ trong excel

phuyen89 nói:
Bạn phải dùng Addin của Excel, cụ thể cách làm như sau:
Vào Tool-->Add In.. Tìm đến Browes...
CS0.10616323_1_1.jpg

TÌm đến Addin cần chọn.
3L0.10616379_1_1.jpg

SAu đó vào Tool-->macro->Securit.Chỉnh lại thành Low( not recommend) cho Add In nó hoạt đông.
Sử dụng:
Bạn chỉ cần dùng như sau:
=VND( địa chỉ ô)
=USD( điạ chỉ ô)
Nhấn để mở rộng...
nếu không muốn dùng Macro và không biết nhiều về VBA thì cũng có những cách không cần dùng đến VBA ai cần thì tớ send cho mẫu rồi sau cứ thế lấy mà dùng và các file khac ..
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top