Skip to main content

Conas cuardach scagtha láithreach a dhéanamh agus tú ag clóscríobh cille in Excel?

Soláthraíonn an t-alt seo modh chun tú a chuardach agus a scagadh láithreach agus tú ag clóscríobh cille in Excel.

Cuardach scagtha láithreach agus tú ag clóscríobh le cód VBA


Cuardach scagtha láithreach agus tú ag clóscríobh le cód VBA

Mar a thaispeántar thíos an scáileán, tá liosta Ainm agat ar mhaith leat a chuardach agus a scagadh láithreach agus tú ag clóscríobh i gcill ar leith. Déan mar a leanas le do thoil chun é a fháil.

1. Ar dtús, ní mór duit tábla a chruthú leis na sonraí liosta, agus an tábla a ainmniú mar “Ainm”. Roghnaigh an liosta iomlán, cliceáil Ionsáigh > tábla.

2. San oscailt Cruthaigh Tábla dialóg, cliceáil OK. Féach an pictiúr:

3. Cliceáil ar aon chill den tábla chun an dearadh cluaisín, agus ansin an tábla a athainmniú mar Ainm sa Ainm Tábla Bosca téacs. Féach an pictiúr:

4. cliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX) chun bosca téacs a chur isteach os cionn an liosta tábla mar atá thíos an pictiúr a thaispeántar:

5. Cliceáil ar dheis ar an mBosca Téacs agus cliceáil Airíonna, I Airíonna fuinneog, clóscríobh tagairt cille isteach sa LinkedCell bosca.

6. Cliceáil ar dheis ar an mBosca Téacs agus roghnaigh Féach an cód ón roghchlár comhthéacs. Ansin cuir an cód VBA thíos sa chód bunaidh Microsoft Visual Basic d’Fheidhmchláir fuinneog. Féach an pictiúr:

Cód VBA: Cuardach scagtha láithreach agus tú ag clóscríobh Excel

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

nótaí: Sa chód, Bosca Téacs1 is ainm don bhosca téacs a cuireadh isteach, Ainm is ainm don liosta tábla. Is féidir leat iad a athrú bunaithe ar do chuid riachtanas.

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

8. Múch an Mód Dearaidh trí chliceáil Forbróir > Mód Dearaidh.

As seo amach, déanfar an liosta tábla a chuardach agus a scagadh láithreach bunaithe ar an luach a iontráladh sa bhosca téacs. Féach an pictiúr:

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
what if the table has 2 or more columns?
This comment was minimized by the moderator on the site
а если в таблице 2 и более столбцов?
This comment was minimized by the moderator on the site
what is the name of the tab you are working on tab
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations