Conas colúin a cheilt i bhfíor-am bunaithe ar ionchur úsáideora in Excel?

D'fhéadfadh gur tasc coitianta é colúin a cheilt in Excel, ach an ndearna tú iarracht riamh colúin a cheilt go huathoibríoch bunaithe ar luachanna ionchuir ar leith? Mar shampla, nuair a chuirim an téacs “AA” isteach i gcill, tá colún A i bhfolach; nuair a chuirim “BB” isteach, cuirtear colúin B agus C i bhfolach; agus “CC” á iontráil agat, tá colúin D agus E i bhfolach; nuair atá tú ag dul isteach i “DD,” tá colún F i bhfolach, mar a thaispeántar sa taispeántas thíos. Soláthróidh an t-alt seo cód VBA chun é a réiteach in Excel.

Úsáid cód VBA chun colúin a cheilt nó a cheilt i bhfíor-am bunaithe ar ionchur úsáideora

Úsáid cód VBA chun colúin áirithe bunaithe ar ionchur úsáideora a cheilt nó a cheilt

Úsáid cód VBA chun colúin a cheilt nó a cheilt i bhfíor-am bunaithe ar ionchur úsáideora

Chun na colúin shonracha a cheilt i bhfíor-am bunaithe ar luachanna ionchuir, cuir an cód VBA thíos i bhfeidhm:

1. Sa bhileog oibre áit ar mhaith leat colúin a cheilt, cliceáil ar dheis ar an gcluaisín bileog, agus ansin cliceáil "Féach ar an gCód" ón roghchlár comhthéacs, féach screenshot

2. Sa fhuinneog "Microsoft Visual Basic for Applications" a osclaíodh, cóipeáil agus greamaigh an cód VBA seo a leanas sa fhuinneog "Bileog (Cód)".

Cód VBA: Folaigh colúin i bhfíor-am bunaithe ar ionchur úsáideora

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub

3. Ansin, dún an fhuinneog cód. Anois, nuair a théann tú isteach "AA" i gcill K1, agus brúigh "Iontráil" eochair, tá an colún A i bhfolach; nuair atá tú ag dul isteach "BB", agus brúigh "Iontráil" eochair, tá na colúin B agus C i bhfolach, agus mar sin de. Má chuireann tú isteach luach ar bith eile nó má scriosann tú an t-ábhar, taispeánfar na colúin i bhfolach láithreach, féach thíos taispeána:

Úsáid cód VBA chun colúin áirithe bunaithe ar ionchur úsáideora a cheilt nó a cheilt

Sa sampla seo, rachaidh mé chun raon sonraí a scagadh bunaithe ar ainm táirge iontráilte. Nuair a chuirim “Hoodie” isteach, ní thaispeánfar ach faisnéis Hoodie agus beidh colúin eile i bhfolach láithreach; agus nuair a chuirim “All”, taispeánfar na colúin go léir mar a thaispeántar thíos:

1. Sa bhileog oibre áit ar mhaith leat colúin a cheilt, cliceáil ar dheis ar an gcluaisín bileog, agus ansin cliceáil "Féach ar Chód" ón roghchlár comhthéacs, féach screenshot:

2. Sa fhuinneog "Microsoft Visual Basic for Applications" a osclaíodh, cóipeáil agus greamaigh an cód VBA seo a leanas sa fhuinneog "Bileog (Cód)".

Cód VBA: Folaigh nó dífholaigh colúin chun sonraí a scagadh bunaithe ar ionchur úsáideora

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub

3. Ansin, dún an fhuinneog cód. Anois, má chuireann tú ainm an táirge isteach i gcill K1, ní thaispeánfar ach na colúin chomhfhreagracha, beidh an ceann eile i bhfolach; agus má chuireann tú an téacs “All”, beidh gach colún le feiceáil mar a thaispeántar thíos: