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?