Cum să ascundeți coloanele în timp real pe baza datelor introduse de utilizator în Excel?
Poate fi o sarcină comună pentru majoritatea dintre noi să ascundem coloanele în Excel, dar ați încercat vreodată să ascundeți coloanele automat pe baza unor valori specifice de intrare? De exemplu, când introduc textul „AA” într-o celulă, coloana A este ascunsă; când introduc „BB”, coloana B și C sunt ascunse; la introducerea „CC”, coloana D și E sunt ascunse; când introduceți „DD”, coloana F este ascunsă, așa cum se arată mai jos. Acest articol va crea un cod VBA pentru a-l rezolva în Excel.
Ascundeți sau afișați coloanele în timp real, pe baza intrării utilizatorului cu cod VBA
Ascundeți sau afișați coloanele în timp real, pe baza intrării utilizatorului cu cod VBA
Pentru a ascunde anumite coloane în timp real pe baza valorilor de intrare, vă rugăm să aplicați codul VBA de mai jos:
1. În foaia de lucru în care doriți să ascundeți coloanele, faceți clic dreapta pe fila foii, apoi faceți clic Afișați codul din meniul contextual, vezi captura de ecran
2. În deschise Microsoft Visual Basic pentru aplicații fereastra, copiați și inserați următorul cod VBA în fișierul Foaie (Cod) fereastră.
Cod VBA: Ascundeți coloanele în timp real, pe baza datelor introduse de utilizator
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
- Cazul „AA”: Columns(„A”).EntireColumn.Hidden = False
- Columns(„A”).EntireColumn.Hidden = Adevărat
3. Apoi, închideți fereastra de cod. Acum, când introduceți „AA” în celula K1 și apăsați Intrați cheie, coloana A este ascunsă; când introduceți „BB” și apăsați Intrați tasta, coloana B și C sunt ascunse și așa mai departe. Dacă introduceți orice altă valoare sau ștergeți conținutul, coloanele ascunse vor fi afișate imediat, vedeți demonstrația de mai jos:
Ascundeți sau afișați coloanele pentru a filtra datele în funcție de introducerea utilizatorului cu cod VBA
În acest exemplu, voi trece la filtrarea unui interval de date pe baza unui nume de produs introdus. Când introduc „Haotică”, sunt afișate numai informații despre Hoodie și alte coloane vor fi ascunse simultan; și când intru „Toate”, toate coloanele vor fi afișate așa cum se arată mai jos:
1. În foaia de lucru în care doriți să ascundeți coloanele, faceți clic dreapta pe fila foii, apoi faceți clic Afișați codul din meniul contextual, vezi captura de ecran:
2. În deschise Microsoft Visual Basic pentru aplicații fereastra, copiați și inserați următorul cod VBA în fișierul Foaie (Cod) fereastră.
Cod VBA: Ascundeți sau afișați coloanele pentru a filtra datele în funcție de intrarea utilizatorului
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. Apoi, închideți fereastra de cod. Acum, dacă introduceți numele produsului în celula K1, vor fi afișate numai coloanele corespunzătoare, celelalte vor fi ascunse; și dacă introduceți textul „Toate”, toate coloanele vor apărea așa cum se arată mai jos:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
