Conas colúin a cheilt i bhfíor-am bunaithe ar ionchur úsáideora in Excel?
D'fhéadfadh sé a bheith ina tasc coitianta don chuid is mó againn colúin a cheilt in Excel, ach, an ndearna tú iarracht riamh colúin a cheilt go huathoibríoch bunaithe ar roinnt luachanna ionchuir sonracha? Mar shampla, nuair a chuirim an téacs “AA” isteach i gcill, tá an colún A i bhfolach; nuair a chuirim “BB” isteach, cuirtear na colúin B agus C i bhfolach; agus “CC” á iontráil, cuirtear na colúin D agus E i bhfolach; agus “DD” á iontráil, cuirtear an colún F i bhfolach mar a thaispeántar thíos. Cruthóidh an t-alt seo cód VBA chun é a réiteach in Excel.
Folaigh nó dífholaigh colúin i bhfíor-am bunaithe ar ionchur úsáideora le cód VBA
Folaigh nó dífholaigh colúin chun sonraí a scagadh bunaithe ar ionchur úsáideora le cód VBA
Folaigh nó dífholaigh colúin i bhfíor-am bunaithe ar ionchur úsáideora le cód VBA
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 an cód ón roghchlár comhthéacs, féach screenshot
2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód VBA seo a leanas sa Bileog (Cód) fhuinneog.
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, agus tú ag dul isteach "AA" i gcill K1, agus brúigh Iontráil eochair, tá an colún A i bhfolach; agus tú ag dul isteach "BB", agus brúigh Iontráil eochair, tá an colún 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:
Folaigh nó dífholaigh colúin chun sonraí a scagadh bunaithe ar ionchur úsáideora le cód VBA
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 an cód ón roghchlár comhthéacs, féach an scáileán:
2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód VBA seo a leanas sa Bileog (Cód) fhuinneog.
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á!
