Skip to main content

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

Údar: Xiaoyang Athraithe Deiridh: 2025-04-16

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

Scáileán a thaispeánann conas an fhuinneog Visual Basic for Applications a oscailt in Excel trí chliceáil ar dheis ar an táb bileog

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
Nóta: Sa chód thuas, is é "K1" an chill ina gcuireann tú an téacs ar leith isteach. Ba cheart duit ainmneacha an téacs agus na gcolún a choigeartú chun freastal ar do chuid riachtanas. Ina theannta sin, is féidir leat critéir nua eile a chur leis ach na scripteanna thíos a chur leis:
  • Cás "AA": Colúin("A").EntireColumn.Hidden = Bréagach
  • Colúin("A").EntireColumn.Hidden = Fíor

Scáileán den fhuinneog cód VBA in Excel le cód greamaithe chun colúin a cheilt bunaithe ar ionchur úsáideora

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:

Scáileán a thaispeánann conas an fhuinneog Visual Basic for Applications a oscailt in Excel trí chliceáil ar dheis ar an táb bileog

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
Nóta: Sa chód thuas, is é "K1" an chill ina gcuireann tú an téacs ar leith isteach, is iad "B1:H1" na ceannteidil ró ina bhfuil na hainmneacha táirge is mian leat a scagadh.

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:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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á!