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
- Cás "AA": Colúin("A").EntireColumn.Hidden = Bréagach
- Colúin("A").EntireColumn.Hidden = Fíor
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:
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á!