Conas seiceáil litrithe a chur i bhfeidhm sa bhosca téacs?
Is féidir linn an fheidhm Litrithe a chur i bhfeidhm go héasca chun an teaghrán téacs ó chill a sheiceáil, ach ní chuirtear an ghné seo i bhfeidhm ar an mbosca téacs le haghaidh seiceáil litrithe. San alt seo, labhróidh mé faoi conas an seiceáil litrithe a chur i bhfeidhm i mbosca téacs.
Cuir seiceáil litrithe i mbosca téacs le cód VBA
Cuir seiceáil litrithe i mbosca téacs le cód VBA
Le seiceáil litrithe an tsreang téacs i mbosca téacs, féadfaidh an cód VBA thíos fabhar a thabhairt duit:
1. Ar dtús, cuir isteach bosca téacs trí chliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX), agus tarraing chun bosca téacs a tharraingt, féach an scáileán:
2. Ansin, fág an Mód Dearaidh chun an sreangán téacs a iontráil sa bhosca téacs de réir mar a theastaíonn uait, tar éis duit an téacs a chlóscríobh, lean ar aghaidh ag cumasú an Mód Dearaidh, agus cliceáil ar dheis ar an mbosca téacs chun é a roghnú Féach an cód ón roghchlár comhthéacs, féach an scáileán:
3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog, cuir an cód VBA seo a leanas in ionad an bhunchóid sa Mhodúl.
Cód VBA: Cuir seiceáil litrithe i bhfeidhm sa bhosca téacs:
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. Agus ansin brúigh F5 eochair chun an cód seo a rith, an Litriú cumasaítear bosca dialóige ag an am céanna, ansin, is féidir leat an Litriú feidhm chun an téacs a sheiceáil i mbosca téacs mar a thaispeántar an scáileán a leanas:
Earraí gaolmhara:
Conas dath bosca téacs a athrú bunaithe ar luach in Excel?
Conas pictiúr a chur isteach sa bhosca téacs?
Conas luach réamhshocraithe a shocrú i mbosca téacs?
Conas nach féidir ach uimhreacha a ionchur sa bhosca téacs?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!