Skip i'r prif gynnwys

Sut i gymhwyso gwiriad sillafu yn y blwch testun?

Gallwn gymhwyso'r swyddogaeth Sillafu yn hawdd i wiriad sillafu llinyn y testun o gell, ond nid yw'r nodwedd hon yn cael ei chymhwyso i'r blwch testun ar gyfer gwirio sillafu. Yn yr erthygl hon, byddaf yn siarad am sut i gymhwyso'r gwiriad sillafu mewn blwch testun.

Defnyddiwch wiriad sillafu mewn blwch testun gyda chod VBA


swigen dde glas saeth Defnyddiwch wiriad sillafu mewn blwch testun gyda chod VBA

I sillafu gwiriwch y llinyn testun mewn blwch testun, gall y cod VBA isod ffafrio chi:

1. Yn gyntaf, mewnosodwch flwch testun trwy glicio Datblygwr > Mewnosod > Blwch Testun (Rheoli ActiveX), a llusgo i dynnu blwch testun, gweler y screenshot:

gwiriad sillafu blwch testun doc 1

2. Yna, ewch allan o'r Modd Dylunio i nodi'r llinyn testun yn y blwch testun yn ôl yr angen, ar ôl teipio'r testun, ewch ymlaen i alluogi'r Modd Dylunio, a chliciwch ar y dde i'r blwch testun i'w ddewis Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:

gwiriad sillafu blwch testun doc 2

3. Yn yr agored Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol gyda'r cod VBA canlynol yn y Modiwl.

Cod VBA: Cymhwyso gwiriad sillafu yn y blwch testun:

Sub SpellChkRvw_Click()
    Dim xObject As Object
    Dim xCell As Range
    On Error Resume Next
    Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
    If ActiveSheet.OLEObjects.Count > 0 Then
        For Each xObject In ActiveSheet.OLEObjects
            xCell = xObject.Object.Text
            xCell.CheckSpelling , , , 1033
            xObject.Object.Text = xCell
        Next
    End If
End Sub

4. Ac yna pwyswch F5 allwedd i redeg y cod hwn, y Sillafu blwch deialog wedi'i alluogi ar unwaith, yna, gallwch ddefnyddio'r Sillafu swyddogaeth i sillafu gwirio'r testun i'r blwch testun fel y dangosir y screenshot canlynol:

gwiriad sillafu blwch testun doc 3


Erthyglau cysylltiedig:

Sut i newid lliw blwch testun yn seiliedig ar werth yn Excel?

Sut i fewnosod llun yn y blwch testun?

Sut i osod gwerth diofyn mewn blwch testun?

Sut i ganiatáu i rifau yn unig gael eu mewnbynnu yn y blwch testun?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works great except when it finishes, it changes the values in my combo boxes. Not sure why. 
This comment was minimized by the moderator on the site
Hello friend,
Sorry to hear that. But I tried the method in the article and it doesn't change the values in my combo boxes, except the ones that needed to be corrected. As for your problem, we are more than happy to help you. If you don't mind, could you please show me more details about the problem? Looking forward to your reply.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This works great except it changes the values in my combo boxes automatically.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations