Skip to main content

Conas téacs bosca téacs a roghnú go huathoibríoch nuair a roghnaítear é in Excel?

Chun téacsanna a scriosadh i mbosca téacs (Rialú ActiveX), ar dtús, ní mór duit gach téacs laistigh den bhosca téacs a roghnú. Tá an t-alt seo ag caint ar gach téacs de bhosca téacs a roghnú go huathoibríoch agus an bosca téacs in Excel á chliceáil.

Roghnaigh téacs bosca téacs go huathoibríoch nuair a roghnaítear é le cód VBA


Roghnaigh téacs bosca téacs go huathoibríoch nuair a roghnaítear é le cód VBA

Cuir an cód VBA thíos i bhfeidhm le do thoil chun gach téacs de bhosca téacs a roghnú go huathoibríoch agus an bosca téacs in Excel á roghnú agat.

1. Le haghaidh bileog oibre ina bhfuil an bosca téacs a roghnóidh tú a théacsanna go huathoibríoch, cas ar an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh. Féach an pictiúr:

Nó is féidir leat bosca téacs a chur isteach trí chliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX). Féach an pictiúr:

2. Cliceáil ar dheis ar an mbosca téacs agus cliceáil Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cuir an cód VBA thíos in ionad an bhunchóid VBA i bhfuinneog an Chóid.

Cód VBA: Roghnaigh téacsanna bosca téacs go huathoibríoch agus tú ag cliceáil air

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

nótaí:

1. Sa chód, Bosca Téacs1 is ainm don bhosca téacs a ghlanfaidh tú ábhar uaidh. Athraigh é le do thoil féin.

2. Chun téacsanna de bhoscaí téacs iolracha a roghnú go huathoibríoch agus iad ag cliceáil orthu, cuir thíos cód VBA idir an dá chuid sa chód thuas. Agus athraigh an TextBox2 go hainm an bhosca téacs atá uait.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4. Brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

5. Múch an Mód Dearaidh.

As seo amach, agus tú ag cliceáil ar an mbosca téacs, roghnófar gach téacs laistigh den bhosca téacs go huathoibríoch.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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

Tuairisc


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á!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
can change color of the automatically selected text inside textbox?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations