แปลงตัวเลขเป็นคำอ่านใน Excel: 4 วิธีที่พิสูจน์แล้ว

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

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

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

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

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

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

สูตร Excel ที่เราใช้ที่นี่อาศัย สี่ ฟังก์ชัน ได้แก่ LEFT, MID, TEXT, และ CHOOSE

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

พื้นฐานแล้ว ฟังก์ชันนี้ใช้สำหรับดึงตัวอักษรจากข้อความ

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

num_chars [Optional]: จำนวนตัวอักษรที่จะดึง เริ่มจากซ้าย ค่าเริ่มต้น num_chars=1

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

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

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

start_num: ตำแหน่งตัวอักษรแรกที่จะดึง

num_chars: จำนวนตัวอักษรที่จะดึง

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

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

value: ตัวเลขที่จะแปลง

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

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

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

index_num: ค่าที่จะเลือก ตัวเลขระหว่าง 1 และ 254

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

value2 [optional]: ค่าที่สองที่จะเลือก

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

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

สูตรทั้งหมดอาจดูซับซ้อน במבטแรก แต่จริงๆ แล้วมันเป็นการซ้ำของส่วนเดียว ดังนั้น หากคุณเข้าใจ ส่วนแรก ของสูตร คุณควรเข้าใจส่วนที่เหลือได้

• ต่อมา กด ENTER

ผลลัพธ์จะแสดงดังนี้

การแยกส่วนสูตร:

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

TEXT(B7,"000000000.00")

ต่อมา ฟังก์ชัน LEFT ใช้ดึงตัวอักษรซ้ายสุดจากตัวเลข ช่วยระบุว่าตัวเลขที่คืนค่ามีค่าเป็น ศูนย์ หรือค่าอื่น

LEFT(TEXT(B7,"000000000.00"))

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

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")

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

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&IF(--LEFT(TEXT(B7,"000000000.00"))=0,,

จะแสดง "Hundred" หากตัวเลขถัดไป สอง ตัวเป็น ศูนย์ มิฉะนั้น จะแสดง "Hundred and"

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&IF(--LEFT(TEXT(B7,"000000000.00"))=0,,IF(AND(--MID(TEXT(B7,"000000000.00"),2,1)=0,--MID(TEXT(B7,"000000000.00"),3,1)=0)," Hundred"," Hundred and "))

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

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

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

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

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

ขั้นตอน:

• ขั้นแรก เขียนตัวเลขทั้งหมดในรูปแบบคำด้วยตนเองในคอลัมน์ C

• ตอนนี้ ใช้สูตรต่อไปนี้ในเซลล์ C12

• จากนั้น กด ENTER

การแยกส่วนสูตร

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

• ขั้นแรก B12 คือค่าการค้นหา (lookup value) ที่มันค้นหาในตารางที่กำหนด
• ที่สอง B4:C9 คือ table array ที่มันค้นหา target value
• ที่สาม 2 คือจำนวนคอลัมน์ในตารางที่จะคืนค่า
• ที่สี่ False หมายถึงการจับคู่ที่ แม่นยำ (exact match)

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

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

ขั้นตอน:

• ขั้นแรก เลือกแท็บ Developer >> จากนั้นเลือก Visual Basic

• ตอนนี้ จากแท็บ Insert >> คุณต้องเลือก Module

• ขณะนี้ คุณต้องเขียน โค้ด ต่อไปนี้ใน 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

• ตอนนี้ คุณต้องบันทึก โค้ด
• จากนั้น คุณต้องไปที่ Excel worksheet

ขณะนี้ คุณสามารถใช้ ฟังก์ชันที่กำหนดเอง (defined function) ได้ สำหรับนี้ คุณควรทำตามขั้นตอนที่กำหนด

ขั้นตอน:

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

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

4. ใช้ VBA สำหรับการแปลงสกุลเงินเป็นคำอ่านใน Excel

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

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

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

ผลลัพธ์ คุณสามารถใช้ ฟังก์ชันที่กำหนดเอง (defined function) ชื่อ Convert_Number_into_word_with_currency ได้ สำหรับนี้ คุณควรทำตามขั้นตอนที่กำหนด

ขั้นตอน:

• ตอนนี้ คุณต้องเลือกเซลล์ ที่คุณต้องการเก็บผลลัพธ์ เราเลือกเซลล์ C5
• จากนั้น คุณต้องใช้สูตรที่สอดคล้องกันในเซลล์ C5

• ต่อมา กด ENTER

• สุดท้าย ใช้คุณสมบัติ AutoFill ของ Excel สำหรับเซลล์ที่เหลือ C6:C9

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

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

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

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

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

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

หรือคุณสามารถกด CTRL+1 เพื่อเปิดหน้าต่างชื่อ Format Cells และเลือกตัวเลือก Number แล้วเลือกหมวดหมู่ Text จากนั้น

ส่วนฝึกฝน

สำหรับการฝึกฝน เราได้เพิ่มส่วนฝึกฝนบนแต่ละชีตทางด้านขวา

สรุป

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

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

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