Comment masquer automatiquement les colonnes en fonction de la date dans Excel?
En supposant que j'ai une plage de données dans une feuille de calcul, je souhaite maintenant masquer automatiquement les colonnes en fonction d'une date spécifique. Par exemple, lorsque j'entre la date 5/16/2016 dans une cellule, je souhaite masquer immédiatement les colonnes dont la date est inférieure à cette date spécifique, comme illustré ci-dessous. Cet article présentera quelques astuces pour le résoudre.
Masquer automatiquement les colonnes en fonction d'une date spécifique avec le code VBA
Masquer les colonnes en fonction d'une date spécifique avec Kutools for Excel
Masquer automatiquement les colonnes en fonction d'une date spécifique avec le code VBA
Pour terminer cette tâche, le code VBA suivant peut vous aider, procédez comme suit:
1. Sélectionnez l'onglet de la feuille que vous souhaitez masquer par date et faites un clic droit pour choisir Voir le code dans le menu contextuel pour accéder à Microsoft Visual Basic pour applications , puis copiez et collez le code suivant dans le module:
Code VBA: Masquez automatiquement les colonnes en fonction d'une date spécifique:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul, et maintenant, lorsque vous entrez la date dans la cellule K4, les colonnes dont la date est inférieure à cette date spécifique seront automatiquement masquées.
Notes: Dans le code ci-dessus, K4 est la cellule de date spécifique sur laquelle vous souhaitez masquer les colonnes, A1: I1 les cellules de la ligne contiennent la date que vous avez utilisée.
Masquer les colonnes en fonction d'une date spécifique avec Kutools for Excel
Si vous n'êtes pas familier avec le code, voici un outil pratique-Kutools for Excel, Avec son Sélectionnez des cellules spécifiques utilitaire, vous pouvez terminer ce travail avec facilité.
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, procédez comme suit:
1. Sélectionnez les en-têtes de date et cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques, voir capture d'écran:
2. Dans le sauté Sélectionnez des cellules spécifiques boîte de dialogue, sélectionnez Colonne entière du Type de sélection, puis choisissez les critères, tels que Moins que du Type spécifique liste déroulante et entrez la date dans la zone de texte à côté de laquelle vous souhaitez masquer les colonnes en fonction, voir capture d'écran:
3. Et puis cliquez Ok bouton, les colonnes spécifiques dont la date est inférieure au 5/16/2016 sont sélectionnées en même temps, voir capture d'écran:
4. Cliquez ensuite avec le bouton droit sur l'un des en-têtes de colonne sélectionnés et sélectionnez Cacher pour masquer les colonnes sélectionnées selon vos besoins. Voir la capture d'écran:
Cliquez sur Télécharger gratuitement Kutools pour Excel maintenant !
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!