Đổi số thành chử trong Excel

Hiện nay trên các diển đàn Excel, Kê toán, các trang mạng có giới thiệu rất nhiều các Đoạn mã nguồn, các tiện ích để hổ trợ các bạn làm Kế toán trong việc “Chuyển đổi tiền số thành tiền chử ” nhưng thường bị lổi hoặc khong như ý muốn. Vì vậy tôi xin hướng dẩn cách chuyển đổi số thành chử trong Excel chi tiết sau

Hiện nay trên các diển đàn Excel, Kê toán, các trang mạng có giới thiệu rất nhiều các Đoạn mã nguồn, các tiện ích để hổ trợ các bạn làm Kế toán trong việc “Chuyển đổi tiền số thành tiền chử ” nhưng thường bị lổi hoặc khong như ý muốn Vì vậy tôi xin hướng dẩn cách chuyển đổi số thành chử trong Excel chi tiết sau:

* Đối với Excel 2003 trở về trước các bạn làm như sau:

1.Khởi động Excel, tạo một bảng tính mới (giả sử tên là Book1.xls) Trong

Book1, bạn chỉ cần giữ lại một WorkSheet đầu tiên (xóa bỏ các WorkSheet từ Sheet2 đến hết, việc làm này nhằm thu gọn thư viện nên bạn có thể bỏ qua) 2.Chọn lệnh Tools=>Marco=>Visual Basic Editor (<Alt-F11>) để chuyển sang môi trường sọan thảo Visual Basic Khung Project sẽ liệt kê các thư viện và dự

án đang được mở trong Excel, trong đó có Book1.

3.Nhấn chuột vào dòng VBAProject (Book1) để chọn dự án này rồi chọn lệnh Insert=>Module để chèn thêm một Module mới vào dự án (Module mới này sẽ

có tên là Module1).

4.Nhấn đúp vào Module1 để chuyển sang khung sọan thảo bên phải khung Project Bạn hảy copy đoạn mã nguồn mà tôi đã viết ở phía dưới rồi Paste vào khung này

5.Chọn lệnh File=>Close anh Return to Microsoft Excel (<Alt-Q>) để quay trở lại Excel Bạn có thể kiểm tra sự hoạt động của các hàm mới này ngay trong Book1 Nếu vẫn còn sai sót, quay lại thực hiện từ bước 2 để sửa mã nguồn của các hàm 6.Chọn lệnhFile=>SaveAs:

-Trong khung Save in, chọn thư mục: MSOffice\Office\Library (thư mục ngầm định chứa các thư viện của Excel).

-Trong khung File Name: Đặt tên tập tin theo ý mình (VND.xla).

-Trong khung Save As type: Chọn Microsft Excel Add-In.

-Nhấn OK để lưu lại thư viện dưới dạng tệp Add-In.

7.Khởi động lại Excel Chọn lệnh Tools.Add-Ins

8 Trong danh sách Add-Ins available, đánh dấu chọn vào mục có đúng tên thư viện của mình Nếu chưa có thì bấm Browse để dẫn tới thư mục đã save file ở bước 6

Kể từ đây bạn có thể dùng các hàm mới này như những hàm đã được định nghĩa sẵn trong Excel như sau: Ví dụ gỏ 123 vào ô B1 sau đó ô B2 gỏ =vnd(B1) thỉ ở ô B2 sẻ cho chúng ta là Một trăm hai mươi ba ngàn đồng ( chú ý ở ô B2 phải chọn font chử là “Times new roman”)

Để người khác không thể mở và sửa chữa được thư viện của mình, trước khi chọn File Save, bạn chọn lệnh Tools.VBAProject Properties Trong hộp tọai Project Properties, nhấp vào mục Protection; đánh dấu chọn Lock Project for Viewing; nhập mật khẩu vào dòng Password; nhập lại mật khẩu lần nữa vào dòng Confirm Password; nhấn OK Sau này nếu muốn sữa nội dung mã nguồn của thư viện , bạn phải nhập mật khẩu này mới mở được thư viện

* Đối với Excel 2007 trở về sau các bạn làm như sau:

Trong Excel, bấm chuột phải vào Ribbon và chọn mục Customize the Ribbon chọn, Trong cửa sổ Excel Options chọn thẻ Developer, trong thẻ Developer chọn Visua Basic, kể từ đây cac bạn sẻ làm như bước 2 ở phàn trên Chú ý trong quá trình cài đặt Microsoft

Office 2007,2010 không được đầy đủ nên thẻ Developer không xuất hiện trên các thanh công cụ của Excel, vì vậy các bạn có thể nhờ Google hướng dẩn tìm kiếm Chúc các bạn thành công !

Các bạn hảy chép đoạn mã nguồn sau:

Public Function VND(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ông đồng"

Else

If Abs(BaoNhieu) >= 1E+15 Then

KetQua = " Số quá lớn ???"

Else

If BaoNhieu < 0 Then

KetQua = "Â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ăm", "mươi", "gì đó")

Doc = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "đồng", "./.")

Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám",

"chí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 = "đồng" & Space(1)

Else

Chu = Space(0)

End If

Case ".00"

Chu = "chẳ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 1 And S1 = "0"

Dich = "không trăm"

Case 2 And S = 1

Dich = "mườ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ẻ" & Space(1)

End If

End Select

Chu = Chu & Dich

Next J

End Select

Vitri = InStr(1, Chu, "mươi một", 1)

If Vitri > 0 Then Mid(Chu, Vitri, 9) = "mươi mốt"

KetQua = KetQua & Chu

End If

Next I

End If

End If

VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)

End Function

Điện thoại liên hệ giải đáp thắc mắc: 0942 493 225 gặp Trung