Page 199 - Ms Excel 2010

Chương 8. Phím tắt va ̀ Thủ thuật

Phím tắt Ý nghĩa

Ctrl+5 Bật tắt chế độ gạch giữa không gạch giữa

Ctrl+9 Ẩn dòng

Ctrl+Shift+( Hiển thị dòng ẩn

8.2 Thủ thuật

Dịch số tiền về chữ (Chuyển số thành chữ)

Bước 1. Mở têp cần chuyển >> Bấm tổ hợp phím Alt + F11 để mở trình soạn thảo VBA của
̣
Excell

Bước 2. Bấm chuột phải lên VBA Project >> Insert >> Module >> và dán đoạn mã bên
dƯới vào cửa sổ của Module mới chèn

Function ConvertCurrencyToVietnamese(ByVal MyNumber)

Dim Temp

Dim Dollars, Cents

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Nghin "

Place(3) = " Trieu "

Place(4) = " Ty "

Place(5) = " Ngan ty "

' Convert MyNumber to a string, trimming extra

spaces. MyNumber = Trim(Str(MyNumber))

' Find decimal place.

DecimalPlace = InStr(MyNumber, ".")

' If we find decimal place…

If DecimalPlace > 0 Then

Trang 199

Tải miễn phí tại: Webtietkiem.com