Note: The other languages of the website are Google-translated. Back to English

Sut i hidlo data dim ond trwy glicio cynnwys celloedd yn Excel?

Fel rheol, yn Excel, gallwch gymhwyso'r swyddogaeth Hidlo i hidlo data yn ôl eich angen. Ond, yn yr erthygl hon, byddaf yn siarad am sut i hidlo data dim ond trwy glicio gwerth cell. Cymerwch y data canlynol fel enghraifft, pan fyddaf yn clicio ddwywaith ar y gell A2, bydd yr holl gofnodion cyfatebol sy'n seiliedig ar y gwerth hwn sydd wedi'i glicio yn cael eu hidlo ar unwaith fel islaw'r screenshot a ddangosir.

hidlydd doc trwy glicio 1

Hidlo data dim ond trwy glicio gwerth cell gyda chod VBA


swigen dde glas saeth Hidlo data dim ond trwy glicio gwerth cell gyda chod VBA

Yma, byddaf yn darparu cod VBA i chi hidlo data trwy glicio cell, gwnewch fel a ganlyn:

1. Yn gyntaf, rhowch enw amrediad i'ch data, rhowch enw amrediad yn y Blwch Enw, a'r wasg Rhowch allwedd, gweler y screenshot:

hidlydd doc trwy glicio 2

2. Cliciwch ar y dde ar y tab dalen yr ydych am ei hidlo trwy glicio cell, ac yna dewis Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Hidlo data trwy glicio gwerth celloedd:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

hidlydd doc trwy glicio 3

Nodyn: Yn y cod uchod, mydata yw'r enw amrediad rydych chi wedi'i greu ar gyfer eich ystod ddata, newidiwch ef i'ch angen.

3. Yna arbedwch a chau ffenestr y cod, nawr, pan fyddwch chi'n clicio ddwywaith ar unrhyw gell o'r ystod ddata rydych chi am ei hidlo allan, bydd ei chofnodion cyfatebol yn cael eu hidlo fel y dangosir y llun a ganlyn:

hidlydd doc trwy glicio 4


Erthyglau mwy cysylltiedig:

Sut i newid gwerth y gell trwy glicio ar y gell?

Sut i ddidoli data colofn trwy glicio ar y pennawd yn Excel?


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 Swyddfa / Excel 2007-2019 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.
tab kte 201905

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!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bom Muito!
Entretanto, so funciona and a intervalo.
Eu queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se sim!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Prynhawn da

Excelente aportación ... lástima que no funcione con un archivo protegido ... qué podría cambiarle para que si funcione?

Cofion
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gennyf daflen grynodeb, sy'n cyfrifo faint o linellau ar y brif ddalen sydd o fewn ystod dyddiad penodol. Rwyf am allu clicio ddwywaith ar ystod dyddiad penodol ac yna hidlo'r data ar y brif ddalen i'r ystod dyddiad y gwnes i glicio ddwywaith arno. Pa god fyddai ei angen arnaf ar gyfer hyn os gwelwch yn dda
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir