Note: The other languages of the website are Google-translated. Back to English
English English

วิธีแปลงตัวเลขสกุลเงินเป็นคำใน Excel อย่างรวดเร็ว?

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

หมายเลขสกุลเงิน doc ถึงคำ 1

สะกดตัวเลขสกุลเงินเป็นคำด้วย VBA แบบยาว

สะกดตัวเลขสกุลเงินเป็นคำต่างๆด้วยฟังก์ชัน Numbers to Words ที่มีประโยชน์ ความคิดที่ดี 3


สะกดตัวเลขสกุลเงินเป็นคำด้วย VBA แบบยาว

ใน Excel คุณไม่สามารถแปลงตัวเลขเป็นคำภาษาอังกฤษได้อย่างรวดเร็วยกเว้น VBA

1 กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล และวางด้านล่าง VBA ลงในไฟล์ โมดูล หน้าต่าง

VBA: แปลงตัวเลขสกุลเงินเป็นคำภาษาอังกฤษ

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim 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 & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & 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 & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim 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

3. จากนั้นบันทึกรหัสนี้และปิดหน้าต่างเพื่อกลับไปที่แผ่นงานและเลือกเซลล์ว่างพิมพ์สูตรนี้ = SpellNumberToEnglish (A2) (A2 คือตัวเลขสกุลเงิน) แล้วกด เข้าสู่ จากนั้นลากที่จับเติมลงเพื่อใช้สูตรนี้กับเซลล์ที่คุณต้องการ ดูภาพหน้าจอ:

หมายเลขสกุลเงิน doc ถึงคำ 2
doc ลูกศรลง
หมายเลขสกุลเงิน doc ถึงคำ 1

สะกดตัวเลขสกุลเงินเป็นคำต่างๆด้วยฟังก์ชัน Spell Out Numbers ที่มีประโยชน์

หากคุณจำเป็นต้องแปลงตัวเลขเป็นคำตามปกติวิธีการข้างต้นต้องไม่ใช่วิธีที่ดีและสะดวกสำหรับคุณ อย่างไรก็ตามคุณสามารถใช้ไฟล์ ตัวเลขเป็นคำ ฟังก์ชั่นแปลงตัวเลขสกุลเงินเป็นคำภาษาอังกฤษหรือคำภาษาจีนได้อย่างรวดเร็วหากคุณมี Kutools สำหรับ Excel.

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เลือกหมายเลขสกุลเงินแล้วคลิก Kutools > เนื้อหา > ตัวเลขเป็นคำ. ดูภาพหน้าจอ:

หมายเลขสกุลเงิน doc ถึงคำ 7

2 ใน ตัวเลขเป็นคำสกุลเงิน โต้ตอบตรวจสอบ English or ชาวจีน ตัวเลือกตามที่คุณต้องการ ดูภาพหน้าจอ:

หมายเลข doc ไปยังโลก 2

3 คลิก Ok or ใช้. จากนั้นตัวเลขสกุลเงินที่คุณเลือกจะถูกแปลงเป็นคำ

ตัวเลขสกุลเงินเป็นคำภาษาอังกฤษ

หมายเลข doc ไปยังโลก 3

ตัวเลขสกุลเงินเป็นคำภาษาจีน

หมายเลข doc ไปยังโลก 4

หมายเหตุ คุณสามารถคัดลอกและวางหมายเลขสกุลเงินลงในแผ่นงานอื่นก่อนที่คุณจะใช้ Numbers กับ Words


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (2)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไฮ, คิม มอร์ส, เพมเบอรี พินจามัน วัง เพอร์เซนดิเรียน (รหัส360)
Kami menyediakan pinjaman กับ kadar faedah 2% setahun dan dalam jumlah $ 10,000.00 hingga $ 500,000.00 dan € 10,000.00 hingga € 500,000.00 sebagai twaran pinjaman. โปรเจกต์ 100% ใช้งานได้จริงกับ pinjaman bercagar dan tidak bercagar boleh didapati. กามี ดิจามิน เมนีเดียกัน เปอร์คิดมาตัน เควางัน เคปาดา เปลางกัน คามิ ดิ เซลูรูห์ ดูเนีย Dengan pakej kredit yang fleksibel, pinjaman boleh diproses dan dana dipindahkan kepada peminjam dalam 2 ฮารี Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individu swasta dan pelabur hartanah yang berminat Cukup lengkapkan Borang di Bawah dan kembali kepada kami เมลาลุย E-mel.
บูติรัน เพ็งกูนา:
นะมะนะ:
ตาริก ลาฮีร์:
จันทิน่า.
สถานะ perkahwinan saya:
Alamat:
บันดาร์:
แดน เนเกรี / วิลายาห์:
ที่ตั้ง /
ประเทศ:
โทรศัพท์:
อีเมล์บอก:
dengan tujuan พินจามัน:
จุมลาห์ ปัญจมาน:
เทมโปะ ปัญจมาน:
เปณฑปตาน บุลานัน อันดา:
Hubungi pegawai pinjaman Via Email: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat เว็บ kami: Code360optionsloancompany.com

สลามเซจาห์เทรา,
พวนกิม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทบทวนบทความของฉัน ล้านล้านล้านล้านแปลง บทความการเรียนรู้ตัวเลขพื้นฐานที่ช่วยให้เรียนรู้ระบบตัวเลขและการแปลงตัวเลขเช่นกัน
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ