Đọc số tiền bởi tiếng Anh vào Excel là một trong những trong những bài học kinh nghiệm cơ bạn dạng với số đông thao tác làm việc dễ dàng và đơn giản. Tuy nhiên, chưa hẳn ai ai cũng biết cách hiểu số chi phí quý phái giờ đồng hồ Anh vào Excel đúng cách. Trong nội dung bài viết này, https://suviec.com đang hướng dẫn các bạn cách phát âm số tiền bởi giờ đồng hồ Anh trong Excel đúng mực duy nhất.quý khách đang xem: Hàm đọc số tiền usd bằng giờ đồng hồ anh
Cách phát âm số tiền bằng giờ đồng hồ Anh trong ứng dụng Excel
Cách phát âm số chi phí bằng giờ đồng hồ Anh vào phần mềm Excel cơ mà công ty chúng tôi chuẩn bị ra mắt mang lại các bạn sẽ là bí quyết dễ dàng và đơn giản với dễ thực hiện tốt nhất cùng với một đoạn code gồm sẵn. Sau phía trên vẫn là các bước thực hiện ckém code và lí giải hiểu số chi phí bằng giờ đồng hồ Anh trong Excel.
Bạn đang xem: Đọc số tiền bằng tiếng anh trong excel
trước hết, bạn phải mtại một tệp tin Excel bắt đầu hoặc mnghỉ ngơi file Excel bạn có nhu cầu phát âm số chi phí sang chữ bởi giờ đồng hồ Anh ra. Tiếp cho, bạn tạo thành mới một “Module” có vào VBA. Quý khách hàng thực hiện tổng hợp phím “Alt + f11” nhằm mở cửa sổ VBA. Tiếp theo, chúng ta tạo ra bắt đầu một “Module” theo hướng dẫn trong hình dưới.
Tạo một “Module” mới
Tiếp mang đến, chúng ta copy đoạn code dưới cùng ốp lại “Module” vừa tạo được. Để làm việc được nkhô hanh rộng, bạn chọn hết đoạn code dưới cùng thừa nhận tổng hợp phím “Ctrl + C” để triển khai lệnh copy. Sau kia, các bạn click chuột vào trang “Module” cùng nhấn tổ hợp phím “Ctrl + V” nên dán đoạn code vào đấy.
Đoạn code thực hiện lệnh hiểu số tiền bởi tiếng Anh trong Excel:
Function DocSoThanhChu_Eng(ByVal pNumber)
‘Updateby20131113 – source: https://www.extendoffice.com
Dyên ổn Dollars, Cents
arr = Array(“”, “”, ” Thousand “, ” Million “, ” Billion “, ” Trillion “)
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, “.”)
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & “00”, 2))
pNumber = Trim(Left(pNumber, xDecimal – 1))
End If
xIndex = 1
Do While pNumber “”
xHundred = “”
xValue = Right(pNumber, 3)
If Val(xValue) 0 Then
xValue = Right(“000” & xValue, 3)
If Mid(xValue, 1, 1) “0” Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & ” Hundred “
End If
If Mid(xValue, 2, 1) “0” Then
xHundred = xHundred và GetTens(Mid(xValue, 2))
Else
xHundred = xHundred và GetDigit(Mid(xValue, 3))
End If
End If
If xHundred “” Then
Dollars = xHundred và arr(xIndex) và Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) – 3)
Else
pNumber = “”
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case “”
Dollars = “No Dollars”
Case “One”
Dollars = “One Dollar”
Case Else
Dollars = Dollars và ” Dollars”
End Select
Select Case Cents
Case “”
Cents = ” và No Cents”
Case “One”
Cents = ” & One Cent”
Case Else
Cents = ” and ” và Cents và ” Cents”
End Select
DocSoThanhChu_Eng = Dollars và Cents
End Function
Function GetTens(pTens)
Dlặng Result As String
Result = “”
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
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
Select Case Val(Left(pTens, 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
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = “One”
Case 2: GetDigit = “Two”
Case 3: GetDigit = “Three”
Case 4: GetDigit = “Four”
Case 5: GetDigit = “Five”
Case 6: GetDigit = “Six”
Case 7: GetDigit = “Seven”
Case 8: GetDigit = “Eight”
Case 9: GetDigit = “Nine”
Case Else: GetDigit = “”
End Select
End Function
Chọn định hình file Excel trước khi lưu
Tiếp cho, bạn chuyển thanh lịch tab Excel cũ, đó là tab Excel lúc đầu bạn muốn chuyển trường đoản cú số chi phí thanh lịch giờ đồng hồ Anh. Nếu các bạn đang xuất hiện một bảng Excel trống và mong phân tích độ thành công xuất sắc của làm việc này, chúng ta có thể làm cho nlỗi ví dụ minc họa dưới. Cụ thể, bdkhtravinc.vn sẽ nhập số chi phí mong mỏi đọc thanh lịch giờ đồng hồ Anh vào ô A1 và dùng ô B1 để đọc số tiền từ bỏ số thanh lịch chữ bằng tiếng Anh. Để ô B1 có thể hiển thị tiếng Anh, bạn phải nhập đúng cú pháp sau “=DocSoThanhChu_Eng(ô mong mỏi hiểu số thành giờ Anh)”.
Nlỗi ví dụ bên dưới, bdkhtravinc.vn mong mỏi đọc ô A1 thành tiếng Anh thì cú pháp sẽ là “=DocSoThanhChu_Eng (A1)”. Sau thuộc, các bạn dấn phím “Enter” để yêu cầu Excel tiến hành lệnh gọi số chi phí thành chữ bằng tiếng Anh.
Công thức đúng nhằm hiểu số tiền bởi tiếng Anh vào Excel
Kết quả hiển thị trên ô B1 sẽ bao hàm hai đơn vị chức năng là Dollars và Cents. Cụ thể, giá trị vùng phía đằng trước Dollars vẫn là quý giá nguyên ổn với cực hiếm nằm trong lòng Dollars và Cents vẫn là giá trị lẻ (số chi phí sau vết chấm). Nhỏng ví dụ dưới, bdkhtravinch.vn vẫn áp dụng số “14868.00”, không còn bao gồm số lẻ buộc phải hiệu quả cảm nhận sẽ là “Fourteen Thousvà Eight Hundred Sixty Eight Dollars và No Cents”. Dịch ra là “Mười tư ngàn tám trăm sáu mươi tám đô la với ko đồng”.
Xem thêm: Cách Thức Tính Toán 1 Tệ Bao Nhiêu Tiền Việt, Tỷ Giá Cny Mới Nhất Hôm Nay
Kết trái đọc số chi phí sang tiếng Anh vào Excel
Nếu bạn muốn xuất hiện thêm “đồng” Khi hiểu số tiền bằng tiếng Anh vào Excel, bạn phải ghi giá trị (số) sau lốt chnóng. Bên dưới là hình minch họa.
Đọc số tiền quý phái giờ Anh có Cents
Để góp chúng ta hiểu rõ hơn, xin mời tham khảo ngay lập tức video clip nhưng mà công ty chúng tôi share chi tiết tiếp sau đây nhé!
Kết luận
Hy vọng các bạn sẽ triển khai thành công việc phát âm số tiền bằng giờ đồng hồ Anh vào Excel nhưng suviec.com lí giải từ bây giờ. Đừng quên phản hồi thông tin với bdkhtravinc.vn rằng chúng ta sẽ làm cho thành công nhé! Và hãy tiếp tục ghé thăm suviec.com nếu khách hàng gồm bất kỳ khó khăn làm sao vào câu hỏi sử dụng Excel nói riêng với các phần mềm nói tầm thường vì chúng tôi luôn luôn tại chỗ này và chuẩn bị sẵn sàng cung ứng bạn!