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

วิธีการแปลงตัวเลขเป็นคำในเอกสาร Word?

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

แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย VBA

แปลงตัวเลขเป็นคำภาษาอังกฤษใน Excel ด้วย Kutools for Excel


แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย VBA

1. เลือกหมายเลขที่คุณต้องการแปลงเป็นคำกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

VBA: แปลงตัวเลขเป็นคำ

Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
    Dim xDigit As Double
    Dim xBuff As String
    On Error Resume Next
    Selection.MoveLeft wdWord, 1, wdMove
    Selection.MoveRight wdWord, 1, wdExtend
    xDigit = Val(Trim(Selection.Text))
    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            xBuff = Trim(Int(Str(xDigit / 1000000)))
            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
            Selection.MoveLeft wdWord, 1, wdExtend
            xBuff = Selection.Text & " million "
            xDigit = Right(Str(xDigit), 6)
        End If
    End If
    If xDigit <= 999999 Then
        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
        Selection.MoveLeft wdWord, 1, wdExtend
        xDigit = xBuff & Selection.Text
        Selection.TypeText xDigit + " "
    Else
        MsgBox "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3 กด F5 คีย์ในการรันโค้ดตอนนี้หมายเลขถูกแปลงเป็นคำแล้ว
หมายเลข doc ต่อคำ 1

หมายเหตุ: รหัสใช้งานได้เพียงหมายเลขเดียวในแต่ละครั้ง


แปลงตัวเลขเป็นคำภาษาอังกฤษด้วย Kutools for Excel

หากคุณต้องการแปลงตัวเลขเป็นคำในแผ่นงาน Excel มีเครื่องมือที่สะดวก - ตัวเลขเป็นคำ ของ Kutools for Excel ซึ่งสามารถแปลงตัวเลขเป็นคำภาษาอังกฤษหรือภาษาจีนหรือแปลงตัวเลขเป็นสกุลเงินอังกฤษหรือสกุลเงินจีน

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

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

1. เลือกเซลล์ที่คุณต้องการแปลงตัวเลขเป็นคำจากนั้นคลิก Kutools > เนื้อหา > ตัวเลขเป็นคำ.
หมายเลข doc ต่อคำ 1

2. ในกล่องโต้ตอบ popping ให้เลือก English และ ไม่ได้แปลงเป็นสกุลเงิน ตัวเลือก
หมายเลข doc ต่อคำ 1

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


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ