Tip 100

  Terug naar lessen

Office 2007 - Excel Tips 2007 - 2013

Tip 100

100/207 Lessen 

Cellen met formules accentueren.

In deze tip bespreken we hoe we cellen die formules bevatten accentueren op alle bladen van een bestand.

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.

Image1

Ga vervolgens op het lint naar ”Start” “Zoeken en selecteren”(2) en klik op “Selecteren speciaal”(3).

Image2

In het dialoogvenster “Selecteren speciaal” kiezen we voor “Formules” en de onderverdelingen “Getallen, Tekst, Logische waarden en Fouten”(4) en klikken Ok.

Image3

Enkel de cellen die formules bevatten op elk blad zijn nu geselecteerd(5).

Image4

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.

Image5

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).

Image6

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).

Image7

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

Image8

We klikken op “Opslaan”(12) en sluiten het vba venster.

Image9

We kunnen nu een toetsencombinatie toewijzen aan de macro.
Ga op het lint naar “Ontwikkelaars” en klik op “Macro’s”(13).

Image10

In het dialoogvenster “Macro” selecteren we eerst de map “PERSONAL.XLSB”(14), klikken we op de desbetreffende macro(15) en klikken op “Opties”(16).

Image11

In het venster “Opties” geven we een toetsencombinatie in bv. Ctrl+Shift+A (17) en klikken Ok.

Image12

Vervolgens sluiten we ook het “macro” dialoogvenster(18).

Image13

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: Swotster.com denkt aan zijn cursisten, denk ook aan Swotster.com

Formidabel U hebt Tip 100 voltooid START VOLGENDE LES

Cursussen