Chủ đề: CODE đổi số thành chữ.
-
11-01-2008, 05:38 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
CODE đổi số thành chữ.
Giả sử bạn có file excel để in Phiếu thu(chi) chẳng hạn, và bạn muốn mỗi khi gõ số tiền vào phiếu bằng số tại ô A1 thì chương trình tự đọc ra số tiền bằng chữ tại ô A2, Bạn làm như sau:
- Đầu tiên, bạn copy đoạn code sau đây(có chữ màu xanh), tiếp theo mở file Excel In phiếu thu chi ra/ Vào menu Tool/Macro--->Visual Basic Editor(hoặc bấm Atl+F11)
- Màn hình Visual hiện ra(đen đen đấy), bạn lại vào Menu Insert/ và bấm vào Module
- Một màn hình trắng toát hiện ra, bây giờ bạn hãy Past đoạn code đã copy lúc nãy vào, sau cùng bấm vào Save để lưu lại.
- Cuối cùng, bạn bấm close để đóng cửa sổ Visual Basic Editor này lại trở về Excel
- Lúc bây giờ, tại ô A2(tức là ô mà bạn muốn hiện số tiền bằng chữ) bạn gõ vào công thứ: =VND(A1)
- Lập tức chương trình sẽ tự đọc số tiền bằng số mà bạn gõ vào ô A1
- Tại ô A2(ô hiện số tiền bằng chữ ) bạn hãy chọn font: VNI-TIMES vì đoạn code được viết theo font này.
Lưu ý: Ô A1 và A2 ở đây là tôi lấy ví dụ, khi làm bạn nhớ đổi lại cho đúng địa chỉ theo nhu cầu.
* Đoạn code cần copy(copy đoạn code màu xanh):
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") '18coät soá 2soá leû
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 = "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) > 2
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
VND = UCase(Left(Ketqua, 1)) & Trim(Mid(Ketqua, 2))
End FunctionView more random threads:
- TÌM TỔNG DỮ LIỆU BÊN SHEET KHÁC
- hàm tách số khỏi chuỗi kí tự,...!
- Cho mình xin file kế toán bằng excel theo hình thức Nhật ký chung theo quyết định 48
- Xin giúp cách tra cứu hàng tồn kho cho đơn hàng của khách mua hàng
- Sử dụng hàm if để lọc số liệu và tính giá trị với nhiều điều kiện
- AddIn tính Thuế TNCN mới nhất theo TT 111/2013 ngày 15/8/2013 của BTC
- kế toán bằng excel
- Add-In "Accounting Helper" - Đọc số thành chữ
- Không hiểu file bi sao
- Ngày tháng năm trong excel ?
-
11-05-2008, 04:25 PM #2Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 0
Ðề: CODE đổi số thành chữ.
sao không dùng addin cho nó tiện, hiện nay các addin đổi số thành chữ rất nhiều mà
-
11-05-2008, 04:40 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: CODE đổi số thành chữ.
Nó đọc ra sẽ lỗi thế này này: đồng = ñoàng; ngàn ="ngaøn ; tỷ = "tyû",; triệu = "trieäu",
Làm thế nào để sửa font add ins đó nhỉ?
-
07-08-2010, 03:22 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: CODE đổi số thành chữ.
Gửi bởi hoanghaiha
Volkswagen Touareg được nhập cảng từ nhà máy Bratislava ở Slovakia, nơi duy nhất lắp ráp mẫu xe này, cùng với sản phẩm hạng sang Audi Q7 và Porsche Cayenne. Bộ ba sản phẩm lovense lush "anh em" là...
SUV "khủng bố" chiếm thế phân khúc xe sang cho phái mạnh