Door slechts te klikken op die smilie, kan je het van kleur veranderen?quote:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("D3:F3") 'dit zijn de enige cellen waar hij op reageert If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then toggleColor (Target.Address) End If End Sub Private Function toggleColor(Target As String) Dim kleur As Long Dim rij As Integer rij = Range(Target).Row With Range(rij & ":" & rij).Font .Color = x1Automatic End With Select Case Range(Target).Value Case "J" kleur = 5287936 'groene smiley Case "K" kleur = 39423 'oranje smiley Case "L" kleur = 255 'rode smiley End Select If kleur = 0 Then Exit Function With Selection.Font .Color = kleur End With End Function |
In de link heb je al een kant en klaar bestand als voorbeeld.quote:Op zaterdag 13 januari 2018 02:59 schreef FFnog het volgende:
Dat ziet er handig uit.
Hoe zet ik zo'n macro in het excel bestand?
|
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |