Số thành chữ trong công thức excel

Ban đầu, Microsoft Excel được phát triển để xử lý các mảng dữ liệu lớn. Tuy nhiên, nó cũng tạo ra các hồ sơ kế toán như hóa đơn, đánh giá hoặc bảng cân đối kế toán một cách nhanh chóng và hiệu quả

Trong nhiều hoặc ít chứng từ thanh toán, cần phải sao chép các giá trị số với dạng từ của chúng. Excel không có chức năng mặc định hiển thị số dưới dạng từ tiếng Anh trong trang tính. Tuy nhiên, bạn có thể thêm khả năng này bằng cách dán mã chức năng SpellNumber sau vào mô-đun VBA (Visual Basic for Applications). Hàm này cho phép bạn chuyển đổi số tiền đô la và xu thành từ theo công thức

Ví dụ: 25. 50 sẽ được đọc là Hai mươi lăm đô la và Năm mươi xu. Điều này có thể rất hữu ích nếu bạn đang sử dụng Excel làm mẫu để in séc. Vậy điều bạn cần không chỉ là chuyển số thành chữ trong Excel (123. 45 đến một trăm hai mươi ba, bốn mươi lăm), nhưng đánh vần đô la và xu ($29. 95 đến 29 đô la và 99 cent), bảng Anh và pence đối với GBP, Euro và Euro Cent đối với EURO, v.v.

Nếu bạn muốn chuyển đổi các giá trị số thành định dạng văn bản mà không hiển thị chúng dưới dạng từ, hãy sử dụng hàm TEXT thay thế

Ngay cả Excel 2016 cũng không có công cụ tích hợp để đánh vần các số, chưa kể các phiên bản trước đó. Nhưng đó là khi Excel thực sự tốt. Bạn luôn có thể cải thiện chức năng của nó bằng cách sử dụng các công thức trong tất cả các kết hợp của chúng, macro VBA hoặc phần bổ trợ của bên thứ ba

Nếu bạn đang tìm cách chuyển đổi số thành văn bản, nghĩa là bạn muốn Excel xem số của mình dưới dạng văn bản, thì hơi khác một chút. Thông thường, bạn cần đổi định dạng ô trong Excel, hãy làm như sau

• Chọn phạm vi của bạn với các số
• Nhấn Ctrl+1 trên tab Số và chọn "Văn bản" trong Danh mục

Cách chuyển đổi số thành từ bằng SpellNumber VBA Macro

Microsoft không muốn thêm công cụ chuyển số thành chữ. Nhưng họ đã tạo và xuất bản macro VBA đặc biệt trên trang web của họ

Bạn có thể tìm thấy macro được đề cập là "công thức đánh vần". Tuy nhiên, nó không phải là công thức mà là hàm macro hoặc hàm Excel do người dùng xác định (UDF)

Tùy chọn SpellNumber có thể viết đô la và xu. Nếu bạn cần một loại tiền tệ khác, bạn có thể thay đổi "đô la" và "xu" theo lựa chọn của mình. Dưới đây, bạn sẽ tìm thấy mã VBA và làm theo các bước sau, chẳng hạn như

Bước 1. Mở sổ làm việc nơi bạn cần đánh vần các số thành từ

Bước 2. Nhấn Alt + F11 để mở cửa sổ Visual Basic Editor

Nếu bạn mở nhiều sách, hãy kiểm tra xem sổ làm việc cần thiết có đang hoạt động hay không bằng cách sử dụng danh sách các dự án ở góc trên bên trái của trình chỉnh sửa hoặc một trong các thành phần của sổ làm việc được đánh dấu bằng màu xanh lam

Bước 3. Trong menu trình chỉnh sửa, chuyển đến tab Chèn và nhấp vào nút Mô-đun

Bước 4. Bạn sẽ thấy một cửa sổ có tên Module1. Vui lòng chọn tất cả mã trong khung bên dưới và dán vào cửa sổ này

Bước 5. Nhấn Ctrl + S để lưu trang tính đã cập nhật

Bạn sẽ cần lưu lại sổ làm việc của mình. Khi bạn cố gắng lưu sổ làm việc bằng macro, bạn sẽ nhận được thông báo "Không thể lưu các tính năng sau trong sổ làm việc không có macro"

Bước 6. Hộp thoại dự án VB xuất hiện. Bấm vào nút Không

Bước 7. Bạn có thể lưu tệp của mình dưới dạng Sổ làm việc hỗ trợ macro Excel (. xlsm) để giữ tệp của bạn ở định dạng hiện tại

Bảng tính được nhiều người sử dụng trong công việc hàng ngày, khiến chúng trở thành một yếu tố quan trọng trong văn phòng của họ. Mặc dù phần lớn mọi người sử dụng bảng tính theo cách cơ bản hợp lý, một số người dùng nâng cao cảm thấy khó khăn hoặc phức tạp khi chuyển đổi số thành từ trong Excel. Trong hướng dẫn này, chúng tôi đã giải quyết vấn đề này và cung cấp bốn phương pháp khác nhau để chuyển đổi số thành từ trong Excel. Hơn nữa, có thêm ba phương pháp để chuyển đổi số thành định dạng văn bản

Mục lục ẩn

Tải xuống sổ làm việc

4 Cách Chuyển Số Thành Chữ Trong Excel

1. Sử dụng các hàm kết hợp trong Excel để chuyển đổi số thành từ

2. Áp Dụng Hàm VLOOKUP Chuyển Số Thành Chữ

3. Sử dụng VBA để chuyển Số thành chữ trong Excel

4. Sử dụng VBA cho các loại tiền tệ trong Excel

Cách chuyển đổi số thành định dạng văn bản trong Excel

phần thực hành

Phần kết luận

Những bài viết liên quan

Tải xuống sổ làm việc

Bạn có thể tải xuống sổ làm việc mà chúng tôi đã sử dụng trong bài viết này từ bên dưới và tự mình thực hành với nó

Chuyển Số Thành Chữ. xlsm

4 Cách Chuyển Số Thành Chữ Trong Excel

Phần này của bài viết hướng dẫn cách chuyển số thành chữ trong Excel. Hơn nữa, chúng tôi sẽ trình bày bốn kỹ thuật để thực hiện thao tác. Để tiến hành phiên, chúng tôi sẽ sử dụng phiên bản Microsoft 365

1. Sử dụng các hàm kết hợp trong Excel để chuyển đổi số thành từ

Công thức Excel mà chúng tôi sử dụng ở đây dựa trên bốn hàm. Các hàm LEFT, MID, TEXT và CHOOSE

Đầu tiên, cú pháp của hàm LEFT như sau

Về cơ bản, chức năng này được sử dụng để trích xuất các ký tự từ văn bản

=LEFT (văn bản, [num_chars])

Chữ. Chuỗi văn bản để trích xuất các ký tự từ

num_chars [Tùy chọn]. Số lượng ký tự để trích xuất. Nó bắt đầu từ bên trái. Theo mặc định, num_chars=1

Thứ hai, cú pháp của hàm MID như sau

Trên thực tế, chức năng này được sử dụng để trích xuất văn bản từ bên trong một chuỗi

=MID (văn bản, start_num, num_chars)

Chữ. Văn bản để trích xuất từ

start_num. Vị trí của ký tự đầu tiên để trích xuất

num_chars. Số lượng ký tự để trích xuất

Thứ ba, cú pháp của hàm TEXT như sau

Cuối cùng, chức năng này chuyển đổi một số thành một văn bản ở định dạng số

=TEXT (giá trị, định dạng_văn bản)

giá trị. Số để chuyển đổi

định dạng_văn bản. Định dạng số để sử dụng

Tiếp theo, cú pháp của hàm CHOOSE như sau

Hàm này nhận giá trị từ danh sách dựa trên vị trí

=CHỌN (chỉ_số, giá_trị1, [giá_trị2],…)

chỉ mục_num. Giá trị để chọn. Một số từ 1 đến 254

giá trị1. Giá trị đầu tiên để chọn

giá trị2 [tùy chọn]. Giá trị thứ hai để chọn

• Sau đây, chúng ta sẽ chuyển số trong cột Numbers in Words

• Bây giờ, hãy viết công thức sau vào ô C5

=CHOOSE(LEFT(TEXT(B5,”000000000. 00″))+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

&IF(–TRÁI(TEXT(B5,”000000000. 00″))=0,,IF(AND(–MID(TEXT(B5,”000000000. 00″),2,1)=0,–MID(TEXT(B5,”000000000. 00″),3,1)=0),”Trăm”,”Trăm và “))

&CHỌN(MID(TEXT(B5,”000000000. 00″),2,1)+1,,,”Hai mươi”,,”Ba mươi”,,”Bốn mươi”,,”Năm mươi”,,”Sáu mươi”,,”Bảy mươi”,,”Tám mươi “,”Chín mươi “)

&IF(–MID(TEXT(B5,”000000000. 00″),2,1)<>1,CHỌN(MID(TEXT(B5,”000000000. 00″),3,1)+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”),

CHỌN(MID(TEXT(B5,”000000000. 00″),3,1)+1,"Mười","Mười một","Mười hai","Mười ba","Mười bốn","Mười lăm","Mười sáu","Mười bảy","Mười tám","Mười chín"

&IF((–TRÁI(TEXT(B5,”000000000. 00″))+MID(TEXT(B5,”000000000. 00″),2,1)+MID(TEXT(B5,”000000000. 00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000. 00″),4,1)+MID(TEXT(B5,”000000000. 00″),5,1)+MID(TEXT(B5,”000000000. 00″),6,1)+MID(TEXT(B5,”000000000. 00″),7,1))=0,(–MID(TEXT(B5,”000000000. 00″),8,1)+RIGHT(TEXT(B5,”000000000. 00″)))>0),” Triệu và “,” Triệu “))

&CHỌN(MID(TEXT(B5,”000000000. 00″),4,1)+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

&IF(–MID(TEXT(B5,”000000000. 00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000. 00″),5,1)=0,–MID(TEXT(B5,”000000000. 00″),6,1)=0),”Trăm”,”Trăm và”))

&CHỌN(MID(TEXT(B5,”000000000. 00″),5,1)+1,,,”Hai mươi”,”Ba mươi”,”Bốn mươi”,”Năm mươi”,”Sáu mươi”,”Bảy mươi”,”Tám mươi”,”Chín mươi”)

&IF(–MID(TEXT(B5,”000000000. 00″),5,1)<>1,CHỌN(MID(TEXT(B5,”000000000. 00″),6,1)+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”),CHỌN . 00″),6,1)+1,"Mười","Mười một","Mười hai","Mười ba","Mười bốn","Mười lăm","Mười sáu","Mười bảy","Mười tám","Mười chín"

&IF((–MID(TEXT(B5,”000000000. 00″),4,1)+MID(TEXT(B5,”000000000. 00″),5,1)+MID(TEXT(B5,”000000000. 00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000. 00″),7,1)+MID(TEXT(B5,”000000000. 00″),8,1)+MID(TEXT(B5,”000000000. 00″),9,1))=0,–MID(TEXT(B5,”000000000. 00″),7,1)<>0),” Nghìn “,” Nghìn và “))

&CHỌN(MID(TEXT(B5,”000000000. 00″),7,1)+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

&IF(–MID(TEXT(B5,”000000000. 00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000. 00″),8,1)=0,–MID(TEXT(B5,”000000000. 00″),9,1)=0),” Trăm “,” Trăm và “))&

CHỌN(MID(TEXT(B5,”000000000. 00″),8,1)+1,,,”Hai mươi”,,”Ba mươi”,,”Bốn mươi”,,”Năm mươi”,,”Sáu mươi”,,”Bảy mươi”,,”Tám mươi “,”Chín mươi “)

&IF(–MID(TEXT(B5,”000000000. 00″),8,1)<>1,CHỌN(MID(TEXT(B5,”000000000. 00″),9,1)+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”),CHỌN . 00″),9,1)+1,"Mười","Mười một","Mười hai","Mười ba","Mười bốn","Mười lăm","Mười sáu","Mười bảy","Mười tám","Mười chín"

Toàn bộ công thức thoạt nhìn có vẻ phức tạp, nhưng về cơ bản nó là sự lặp lại của một phần duy nhất. Vì vậy, nếu bạn có thể hiểu phần đầu tiên của công thức, bạn sẽ có thể hiểu phần còn lại

• Sau đó, nhấn ENTER

Kết quả là, bạn sẽ thấy đầu ra sau

Phân tích công thức

Lúc đầu, chức năng TEXT được sử dụng ở đây để biến số thành “000000000. định dạng văn bản 00”

VĂN BẢN(B7,”000000000. 00″)

Sau đó, hàm LEFT được sử dụng để trích xuất ký tự ngoài cùng bên trái từ số. Nó cho phép chúng tôi xác định xem số trả về bằng 0 hay bất kỳ giá trị nào khác

TRÁI(TEXT(B7,”000000000. 00″))

Tiếp theo, hàm CHOOSE được sử dụng để biểu thị số được trích xuất bằng các từ thích hợp

CHỌN(TRÁI(TEXT(B7,”000000000. 00″))+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

Bây giờ, nó kiểm tra xem giá trị có bằng 0 hay không. Nếu nó bằng 0 thì nó không hiển thị gì cả

CHỌN(TRÁI(TEXT(B7,”000000000. 00″))+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

&IF(–TRÁI(TEXT(B7,”000000000. 00″))=0,,

Nó sẽ hiển thị “Trăm” nếu hai số tiếp theo bằng 0. Nếu không, nó sẽ hiển thị “Trăm lẻ. ”

CHỌN(TRÁI(TEXT(B7,”000000000. 00″))+1,,”Một”,”Hai”,”Ba”,”Bốn”,”Năm”,”Sáu”,”Bảy”,”Tám”,”Chín”)

&IF(–TRÁI(TEXT(B7,”000000000. 00″))=0,,IF(AND(–MID(TEXT(B7,”000000000. 00″),2,1)=0,–MID(TEXT(B7,”000000000. 00″),3,1)=0),”Trăm”,”Trăm và “))

Công thức này không yêu cầu VBA hoặc mảng. Đó là một phương pháp tuyệt vời để chuyển số thành từ. Tuy nhiên, nó có hai sai sót. Thứ nhất, nó không thể biểu diễn hoàn hảo các số thập phân sau dấu chấm. Hai, giới hạn số lượng tối đa là 999, 999, 999. Thật ra, ông. Pete M. đã nghĩ ra công thức này

• Bây giờ, bạn có thể viết công thức cho các hàng còn lại hoặc đơn giản là sử dụng Tính năng Tự động Điền của Excel

Cuối cùng, bạn sẽ nhận được tất cả các số được chuyển đổi thành từ

Đọc thêm. Cách chuyển đổi số thành văn bản có 2 chữ số thập phân trong Excel (5 cách)

2. Áp Dụng Hàm VLOOKUP Chuyển Số Thành Chữ

Bạn có thể áp dụng hàm VLOOKUP để chuyển số thành chữ trong Excel. Hãy làm điều gì đó khác biệt. Ở đây, trước tiên bạn phải chèn tất cả các số trong từ, sau đó bạn có thể sử dụng chức năng này để chuyển đổi bất kỳ số nào thành từ từ chúng

bước

• Đầu tiên, hãy viết thủ công tất cả các số bằng chữ vào cột C

• Bây giờ, sử dụng công thức sau trong ô C12

=VLOOKUP(B12,B4:C9,2,FALSE)

• Sau đó, nhấn ENTER

Phân tích công thức

Trong công thức này, hàm VLOOKUP sẽ trả về một giá trị từ một mảng đã cho

• Đầu tiên, B12 là giá trị tra cứu mà nó tìm kiếm trong bảng đã cho
• Thứ hai, B4. C9 là mảng bảng mà nó tìm kiếm giá trị đích
• Thứ ba, 2 là số cột trong bảng mà giá trị sẽ được trả về từ đó
• Thứ tư, Sai biểu thị khớp chính xác

Đọc thêm. Cách chuyển đổi số thành văn bản cho hàm VLOOKUP trong Excel (2 cách)

bài đọc tương tự

• Cách chuyển đổi số thành văn bản trong Excel bằng dấu nháy đơn
• Chuyển đổi số thành văn bản với tam giác màu xanh lá cây trong Excel
• Cách chuyển đổi số thành văn bản bằng dấu phẩy trong Excel (3 phương pháp dễ dàng)
• Chuyển đổi số thành văn bản không có ký hiệu khoa học trong Excel
• Cách chuyển đổi số Peso thành từ trong Excel (Với các bước đơn giản)

3. Sử dụng VBA để chuyển Số thành chữ trong Excel

Phần thú vị nhất là bạn có thể tự xây dựng hàm chuyển đổi số thành chữ trong Excel. Hơn nữa, bạn có thể sử dụng mã VBA để phát triển một hàm xác định. Các bước được đưa ra dưới đây

bước

• Đầu tiên các bạn chọn tab Developer >> chọn Visual Basic

• Bây giờ, từ tab Chèn >> bạn phải chọn Mô-đun

• Lúc này, bạn cần viết đoạn Code sau vào Module

Function number_converting_into_words(ByVal MyNumber)
Dim x_string As String
Dim whole_num As Integer
Dim x_string_pnt
Dim x_string_Num
Dim x_pnt As String
Dim x_numb As String
Dim x_P() As Variant
Dim x_DP
Dim x_cnt As Integer
Dim x_output, x_T As String
Dim x_my_len As Integer
On Error Resume Next
x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
x_numb = Trim(Str(MyNumber))
x_DP = InStr(x_numb, ".")
x_pnt = ""
x_string_Num = ""
If x_DP > 0 Then
x_pnt = " point "
x_string = Mid(x_numb, x_DP + 1)
x_string_pnt = Left(x_string, Len(x_numb) - x_DP)
For whole_num = 1 To Len(x_string_pnt)
x_string = Mid(x_string_pnt, whole_num, 1)
x_pnt = x_pnt & get_digit(x_string) & " "
Next whole_num
x_numb = Trim(Left(x_numb, x_DP - 1))
End If
x_cnt = 0
x_output = ""
x_T = ""
x_my_len = 0
x_my_len = Int(Len(Str(x_numb)) / 3)
If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1
Do While x_numb <> ""
If x_my_len = x_cnt Then
x_T = get_hundred_digit(Right(x_numb, 3), False)
Else
If x_cnt = 0 Then
x_T = get_hundred_digit(Right(x_numb, 3), True)
Else
x_T = get_hundred_digit(Right(x_numb, 3), False)
End If
End If
If x_T <> "" Then
x_output = x_T & x_P(x_cnt) & x_output
End If
If Len(x_numb) > 3 Then
x_numb = Left(x_numb, Len(x_numb) - 3)
Else
x_numb = ""
End If
x_cnt = x_cnt + 1
Loop
x_output = x_output & x_pnt
number_converting_into_words = x_output
End Function
Function get_hundred_digit(xHDgt, y_b As Boolean)
Dim x_R_str As String
Dim x_string_Num As String
Dim x_string As String
Dim y_I As Integer
Dim y_bb As Boolean
x_string_Num = xHDgt
x_R_str = ""
On Error Resume Next
y_bb = True
If Val(x_string_Num) = 0 Then Exit Function
x_string_Num = Right("000" & x_string_Num, 3)
x_string = Mid(x_string_Num, 1, 1)
If x_string <> "0" Then
x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred "
Else
If y_b Then
x_R_str = "and "
y_bb = False
Else
x_R_str = " "
y_bb = False
End If
End If
If Mid(x_string_Num, 2, 2) <> "00" Then
x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb)
End If
get_hundred_digit = x_R_str
End Function
Function get_ten_digit(x_TDgt, y_b As Boolean)
Dim x_string As String
Dim y_I As Integer
Dim x_array_1() As Variant
Dim x_array_2() As Variant
Dim x_T As Boolean
x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
x_string = ""
x_T = True
On Error Resume Next
If Val(Left(x_TDgt, 1)) = 1 Then
y_I = Val(Right(x_TDgt, 1))
If y_b Then x_string = "and "
x_string = x_string & x_array_1(y_I)
Else
y_I = Val(Left(x_TDgt, 1))
If Val(Left(x_TDgt, 1)) > 1 Then
If y_b Then x_string = "and "
x_string = x_string & x_array_2(Val(Left(x_TDgt, 1)))
x_T = False
End If
If x_string = "" Then
If y_b Then
x_string = "and "
End If
End If
If Right(x_TDgt, 1) <> "0" Then
x_string = x_string & get_digit(Right(x_TDgt, 1))
End If
End If
get_ten_digit = x_string
End Function
Function get_digit(xDgt)
Dim x_string As String
Dim x_array_1() As Variant
x_array_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
x_string = ""
On Error Resume Next
x_string = x_array_1(Val(xDgt))
get_digit = x_string
End Function

• Bây giờ, bạn phải lưu mã
• Sau đó, bạn cần vào bảng tính Excel

Tại thời điểm này, bạn có thể sử dụng chức năng đã xác định của mình. Đối với điều này, bạn nên làm theo các bước nhất định

bước

• Bây giờ, chọn ô bạn muốn hiển thị đầu ra đã chuyển đổi. (Trong trường hợp của chúng tôi, ô C5)
• Sau đó, nhập dấu Bằng (=) vào ô. Nó sẽ cho phép bạn gõ công thức
• Sau đó, nhập “=number_converting_into_words” hoặc chọn hàm number_converting_into_words từ menu thả xuống
• Sau đó, chọn ô có giá trị số mà bạn muốn chuyển thành chữ (Trong trường hợp của chúng tôi là ô B5)
• Cuối cùng, nhấn nút ENTER

Kết quả là nó sẽ chuyển đổi số ô đã chọn của bạn thành các từ tương ứng. Cuối cùng, bạn cũng có thể sao chép công thức này vào các ô còn lại

Đọc thêm. Cách chuyển đổi giá trị số thành từ tiếng Anh trong Excel

4. Sử dụng VBA cho các loại tiền tệ trong Excel

Phương pháp này tương tự như phương pháp cuối cùng. Nó cũng hoạt động bằng cách chèn một mô-đun bằng VBA (Visual Basic for Application) và sử dụng nó như một hàm. Điểm khác với phương pháp cuối cùng là nó chuyển đổi các số thành các từ tiền tệ thích hợp. Hơn nữa, một ví dụ được đưa ra dưới đây

375. 65=Ba trăm bảy mươi lăm đô la và sáu mươi lăm xu

Bây giờ, hãy làm theo các bước sau để áp dụng phương pháp này

• Đầu tiên, hãy làm theo phương pháp-3 để chèn mô-đun
• Thứ hai, viết đoạn mã sau vào Mô-đun 2

Function Convert_Number_into_word_with_currency(ByVal whole_number)
Dim converted_into_dollar, converted_into_cent
my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
whole_number = Trim(Str(whole_number))
x_decimal = InStr(whole_number, ".")
If x_decimal > 0 Then
    converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2))
    whole_number = Trim(Left(whole_number, x_decimal - 1))
End If
xIndex = 1
Do While whole_number <> ""
    xHundred = ""
    xValue = Right(whole_number, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & get_ten(Mid(xValue, 2))
        Else
            xHundred = xHundred & get_digit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        converted_into_dollar = xHundred & my_ary(xIndex) & Dollar
    End If
    If Len(whole_number) > 3 Then
        whole_number = Left(whole_number, Len(whole_number) - 3)
    Else
        whole_number = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case converted_into_dollar
    Case ""
        converted_into_dollar = " Zero Dollar"
    Case "One"
        converted_into_dollar = " One Dollar"
    Case Else
        converted_into_dollar = converted_into_dollar & "Dollars"
End Select
Select Case converted_into_cent
    Case ""
        converted_into_cent = " and Zero Cent"
    Case "One"
        converted_into_cent = " and One Cent"
    Case Else
        converted_into_cent = " and " & converted_into_cent & "Cents"
End Select
Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent
End Function
Function get_ten(pTens)
Dim my_output As String
my_output = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: my_output = "Ten"
        Case 11: my_output = "Eleven"
        Case 12: my_output = "Twelve"
        Case 13: my_output = "Thirteen"
        Case 14: my_output = "Fourteen"
        Case 15: my_output = "Fifteen"
        Case 16: my_output = "Sixteen"
        Case 17: my_output = "Seventeen"
        Case 18: my_output = "Eighteen"
        Case 19: my_output = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: my_output = "Twenty "
    Case 3: my_output = "Thirty "
    Case 4: my_output = "Forty "
    Case 5: my_output = "Fifty "
    Case 6: my_output = "Sixty "
    Case 7: my_output = "Seventy "
    Case 8: my_output = "Eighty "
    Case 9: my_output = "Ninety "
    Case Else
End Select
my_output = my_output & get_digit(Right(pTens, 1))
End If
get_ten = my_output
End Function
Function get_digit(pDigit)
Select Case Val(pDigit)
    Case 1: get_digit = "One"
    Case 2: get_digit = "Two"
    Case 3: get_digit = "Three"
    Case 4: get_digit = "Four"
    Case 5: get_digit = "Five"
    Case 6: get_digit = "Six"
    Case 7: get_digit = "Seven"
    Case 8: get_digit = "Eight"
    Case 9: get_digit = "Nine"
    Case Else: get_digit = ""
End Select
End Function

Do đó, bạn có thể sử dụng hàm đã xác định có tên Convert_Number_into_word_with_currency. Đối với điều này, bạn nên làm theo các bước nhất định

bước

• Bây giờ, bạn phải chọn một ô mà bạn muốn giữ kết quả. Chúng tôi đã chọn ô C5
• Sau đó, bạn cần sử dụng công thức tương ứng trong ô C5

=Convert_Number_into_word_with_currency(B5)

• Sau đó, nhấn ENTER

• Cuối cùng, sử dụng Tính năng Tự động điền của Excel cho các ô còn lại C6. C9

Cuối cùng, bạn sẽ nhận được tất cả số tiền đã quy đổi

Đọc thêm. Cách chuyển đổi số thành văn bản và giữ các số 0 ở cuối trong Excel (4 cách)

Cách chuyển đổi số thành định dạng văn bản trong Excel

Cho đến nay, chúng ta đã nói về cách chuyển đổi số thành chữ trong Excel. Phần này của bài viết hướng dẫn cách đổi số sang dạng text trong Excel. Đây là phương pháp đơn giản nhất và nhanh nhất để chuyển đổi số thành văn bản

Tại đây, hãy làm theo các bước sau để áp dụng phương pháp này

• Đầu tiên, chọn ô hoặc các ô có giá trị số mà bạn muốn chuyển đổi thành văn bản (trong trường hợp của chúng tôi là ô C5. C9)
• Thứ hai, chuyển đến tab Trang chủ và chọn tùy chọn Văn bản từ menu thả xuống danh mục ô trong phần Số

Do đó, nó sẽ chuyển đổi giá trị số của các ô đã chọn của bạn thành văn bản. Bạn có thể hiểu nó bằng cách quan sát sự sắp xếp. Theo mặc định, văn bản được căn trái và số được căn phải trong Excel

Hoặc bạn có thể nhấn CTRL+1 để mở cửa sổ có tên Định dạng ô và chọn tùy chọn Số rồi chọn danh mục Văn bản từ đó

Đọc thêm. Excel VBA để chuyển đổi số thành văn bản (4 ví dụ)

phần thực hành

Để thực hành, chúng tôi đã thêm phần Thực hành trên mỗi tờ ở phần bên phải

Phần kết luận

Ở đây, chúng tôi đã cố gắng làm cho bài viết này trở thành một hướng dẫn cơ bản về cách chuyển đổi số thành từ hoặc văn bản thích hợp trong MS Excel. Hơn nữa, chúng tôi đã thu hẹp bảy kỹ thuật khác nhau trong bài viết này để bạn có thể chọn tùy chọn lý tưởng phù hợp nhất cho tình huống cụ thể của mình. Vì vậy, chúng tôi hy vọng bạn tìm thấy giải pháp mà bạn đang tìm kiếm. Vui lòng để lại nhận xét nếu bạn có bất kỳ đề xuất hoặc câu hỏi nào. Cảm ơn bạn