Đọ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!