Sut i wneud chwiliad wedi'i hidlo ar unwaith wrth i chi deipio cell yn Excel?
Mae'r erthygl hon yn darparu dull i chi chwilio a hidlo ar unwaith wrth i chi deipio cell yn Excel.
Chwiliad wedi'i hidlo ar unwaith wrth i chi deipio gyda chod VBA
Chwiliad wedi'i hidlo ar unwaith wrth i chi deipio gyda chod VBA
Fel isod y llun a ddangosir, mae gennych restr Enw yr ydych am ei chwilio a'i hidlo ar unwaith wrth i chi deipio cell benodol. Gwnewch fel a ganlyn i'w gyflawni.
1. Yn gyntaf, mae angen i chi greu tabl gyda'r data rhestr, ac enwi'r tabl fel “Enw”. Dewiswch y rhestr gyfan, cliciwch Mewnosod > Tabl.
2. Yn yr agoriad Creu Tabl blwch deialog, cliciwch OK. Gweler y screenshot:
3. Cliciwch ar unrhyw gell o'r tabl i actifadu'r dylunio tab, ac yna ailenwi'r tabl fel Enw yn y Enw'r Tabl blwch testun. Gweler y screenshot:
4. Cliciwch Datblygwr > Mewnosod > Blwch Testun (Rheoli ActiveX) i fewnosod blwch testun uwchben y rhestr tabl fel y dangosir isod screenshot:
5. De-gliciwch y Blwch Testun a chlicio Eiddo, Yn y Eiddo ffenestr, teipiwch gyfeirnod cell i'r LinkedCell blwch.
6. De-gliciwch y Blwch Testun a dewis Gweld y Cod o'r ddewislen cyd-destun. Yna disodli'r cod gwreiddiol gyda'r cod VBA isod yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Gweler y screenshot:
Cod VBA: Chwiliad wedi'i hidlo ar unwaith wrth i chi deipio 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 SubNodyn: Yn y cod, Blwch Testun1 yw enw'r blwch testun sydd wedi'i fewnosod, Enw yw enw'r rhestr tabl. Gallwch eu newid yn seiliedig ar eich anghenion.
7. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
8. Diffoddwch y Modd Dylunio trwy glicio Datblygwr > Modd Dylunio.
O hyn ymlaen, bydd y rhestr tabl yn cael ei chwilio a'i hidlo ar unwaith yn seiliedig ar y gwerth a gofnodwyd yn y blwch testun. Gweler y screenshot:
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
