Computer >> คอมพิวเตอร์ >  >> ซอฟต์แวร์ >> Office

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

ผู้คนจำนวนมากใช้สเปรดชีตในงานประจำวัน ทำให้พวกเขากลายเป็นองค์ประกอบสำคัญของสำนักงาน ในขณะที่คนส่วนใหญ่ใช้สเปรดชีตในลักษณะพื้นฐานที่สมเหตุสมผล ผู้ใช้ขั้นสูงบางคนพบว่า แปลงตัวเลขเป็นคำ เป็นเรื่องยากหรือซับซ้อน ใน Excel ในคู่มือนี้ เราได้แก้ไขปัญหานี้และมอบสี่ วิธีการต่าง ๆ เพื่อ แปลงตัวเลขเป็นคำ ใน Excel นอกจากนี้ยังมี สาม วิธีอื่นๆ ในการแปลงตัวเลขเป็นรูปแบบข้อความ

ดาวน์โหลดสมุดงาน

คุณสามารถดาวน์โหลดสมุดงานที่เราใช้ในบทความนี้ได้จากด้านล่างและฝึกฝนด้วยตัวเอง

4 วิธีในการแปลงตัวเลขเป็นคำใน Excel

บทความนี้จะอธิบายวิธีการแปลงตัวเลขเป็นคำใน Excel นอกจากนี้ เราจะสาธิต สี่ เทคนิคในการดำเนินการ สำหรับการดำเนินการเซสชัน เราจะใช้เวอร์ชัน Microsoft 365 .

1. การใช้ฟังก์ชันรวมใน Excel เพื่อแปลงตัวเลขเป็นคำ

สูตร Excel ที่เราใช้ในที่นี้อาศัย สี่ ฟังก์ชั่น. ซ้าย , กลาง , ข้อความ , และ เลือก ฟังก์ชัน

ประการแรก ไวยากรณ์ของ LEFT ฟังก์ชันมีดังนี้:

โดยทั่วไป ฟังก์ชันนี้ใช้เพื่อแยกอักขระออกจากข้อความ

=LEFT (ข้อความ [num_chars])

ข้อความ: สตริงข้อความที่จะดึงอักขระออกมา

num_chars [ไม่บังคับ]: จำนวนอักขระที่จะแยก มันเริ่มจากด้านซ้าย โดยค่าเริ่มต้น num_chars=1 .

ประการที่สอง ไวยากรณ์ของ MID ฟังก์ชันมีดังนี้:

อันที่จริง ฟังก์ชันนี้ใช้เพื่อดึงข้อความจากภายในสตริง

=MID (ข้อความ start_num num_chars)

ข้อความ: ข้อความที่จะดึงออกมา

start_num: ตำแหน่งของอักขระตัวแรกที่จะแยกออก

num_chars: จำนวนอักขระที่จะแยก

ประการที่สาม ไวยากรณ์ของ TEXT ฟังก์ชันมีดังนี้:

ในที่สุด ฟังก์ชันนี้จะแปลงตัวเลขเป็นข้อความในรูปแบบตัวเลข

=TEXT (ค่า, format_text)

ค่า: จำนวนที่จะแปลง

format_text: รูปแบบตัวเลขที่จะใช้

ถัดไป ไวยากรณ์ของ CHOOSE ฟังก์ชันมีดังนี้:

ฟังก์ชันนี้รับค่าจากรายการตามตำแหน่ง

=เลือก (index_num, value1, [value2], …)

index_num: มูลค่าให้เลือก ตัวเลขระหว่าง 1 และ 254 .

ค่า 1: ค่าแรกที่จะเลือก

ค่า2 [ไม่บังคับ]: ค่าที่สองที่จะเลือก

  • ที่นี่ เราจะแปลงตัวเลขใน ตัวเลขใน Words คอลัมน์

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • ตอนนี้ เขียนสูตรต่อไปนี้ใน C5 เซลล์

=เลือก(LEFT(TEXT(B5,”00000000″))+1,”หนึ่ง”,”สอง”,”สาม”,”สี่”,”ห้า”,”หก”,”เจ็ด”,” แปด”,”เก้า”)

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”00000000″),2,1)=0,–MID(TEXT(B5) ”000000000.00″),3,1)=0),” ร้อย”,” ร้อยและ “))

&CHOOSE(MID(TEXT(B5,”00000000″),2,1)+1,,,”Twenty “,”Thirty “,”Forty “,”Fifty “,”Sixty “,”Seventy “,” แปดสิบ “”เก้าสิบ”)

&IF(–MID(TEXT(B5,”00000000″),2,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),3,1)+1,,”One”, ”สอง”,”สาม”,”สี่”,ห้า”,”หก”,”เจ็ด”,”แปด”,”เก้า”),

เลือก(MID(TEXT(B5,”00000000″),3,1)+1,”Ten”,”Eleven”,”Twelve”,”Thirteen”,”Fourteen”,”Fifteen”,”Sixteen” ”สิบเจ็ด”,”สิบแปด”,”สิบเก้า”))

&IF((–LEFT(TEXT(B5,”00000000″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1) )=0,,IF(AND((–MID(TEXT(B5,”00000000″),4,1)+MID(TEXT(B5,”00000000″),5,1)+MID(TEXT(B5,” 000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”00000000″),8,1)+RIGHT(TEXT() B5,”0000000.00″)))>0),” ล้าน และ “,” ล้าน “))

&CHOOSE(MID(TEXT(B5,”00000000″),4,1)+1,,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven ”,”แปด”,”เก้า”)

&IF(–MID(TEXT(B5,”00000000″),4,1)=0,,IF(AND(–MID(TEXT(B5,”00000000″),5,1)=0,–MID (TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&CHOOSE(MID(TEXT(B5,”00000000″),5,1)+1,,,” Twenty”,” Thirty”,” Forty”,” Fifty”,” Sixty”,” Seventy”,” แปดสิบ”,” เก้าสิบ”)

&IF(–MID(TEXT(B5,”000000000.00″),5,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),6,1)+1,”หนึ่ง”, ” สอง”,” สาม”, สี่”, ห้า”, หก”, เจ็ด”, แปด”, เก้า”), CHOOSE(MID(TEXT(B5,”00000000″),6,1) +1,” สิบ”,” สิบเอ็ด”,” สิบสอง”,” สิบสาม”,” สิบสี่”,” สิบห้า”, สิบหก”, สิบเจ็ด”,” สิบแปด”,” สิบเก้า”))

&IF((–MID(TEXT(B5,”00000000″),4,1)+MID(TEXT(B5,”00000000″),5,1)+MID(TEXT(B5,”00000000″), 6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”00000000″),8,1)+MID(TEXT) (B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”00000000″),7,1)<>0),” พัน “,” พันและ “))

&CHOOSE(MID(TEXT(B5,”00000000″),7,1)+1,,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven ”,”แปด”,”เก้า”)

&IF(–MID(TEXT(B5,”00000000″),7,1)=0,,IF(AND(–MID(TEXT(B5,”00000000″),8,1)=0,–MID (TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

เลือก(MID(TEXT(B5,”00000000″),8,1)+1,,,”Twenty “,”Thirty “,”Forty “,”Fifty “,”Sixty “,”Seventy “,” แปดสิบ “”เก้าสิบ”)

&IF(–MID(TEXT(B5,”00000000″),8,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),9,1)+1,,”One”, ”สอง”,”สาม”,”สี่”,ห้า”,”หก”,”เจ็ด”,”แปด”,”เก้า”),เลือก(MID(TEXT(B5,”00000000″),9,1) +1,”สิบ”,”สิบเอ็ด”,”สิบสอง”,”สิบสาม”,”สิบสี่”,”สิบห้า”,”สิบหก”,”สิบเจ็ด”,”สิบแปด”,”สิบเก้า”))

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

สูตรทั้งหมดอาจดูซับซ้อนในแวบแรก แต่โดยพื้นฐานแล้วมันคือการทำซ้ำของส่วนเดียว ดังนั้น ถ้าเข้าใจก่อน ส่วนสูตรก็น่าจะพอเข้าใจได้นะ

  • จากนั้นกด ENTER .

เป็นผลให้คุณจะเห็นผลลัพธ์ต่อไปนี้

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

รายละเอียดสูตร:

ในตอนแรก ข้อความ ใช้ฟังก์ชันนี้เพื่อเปลี่ยนตัวเลขเป็น “000000000.00” รูปแบบข้อความ

TEXT(B7,”00000000″)

หลังจากนั้น ซ้าย ฟังก์ชันใช้เพื่อแยกอักขระซ้ายสุดออกจากตัวเลข ช่วยให้เราระบุได้ว่าหมายเลขส่งคืนเป็น ศูนย์ . หรือไม่ หรือค่าอื่นๆ

LEFT(TEXT(B7,”00000000″))

ต่อไป เลือก ฟังก์ชันใช้แทนตัวเลขที่แยกออกมาด้วยคำที่เหมาะสม

เลือก(LEFT(TEXT(B7,”00000000″))+1,”หนึ่ง”,”สอง”,”สาม”,”สี่”,”ห้า”,”หก”,”เจ็ด”,”แปด ”,”เก้า”)

ตอนนี้จะตรวจสอบว่าค่าเป็น ศูนย์ . หรือไม่ หรือไม่. หากเป็น ศูนย์ แล้วมันก็ไม่แสดงผลอะไร

เลือก(LEFT(TEXT(B7,”00000000″))+1,”หนึ่ง”,”สอง”,”สาม”,”สี่”,”ห้า”,”หก”,”เจ็ด”,”แปด ”,”เก้า”)

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

มันจะแสดง “ร้อย” ถ้าต่อไป สอง ตัวเลข ศูนย์ . มิฉะนั้นจะแสดง “ร้อยและ.”

เลือก(LEFT(TEXT(B7,”00000000″))+1,”หนึ่ง”,”สอง”,”สาม”,”สี่”,”ห้า”,”หก”,”เจ็ด”,”แปด ”,”เก้า”)

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”00000000″),2,1)=0,–MID(TEXT(B7) ”000000000.00″),3,1)=0),” ร้อย”,” ร้อยและ “))

สูตรนี้ไม่ต้องการ VBA หรืออาร์เรย์ เป็นวิธีที่ยอดเยี่ยมในการเปลี่ยนตัวเลขเป็นคำ อย่างไรก็ตาม มันมีสอง ข้อบกพร่อง. หนึ่ง ไม่สามารถแสดงตัวเลขทศนิยมหลังจุดได้อย่างสมบูรณ์ สอง จำกัดจำนวนสูงสุดคือ 999, 999, 999 . จริงๆ แล้ว นาย พีท เอ็ม จึงได้สูตรนี้มา

  • ตอนนี้ คุณสามารถเขียนสูตรสำหรับแถวที่เหลือหรือใช้ คุณลักษณะการป้อนอัตโนมัติของ Excel .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

สุดท้ายคุณจะได้ตัวเลขที่แปลงเป็นคำทั้งหมด .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

2. การใช้ฟังก์ชัน VLOOKUP เพื่อแปลงตัวเลขเป็นคำ

คุณสามารถใช้VLOOKUP ฟังก์ชั่น แปลงตัวเลขเป็นคำ ใน Excel มาทำอะไรที่แตกต่าง ที่นี่ คุณต้องใส่ตัวเลขทั้งหมดในคำก่อน จากนั้นจึงสามารถใช้ฟังก์ชันนี้เพื่อแปลงตัวเลขเป็นคำจากตัวเลขได้

ขั้นตอน:

  • ประการแรก ให้จดตัวเลขทั้งหมดในคำด้วยตนเองใน คอลัมน์ C .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • ตอนนี้ ใช้สูตรต่อไปนี้ใน C12 เซลล์
=VLOOKUP(B12,B4:C9,2,FALSE)
  • จากนั้น กด ENTER .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

รายละเอียดสูตร

ในสูตรนี้ VLOOKUP ฟังก์ชันจะคืนค่าจากอาร์เรย์ที่กำหนด

  • ประการแรก B12 คือค่าการค้นหาที่จะค้นหาในตารางที่กำหนด
  • ประการที่สอง B4:C9 เป็น อาร์เรย์ตาราง โดยจะมองหา มูลค่าเป้าหมาย .
  • ประการที่สาม 2 คือจำนวนคอลัมน์ในตารางที่ต้องการคืนค่า
  • ประการที่สี่ เท็จ หมายถึง แน่นอน ตรงกัน

3. การใช้ VBA เพื่อแปลงตัวเลขเป็นคำใน Excel

ส่วนที่น่าสนใจที่สุดคือคุณสามารถสร้างฟังก์ชั่นของตัวเอง เพื่อแปลงตัวเลขเป็นคำ ใน Excel นอกจากนี้ คุณสามารถใช้โค้ด VBA เพื่อพัฒนา กำหนด การทำงาน. มีขั้นตอนดังนี้

ขั้นตอน :

  • อันดับแรก คุณต้องเลือก นักพัฒนา แท็บ>> จากนั้นเลือก Visual Basic

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • ตอนนี้ จาก แทรก แท็บ>> คุณต้องเลือก โมดูล .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • ในขณะนี้ คุณต้องจดรหัสต่อไปนี้ ใน โมดูล .
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

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • ตอนนี้ คุณต้องบันทึก รหัส .
  • จากนั้น คุณต้องไปที่เวิร์กชีต Excel .

ในขณะนี้ คุณสามารถใช้ กำหนด . ของคุณ การทำงาน. สำหรับสิ่งนี้ คุณควรทำตามขั้นตอนที่กำหนด

ขั้นตอน:

  • ตอนนี้ เลือกเซลล์ที่คุณต้องการแสดงผลลัพธ์ที่แปลงแล้ว (ในกรณีของเรา เซลล์ C5 )
  • จากนั้น ป้อน เครื่องหมายเท่ากับ (=) ในเซลล์ มันควรจะช่วยให้คุณสามารถพิมพ์สูตรได้
  • หลังจากนั้น พิมพ์ “=number_converting_into_words ” หรือเลือก number_converting_into_words ฟังก์ชันจากเมนูแบบเลื่อนลง
  • จากนั้น เลือกเซลล์ที่มีค่าตัวเลขที่คุณต้องการแปลงเป็นคำ (ในกรณีของเรา เซลล์ B5 )
  •  สุดท้าย กด ENTER ปุ่ม.

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

ด้วยเหตุนี้ โปรแกรมจะแปลงหมายเลขเซลล์ที่คุณเลือกเป็นคำที่เกี่ยวข้อง สุดท้ายนี้ คุณสามารถคัดลอกสูตรนี้ไปยังเซลล์ที่เหลือได้เช่นกัน

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

4. การใช้ VBA สำหรับ Wording Currencies ใน Excel

วิธีนี้คล้ายกับวิธีสุดท้าย นอกจากนี้ยังทำงานโดยการแทรกโมดูลโดยใช้ VBA (Visual Basic for Application) และใช้เป็นฟังก์ชัน ที่แตกต่างจากวิธีสุดท้ายคือ แปลงตัวเลขเป็นคำสกุลเงินที่เหมาะสม นอกจากนี้ยังมีตัวอย่างด้านล่าง

375.65=สามร้อยเจ็ดสิบห้าดอลลาร์และหกสิบห้าเซ็นต์

ทำตามขั้นตอนเหล่านี้เพื่อใช้วิธีนี้:

  • ประการแรก ทำตาม method-3 เพื่อแทรกโมดูล
  • ประการที่สอง เขียนโค้ดต่อไปนี้ใน โมดูล 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

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

ด้วยเหตุนี้ คุณสามารถใช้ กำหนด . ของคุณ ฟังก์ชันชื่อ Convert_Number_into_word_with_currency . สำหรับสิ่งนี้ คุณควรทำตามขั้นตอนที่กำหนด

ขั้นตอน:

  • ตอนนี้ คุณต้องเลือกเซลล์ที่คุณต้องการเก็บผลลัพธ์ไว้ เราได้เลือก C5 เซลล์
  • จากนั้น คุณต้องใช้สูตรที่สอดคล้องกันใน C5 เซลล์
=Convert_Number_into_word_with_currency(B5)
  • จากนั้นกด ENTER .

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

  • สุดท้าย ใช้ Excel คุณลักษณะป้อนอัตโนมัติ สำหรับเซลล์ที่เหลือ C6:C9 .

สุดท้าย คุณจะได้รับจำนวนเงินที่แปลงทั้งหมด

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

วิธีการแปลงตัวเลขเป็นรูปแบบข้อความใน Excel

ถึงตอนนี้ เราได้พูดถึง วิธีแปลงตัวเลขเป็นคำ ใน Excel บทความนี้จะอธิบายวิธีการเปลี่ยนตัวเลขเป็นข้อความ รูปแบบใน Excel เป็นวิธีที่ง่ายและรวดเร็วที่สุดในการแปลงตัวเลขเป็นข้อความ

ทำตามขั้นตอนเหล่านี้เพื่อใช้วิธีนี้:

  • อันดับแรก เลือกเซลล์หรือเซลล์ที่มีค่าตัวเลขที่คุณต้องการแปลงเป็นข้อความ (ในกรณีของเราคือ เซลล์ C5:C9 )
  • ประการที่สอง ไปที่ Home และเลือก ข้อความ จากเมนูแบบเลื่อนลงหมวดหมู่เซลล์ใต้ตัวเลข ส่วน.

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

ด้วยเหตุนี้ โปรแกรมจะแปลงค่าตัวเลขของเซลล์ที่คุณเลือกเป็นข้อความ คุณสามารถเข้าใจได้โดยสังเกตการจัดตำแหน่ง ตามค่าเริ่มต้น ข้อความจะถูกจัดชิดซ้ายและตัวเลขจะถูกจัดชิดขวาใน Excel

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

หรือคุณสามารถกด CTRL+1 เพื่อเปิดหน้าต่างชื่อ จัดรูปแบบเซลล์ แล้วเลือก หมายเลข ตัวเลือกแล้วเลือก ข้อความ จากที่นั่น

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

ภาคปฏิบัติ

สำหรับการฝึกปฏิบัติ เราได้เพิ่มส่วนฝึกหัดในแต่ละแผ่นงานในส่วนด้านขวา

วิธีการแปลงตัวเลขเป็นคำใน Excel (4 วิธีที่เหมาะสม)

บทสรุป

เราได้พยายามทำให้บทความนี้เป็นแนวทางที่ดีที่สุดเกี่ยวกับการแปลงตัวเลขเป็นคำหรือข้อความที่เหมาะสมใน MS Excel . ยิ่งกว่านั้น เราได้จำกัดให้เหลือ เจ็ด เทคนิคต่างๆ ในบทความนี้ เพื่อให้คุณสามารถเลือกตัวเลือกที่เหมาะสมที่สุดสำหรับสถานการณ์เฉพาะของคุณ ดังนั้น เราหวังว่าคุณจะพบวิธีแก้ปัญหาที่คุณต้องการ กรุณาแสดงความคิดเห็นถ้าคุณมีข้อเสนอแนะหรือคำถามใด ๆ ขอบคุณค่ะ

บทความที่เกี่ยวข้อง

  • วิธีแปลงวันที่เป็นข้อความ YYYYMMDD (3 วิธีด่วน)
  • แปลงวันที่เป็นเดือนข้อความใน Excel (8 วิธีด่วน)