Khởi động Excel, tạo một workbook mới (hoặc dùng Book1 như mặc định). Chọn Tools\ Macro\ Visual Basic Editor để mở cửa sổ soạn thảo VBA. Trong cửa sổ Project Explorer (nếu không thấy thì chọn View\ Project Explorer để mở nó), chọn VBAProject (Book1). Chọn Insert\ Module để thêm một module vào workbook.
Gõ nội dung hàm VND như sau vào Module mới tạo.
Public Function VND(Baonhieu)
Chu = "ñoàng" & Space(1)Chu = Space(0)Chu = "chaún"Chu = Space(0)Chu = Chu & Dich
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 = "Khoâng ñoàng"
Else
Ketqua = "Soá quaù lôùn"
If Abs(Baonhieu) >= 1E+15 Then
Else
If Baonhieu < 0 Then
Ketqua = "Tröø "
Else
Ketqua = Space(0)
End If
Sotien = Format(Abs(Baonhieu), "##############0.00")
Sotien = Right(Space(15) & Sotien, 18)
Hang = Array("None", "traêm", "möôi", "gì ñoù")
Doc = 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 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
Else
End If
Case ".00"
Case Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
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 2 And 6 = 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 = "leõ" & Space(1)
End If
End Select
Next J
End Select
Vitri = InStr(1, Chu , "möôi moät", 1)
If Vitri > 0 Then Mid(Chu , Vitri, 9) = "möôi moát"
Ketqua = Ketqua & Chu
End If
Next I
End If
End If
VND = UCase(Left(Ketqua, 1)) & Mid(Ketqua, 2)
End Function
Lưu tập tin với tên VND.XLA (ví dụ). Bạn phải đặt tập tin này đúng chỗ để mỗi lần Excel khởi động sẽ nạp nó tự động.
Thao tác: Chọn File – Save As
Thao tác: Chọn File – Save As
Mục Save as type chọn: Microsoft Office Excel Add-in(*.xla)
Mục Name gõ: VND.xla
Sau đo bấm SAVE
(Xem thêm: Đối với Excel XP trên Windows XP:
C:\Documents and Settings\UserName\Application Data\Microsoft\AddIns)
C:\Documents and Settings\UserName\Application Data\Microsoft\AddIns)
Khởi động lại Excel, cài đặt add-in vừa tạo cho Excel bằng cách chọn trình đơn Tools\ Add-Ins để mở hộp thoại Add-Ins, đ ánh dấu chọn tên VND trong danh sách Add-Ins available, rồi bấm OK.
SỬ DỤNG: TẠI 1 Ô BẤT KỲ GÕ: =VND(15000) KQUẢ: MƯỜI LĂM NGÀN ĐỒNG
Ô B2 GÕ 15000
Ô B3 GÕ: =VND(B2) à MƯỜI LĂM NGÀN ĐỒNG
