Note: The other languages of the website are Google-translated. Back to English

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 pentru a filtra datele în funcție de introducerea 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
notițe: În codul de mai sus, K1 este celula în care introduceți textul specific și ar trebui să modificați textele și numele coloanelor în funcție de nevoile dvs. În plus, puteți adăuga alte criterii noi doar adăugând scripturile de mai jos:
  • 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
notițe: În codul de mai sus, K1 este celula în care introduceți textul specific, B1: H1 este antetele rândurilor care conțin numele produsului pe care doriți să îl filtrați.

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în 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!
fundul officetab
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL