Đây là một đoạn mã rất phổ biến của Microsoft sẽ chuyển đổi bất kỳ số lượng tiền tệ nào trong một ô thành các từ tiếng Anh. Tất cả mã và văn bản từ bên dưới đây là tác phẩm của Microsoft
Tóm tắt
Bài viết này hướng dẫn bạn cách tạo một hàm mẫu, do người dùng định nghĩa có tên ConvertCurrencyToEnglish[] để chuyển đổi một giá trị số thành biểu diễn từ tiếng Anh. Ví dụ: hàm sẽ trả về các từ sau cho số 1234. 56. Một nghìn hai trăm ba mươi bốn đô la và năm mươi sáu xu
Trình hướng dẫn Hàm cũng có thể được sử dụng để nhập một hàm tùy chỉnh trong trang tính. Để sử dụng Trình hướng dẫn Chức năng, hãy làm theo các bước sau
1. Nhấp vào nút Trình hướng dẫn Chức năng và chọn Người dùng Xác định trong Danh mục Chức năng.
2. Chọn ConvertCurrencyToEnglish và nhập số hoặc tham chiếu ô của bạn.
3. Nhấp vào Kết thúc
Để tạo các hàm mẫu
1. Chèn một trang tính mô-đun vào sổ làm việc. Để thực hiện việc này trong Microsoft Excel 97 hoặc Microsoft Excel 98, hãy trỏ tới Macro trên menu Công cụ rồi bấm vào Trình soạn thảo Visual Basic. Trong Visual Basic Editor, nhấp vào Mô-đun trên menu Chèn. Trong Microsoft Excel 5. 0 hoặc 7. 0, trỏ tới Macro trên menu Chèn và nhấp vào Mô-đun
2. Nhập mã sau vào bảng mô-đun
Function ConvertCurrencyToEnglish [ByVal MyNumber]
Dim Temp
Dim Dollars, Cents
Dim DecimalPlace, Count
ReDim Place[9] As String
Place[2] = " Thousand "
Place[3] = " Million "
Place[4] = " Billion "
Place[5] = " Trillion "
' 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
' Convert cents
Temp = Left[Mid[MyNumber, DecimalPlace + 1] & "00", 2]
Cents = ConvertTens[Temp]
' Strip off cents from remainder to convert.
MyNumber = Trim[Left[MyNumber, DecimalPlace - 1]]
End If
Count = 1
Do While MyNumber ""
' Convert last 3 digits of MyNumber to English dollars.
Temp = ConvertHundreds[Right[MyNumber, 3]]
If Temp "" Then Dollars = Temp & Place[Count] & Dollars
If Len[MyNumber] > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left[MyNumber, Len[MyNumber] - 3]
Else
MyNumber = ""
End If
Count = Count + 1
Loop
' Clean up dollars.
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
' Clean up cents.
Select Case Cents
Case ""
Cents = " And No Cents"
Case "One"
Cents = " And One Cent"
Case Else
Cents = " And " & Cents & " Cents"
End Select
ConvertCurrencyToEnglish = Dollars & Cents
End Function
Private Function ConvertHundreds [ByVal MyNumber]
Dim Result As String
' Exit if there is nothing to convert.
If Val[MyNumber] = 0 Then Exit Function
' Append leading zeros to number.
MyNumber = Right["000" & MyNumber, 3]
' Do we have a hundreds place digit to convert?
If Left[MyNumber, 1] "0" Then
Result = ConvertDigit[Left[MyNumber, 1]] & " Hundred "
End If
' Do we have a tens place digit to convert?
If Mid[MyNumber, 2, 1] "0" Then
Result = Result & ConvertTens[Mid[MyNumber, 2]]
Else
' If not, then convert the ones place digit.
Result = Result & ConvertDigit[Mid[MyNumber, 3]]
End If
ConvertHundreds = Trim[Result]
End Function
Private Function ConvertTens [ByVal MyTens]
Dim Result As String
' Is value between 10 and 19?
If Val[Left[MyTens, 1]] = 1 Then
Select Case Val[MyTens]
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
' . otherwise it's between 20 and 99.
Select Case Val[Left[MyTens, 1]]
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
' Convert ones place digit.
Result = Result & ConvertDigit[Right[MyTens, 1]]
End If
ConvertTens = Result
End Function
Private Function ConvertDigit [ByVal MyDigit]
Select Case Val[MyDigit]
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End FunctionXem thêm. Bổ trợ Trình quản lý Sao chép Excel. Phần bổ trợ trình quản lý số Excel. Bổ trợ Trình quản lý văn bản Excel. Trình quản lý bổ trợ phạm vi được đặt tên trong Excel. Phần bổ trợ Excel OzGrid Plus. Bảng chấm công Excel. Sổ lương và lương theo thời gian Excel
Báo cáo Bảng điều khiển Excel & Biểu đồ Bảng điều khiển Excel Giảm 50% Trở thành Chi nhánh của Người dùng Excel & Kiếm tiền
Đặc biệt. Lựa chọn miễn phí Khóa đào tạo Excel hoàn chỉnh HOẶC Bộ sưu tập phần bổ trợ Excel cho tất cả các giao dịch mua có tổng giá trị trên $64. 00. TẤT CẢ các giao dịch mua có tổng trị giá trên $150. 00 được bạn CẢ HAI. Mua hàng PHẢI được thực hiện thông qua trang web này. Gửi bằng chứng thanh toán tới [email được bảo vệ] 31 ngày sau ngày mua