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 Sub3. Gwasgwch F5 allwedd i redeg y cod, nawr mae'r rhif wedi'i drosi i eiriau.
Nodyn: Mae'r cod yn gweithio ar gyfer un rhif yn unig 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 a’r castell yng 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!
🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...
✏ Golygu Cynnwys: Darganfod Swp 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 / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...
🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...
⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - 100+ Offer ar gyfer Word
- 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
- 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
- ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
- 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
- ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR