MENU
 
Home
Nieuwsbrief
GC in de media
SiteMap
 
Tips en Tricks
Excel
Word
Photoshop
PowerPoint
Surf Tips
Gmail
Android
iPad
Excel ClipTips
 
cursus Office 2016
Access
Excel
Outlook
PowerPoint
Word
 
cursus Office 2013
Excel
PowerPoint
Word
Nieuw in Excel 2013
Nieuw in Word 2013
Nieuw in PowerPoint 2013
 
cursus Office 2010
Access
Nieuw in Excel 2010
Excel automatiseren
Excel
OneNote
Outlook
PowerPoint
Word
 
cursus Office 2007
Access
Excel
Outlook
PowerPoint
Publisher
Visio
Word
 
cursus Office
2000-2002-2003-XP
Access
Excel
PowerPoint
Outlook
Word
 
cursus Photoshop
CC -3D
Animatie
CS6
CS5
CS4
CS2 - CS3
Lightroom 3
Elements 6
Mask Pro
Nik Collection
 
cursus Dreamweaver
CS3
 
cursus Illustrator
CS4
 
cursus Flash
CS4
 
cursus Fireworks
CS4
 
cursus Paint Shop Pro
X en X2
 
cursus Premiere
Elements 7-8
 
cursus Joomla
Joomla 1.5
 
Sociale Netwerk sites
Facebook
LinkedIn
Twitter
 
iPad
Apps
 
Diversen
Celtx
CSS
DropBox
Firefox 3.6
GIMP
Internet Explorer 9
LIME
Linux
OpenSUZE
PREZI
ProShow Producer
YouTube
 
cursus Google
Agenda
Analytics
Gmail
Zoeken
Picasa 3
SketchUp
Chrome
Street View
 
cursus Windows
Live Movie Maker
Windows 10
Windows 8
Windows 7
XP
Vista
 
cursus Office '97
Word
Excel
 
 

 

Tips Excel   go to : Index
       

Tip 203

   
Excel Tip
 

Interactieve filter

In deze tip toon ik jullie een manier om nog sneller te filteren op gegevens.
Wens je het Excelbestand te downloaden, de prijs bedraagt 1 Euro:

OPGELET:
Eénmaal het bedrag is betaald, word de downloadprocedure automatisch door PayPal opgestart.

 
 

Of je het bestand nu hebt gekocht of niet, maakt niet uit, hier is de uitleg wat het doet, en hoe je het moet maken.

Klik je een eerste maal op bv een naam, dan filtert Excel op de naam.
Klik je vervolgens op bv een product...

 

...dan filtert Excel een tweede maal.

Om alle toegepaste filters te verwijderen, klikken we de knop "Filter verwijderen" (1).
Je kunt dit ook nog steeds doen, door de naar beneden wijzende pijltjes te klikken naast de kolomtitels (2).

 
Ok, hoe gaan we hiervoor te werk?
Kies het tabblad "Ontwikkelaars" (1).
Klik de knop "Visual Basic" (2).
 

In het Project-venster VBA dubbelklik je het werkblad "Blad1" (1).
Waarom "Blad1".
Wel omdat we de VBA-code die we gaan toevoegen, enkel voor dit werkblad is bedoelt.
Mocht dit van toepassing zijn op het hele werkboek, dan zou je kiezen voor "ThisWorkbook".

Typ volgende code (2).

 
Een woordje uitleg:
Het eerste wat we doen is de variabel dccolumn , en de variabel dcvalue toekennen.
Vervolgens kijken we of de actieve cel, de gedubbelklikte cel dus, niet leeg is.
Wanneer dit is, dan passen we de filter toe op het veld (dccolumn) die gebaseerd op de waarde van het veld, dus de variabel dcvalue.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dccolumn As Integer
Dim dcvalue As String

If ActiveCell.Value <> "" Then

dccolumn = ActiveCell.Column
dcvalue = ActiveCell.Value

ActiveSheet.Range("A3:G64").AutoFilter Field:=dccolumn, Criteria1:=dcvalue
Cancel = True
End If

End Sub
 
Sluit het VBA-venster.
Wanneer we dit even testen door, bv te dubbelklikken op een naam, zal je zien dat dit werkt.
Maar we moeten nog een knop toevoegen om de filter te verwijderen.
 
Kies het tabblad "Invoegen", klik het naar benedenwijzend pijltje naast de knop "Vormen", en kies een vorm. Ik kies voor een afgeronde rechthoek, maar hiermee doe je wat je wil.
 
Teken je vorm.
 
Rechtsklik je vorm (1), en kies "Tekst toevoegen" (2).
Eventueel kun je deze tekst opmaken met de knoppen onder het tabblad "Start".
 
Rechtsklik vervolgens deze vorm (1) en kies "Macro toewijzen" (2).
 
Geef de macro een naam, en klik "Nieuw".
 

Voeg volgende VBA-code toe in het VBA-venster dat opent..
Deze lijkt me duidelijk. Ik zou dit kunnen vertalen, maar in VBA is alles in het Engels, dus dit lijkt me nutteloos.
ActiveSheet - ShowAllData.
Allé dan voor één keer. Het actieve werkblad, toon alle gegevens.

Sluit het VBA-venster.
We gaan even testen.

 
Filteren op één of meerdere kolommen werkt.
 
En de knop "Filter verwijderen" werkt ook.
 
GratisCursus.be denkt aan jullie.

Index
 
 
 
 

copyright © 2012 - gratiscursus.be