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

[baotritoanha]

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:

View more random threads:

• TÌM TỔNG DỮ LIỆU BÊN SHEET KHÁC
• Tính giờ công chi tiết cho nhân viên
• Hệ thống kê khai thuế
• Phần mềm kế toán Excel có SD VBA (miễn phí)
• Xin các anh chị giúp em file này.
• file excel hàng tồn kho cần giúp đỡ
• Sổ chi tiết công nợ
• Phần mềm KT Excell + Access
• Hàm trong excel?
• lỗi trong excel

[kitelag]

Ðề: 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

[huong121]

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

Bạn hãy vào trang http://www.pvmtc.com.vn/Desktop.aspx/Tai-Nguyen/Sofware/0B36B6BC23844733BD908D6BFA3BB266/. Sau đó tải về máy của bạn.
Bạn "Add-Ins available". Bạn chỉ cần gõ "=VND(địa chỉ của những con sô 1.234.567)" Enter thế là xong.

[Tienichtours]

Ðề: 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

[duydiem6868]

Ðề: 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

[hoanganh2]

Ðề: 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

[halongbaylc102]

Ðề: 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:

[lodovo]

Ðề: 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:

Không có địa chỉ mail gửi sao được đây Cưng:xichdu:

[phamtienquan92]

Ðề: 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

[thutrang203]

Ðề: 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.