Sut i drosi rhif yn eiriau yn nogfen Word?

Mae'r erthygl hon yn sôn am y dull o drosi'r rhifau i eiriau Saesneg yn nogfen Word, ewch ymlaen i weld y manylion os oes gennych ddiddordeb ynddo.

Trosi rhif i eiriau Saesneg gyda VBA

Trosi rhif i eiriau Saesneg yn Excel gyda Kutools ar gyfer Excel

Trosi rhif i eiriau Saesneg gyda VBA

1. Dewiswch y rhif rydych chi am ei drosi i eiriau, pwyswch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a chopïo isod y codau a'u pastio i'r Modiwlau sgript.

VBA: Trosi rhif yn eiriau

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. Gwasgwch F5 allwedd i redeg y cod, nawr mae'r rhif wedi'i drosi i eiriau.

NodynOnly Dim ond ar un rhif y mae'r cod yn gweithio bob tro.

Trosi rhif i eiriau Saesneg gyda Kutools ar gyfer Excel

Os ydych chi am drosi rhifau i eiriau ar ddalen Excel, mae yna offeryn defnyddiol - Rhifau i Eiriau o Kutools ar gyfer Excel , sy'n gallu trosi rhifau i eiriau Saesneg neu Tsieineaidd, neu drosi rhifau i arian cyfred Saesneg neu arian cyfred Tsieineaidd.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch y celloedd rydych chi am drosi rhifau yn eiriau, yna cliciwch Kutools > Cynnwys > Rhifau i Eiriau.

2. Yn y dialog popping, gwiriwch Saesneg ac Heb ei drosi i Arian Cyfred opsiynau.

3. Cliciwch Ok or Gwneud cais, bydd y rhifau a ddewiswyd yn cael eu trosi'n eiriau.

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys  /  Ailysgrifennu Testun  /  Crynhoi Dogfennau  /  Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith...

✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog  /  Newid Maint Pob Llun  /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /  Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  / Darganfod mwy yn y Mewnosod Grŵp...

🔍 Detholiadau Manwl: pinbwynt tudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  / Gwella llywio gyda mwy Dewiswch nodweddion...

⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Mae Kutools ar gyfer Word yn cynnig a Treial am ddim 60-dydd, heb unrhyw gyfyngiadau! 🚀

Lawrlwythiad Am Ddim     Darllenwch fwy     Prynu Nawr