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 100

   
Deze Tip werd geschreven door Valentin, waarvoor mijn dank.
 
Cellen met formules accentueren.
In deze tip bespreken we hoe we cellen die formules bevatten accentueren op alle bladen van een bestand.
Klik hier om het gebruikte bestand te downloaden.
 
Methode 1: Met selecteren speciaal.
Open een bestand waarvan op één of meerdere bladen de cellen formules bevatten.
Selecteer (groepeer) alle tabbladen waarvan de cellen formules bevatten, klik op één van de bladen op het selectievak(1) om het hele werkblad te selecteren.
 
Ga vervolgens op het lint naar ”Start” “Zoeken en selecteren”(2) en klik op “Selecteren speciaal”(3).
In het dialoogvenster “Selecteren speciaal” kiezen we voor “Formules” en de onderverdelingen “Getallen, Tekst, Logische waarden en Fouten”(4) en klikken Ok.
 
Enkel de cellen die formules bevatten op elk blad zijn nu geselecteerd(5).
 
We gaan vervolgens op het lint naar “Start” en kiezen bij “Lettertype” voor één of meerdere opties(6) om toe te passen op de geselecteerde cellen.

Vervolgens heffen we de groepering op van alle tabbladen.

In dit voorbeeld heb ik er voor gekozen om de cellen met formules te accentueren d.m.v. onderlijning(7).

 
Methode 2: Met VBA.

We schrijven een vba code die we in elk actief bestand kunnen toepassen.

We openen de visual basic editor met de toetsencombinatie Alt+functietoets F11.

In het “Project venster”klikken we met de rechtermuisknop op het project “PERSONAL.XSLB”(8) en kiezen bij “Invoegen”(9) voor “Module”(10).

 
In het code venster(11) typen we de volgende vba code:
Sub AccentueerCelFormule()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Font.Underline = xlUnderlineStyleSingle
End With
Next ws
End Sub
 
We klikken op “Opslaan”(12) en sluiten het vba venster.
 
We kunnen nu een toetsencombinatie toewijzen aan de macro.
Ga op het lint naar “Ontwikkelaars” en klik op “Macro’s”(13).
 
In het dialoogvenster “Macro” selecteren we eerst de map “PERSONAL.XLSB”(14), klikken we op de desbetreffende macro(15) en klikken op “Opties”(16).
 
In het venster “Opties” geven we een toetsencombinatie in bv. Ctrl+Shift+A (17) en klikken Ok.
 
Vervolgens sluiten we ook het “macro” dialoogvenster(18).
 
We kunnen de macro ook nog toevoegen aan de werkbalk snelle toegang, Cursus Excel 2007 Les 4. Deze macro kan nu toegepast worden op elk actief geopend bestand.
 
Hier nog enkele andere voorbeelden van macro’s voor het accentueren van cellen met formules.
Sub KleurAchtergrondCelFormule()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Interior.ColorIndex = 34
' (kleurindex is van 1 en 56)
End With
Next ws
End Sub
 
Sub SchuinSchriftCelFormule()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Font.Italic = True
End With
Next ws
End Sub
 

Sub VetGedruktCelFormule()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Font.Bold = True
End With
Next ws
End Sub

 
Je kan natuurlijk ook combineren maar dat ontdek je het best door zelf te proberen (al doende leert men), bv.
Sub VetGedruktEnSchuinCelFormule()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Font.Bold = True
.Font.Italic = True
End With
Next ws
End Sub
 
Een beetje uitleg bij de macro:
 
Sub AccentueerCelFormule()
Naam van de subroutine
 
Dim ws As Worksheet
Declaratie van de variabele ws als werkblad
 
On Error Resume Next
Bij fout ga naar volgende (als er geen formules in het blad zijn ga naar volgende blad)
 
For Each ws In ActiveWorkbook.Worksheets
Voor elk blad in het active bestand
 
With ws.Cells.SpecialCells(xlCellTypeFormulas)
.Font.Underline = xlUnderlineStyleSingle
End With
Pas de volgende opmaak toe op elke cel van het blad die een formule bevat
Lettertype enkele onderlijning
 
Next ws
Volgend ws (werkblad)
 
End Sub
Einde routine
 
Ter informatie: GratisCursus.be denkt aan zijn cursisten, denk ook aan GratisCursus.be
 
 
 
Heb je vragen betreffende deze tip, mail me Valentin
 
Index

All courses now available in English:
www.swotster.com

copyright © 2012 - Swotster Ltd - Hong Kong - China