Conas sonraí a scagadh ach trí ábhar cille a chliceáil in Excel?
De ghnáth, in Excel, is féidir leat an fheidhm Scagaire a chur i bhfeidhm chun sonraí a scagadh de réir do riachtanas. Ach, san Airteagal seo, beidh mé ag caint faoi conas sonraí a scagadh ach cliceáil ar luach cille. Tóg na sonraí seo a leanas mar shampla, nuair a chliceálann mé faoi dhó ar an gcill A2, déanfar na taifid chomhfhreagracha go léir atá bunaithe ar an luach cliceáil seo a scagadh ag an am céanna mar a thaispeántar thíos.
Scag sonraí ach cliceáil ar luach cille le cód VBA
Scag sonraí ach cliceáil ar luach cille le cód VBA
Anseo, cuirfidh mé cód VBA ar fáil duit chun sonraí a scagadh trí chliceáil ar chill, déan mar a leanas le do thoil:
1. Ar dtús, tabhair ainm raoin do do shonraí, cuir ainm raon isteach sa Ainm Bosca, agus brúigh Iontráil eochair, féach an scáileán:
2. Cliceáil ar dheis ar an gcluaisín bileog a theastaíonn uait a scagadh trí chliceáil ar chill, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, agus san oscailt Microsoft Visual Basic d’Fheidhmchláir an cód seo a leanas a fhuinneogú, a chóipeáil agus a ghreamú isteach sa Mhodúl bán:
Cód VBA: Scag sonraí trí luach cille a chliceáil:
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
nótaí: Sa chód thuas, miotas an t-ainm raoin atá cruthaithe agat do do raon sonraí, le do thoil é a athrú de réir do riachtanas.
3. Ansin sábháil agus dún an fhuinneog cód, anois, nuair a chliceálann tú faoi dhó ar aon chill den raon sonraí a theastaíonn uait a scagadh, déanfar na taifid chomhfhreagracha a scagadh mar a thaispeántar an scáileán seo a leanas:
Earraí níos gaolmhara:
Conas luach na cille a athrú trí chliceáil ar an gcill?
Conas sonraí colún a shórtáil trí chliceáil ar cheanntásc in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!
