Chủ đề: chuyển số thành chữ trong excel
-
05-04-2010, 07:26 PM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
chuyển số thành chữ trong excel
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:
- kế toán nhà hàng khách sạn
- công thức tính thuế TNCN trên bảng lương excel
- lập sổ chi tiết vật tư, hàng hóa bằng excel???????????
- Phần mềm kt excel qđ 15 & 48 - tt 244
- Add-In "Accounting Helper" - Đọc số thành chữ
- Phần mềm Quản lý bán hàng bằng Excel (Bản Pro)
- dùng hàm nào, câu lệnh ra sao?
- Tổng Hợp Các File kế toán Excel Hữu ích
- CÔNG NỢ BẰNG EXCEL NÀ,
- Làm BCTC từ Nhật ký chung?????????
-
05-04-2010, 07:31 PM #2
Silver member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: 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
-
05-04-2010, 07:40 PM #3
Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: 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.
-
05-04-2010, 09:29 PM #4
Silver member
- Ngày tham gia
- Nov 2015
- Bài viết
- 2
Ðề: 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
-
05-04-2010, 09:45 PM #5
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
-
05-05-2010, 04:48 AM #6
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
05-05-2010, 05:25 AM #7
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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:
-
05-05-2010, 05:35 AM #8
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: chuyển số thành chữ trong excel
Gửi bởi hoangyen_000
-
05-05-2010, 05:38 AM #9
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
-
05-05-2010, 03:00 PM #10
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: 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.
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"