-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
cel laten knipperen
- Onderwerp starter beertje
- Startdatum
- Status
- Lid geworden
- 19 mrt 2003
- Berichten
- 39.340
- Besturingssysteem
- MacOS Sonema 14.6.1
- Office versie
- Mac heeft geen office
http://users.pandora.be/ingrid/excel/vbn.htm
bekijk deze link maar eens, misschien helpt je dat op weg.
bekijk deze link maar eens, misschien helpt je dat op weg.
- Lid geworden
- 19 mrt 2003
- Berichten
- 39.340
- Besturingssysteem
- MacOS Sonema 14.6.1
- Office versie
- Mac heeft geen office
Hoi Beertje,
En ik heb helemaal geen verstand van vba, maar misschien kun je eens de link volgen onderaan de site die je hebt bekeken. Deze is speciaal voor excel vragen.
suc6.
En ik heb helemaal geen verstand van vba, maar misschien kun je eens de link volgen onderaan de site die je hebt bekeken. Deze is speciaal voor excel vragen.
suc6.
Of je kun dit doen :
Als Excel open is druk je op Alt+F11 nu kom je in de "Visual Basic Editor"
Klik rechts op "Vbproject(Map1)" en kies Invoegen - Module
Rechts zie je Option Explicit met de cursor,
de code hieronder kopieer je en plak je in dit vak.
Ga nu naar Extra - Macro - Macro's en kies Knipper
Sla het bestand op.
Sub Knipper()
Dim interval As Date, myCell As Range
Set myCell = Worksheets(1).Range("A1")
interval = TimeValue("00:00:02")
knip = Not knip
tel = tel + 1
If tel = 10 Then
myCell.Interior.Color = 0
Exit Sub
End If
myCell.Interior.Color = IIf(knip, RGB(256, 0, 0), RGB(0, 256, 0))
Application.OnTime Now + interval, "Knipper"
End Sub
Cel A1 zal nu knipperen
Pierre
Als Excel open is druk je op Alt+F11 nu kom je in de "Visual Basic Editor"
Klik rechts op "Vbproject(Map1)" en kies Invoegen - Module
Rechts zie je Option Explicit met de cursor,
de code hieronder kopieer je en plak je in dit vak.
Ga nu naar Extra - Macro - Macro's en kies Knipper
Sla het bestand op.
Sub Knipper()
Dim interval As Date, myCell As Range
Set myCell = Worksheets(1).Range("A1")
interval = TimeValue("00:00:02")
knip = Not knip
tel = tel + 1
If tel = 10 Then
myCell.Interior.Color = 0
Exit Sub
End If
myCell.Interior.Color = IIf(knip, RGB(256, 0, 0), RGB(0, 256, 0))
Application.OnTime Now + interval, "Knipper"
End Sub
Cel A1 zal nu knipperen
Pierre
- Status
