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.
Hidlo data dim ond trwy glicio gwerth cell gyda chod VBA
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:
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
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:
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!