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

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.
rhif doc i air 1

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 for Excel, sy'n gallu trosi rhifau i eiriau Saesneg neu Tsieineaidd, neu drosi rhifau i arian cyfred Saesneg neu arian cyfred Tsieineaidd.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

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

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

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

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


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir