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
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:
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:
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:
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
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...
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!