DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Hey,
Ik vroeg me af of het mogelijk is om de tekstkleur te wijzigen in een Excelveld door erop te klikken.
Dus dat de tekst een kleur heeft en door hem aan te klikken de tekst grijs wordt.
(en weer aan klikken weer de oorspronkelijke kleur)Het is voor het invullen van een rapport waar drie grijze smileys op staan (in drie velden achter elkaar). Het is de bedoeling dat één van de drie wordt gekleurd in een groene, een oranje of een rode.
Het gaat het snelste als dit kan door er op te klikken natuurlijk.
Heeft iemand een idee hoe dit te maken?
Ik vroeg me af of het mogelijk is om de tekstkleur te wijzigen in een Excelveld door erop te klikken.
Dus dat de tekst een kleur heeft en door hem aan te klikken de tekst grijs wordt.
(en weer aan klikken weer de oorspronkelijke kleur)Het is voor het invullen van een rapport waar drie grijze smileys op staan (in drie velden achter elkaar). Het is de bedoeling dat één van de drie wordt gekleurd in een groene, een oranje of een rode.
Het gaat het snelste als dit kan door er op te klikken natuurlijk.
Heeft iemand een idee hoe dit te maken?
Door slechts te klikken op die smilie, kan je het van kleur veranderen?quote:
Op Wat voor rapport zou dat zijn?
https://www.projectsucces(...)n-in-je-rapportages/
http://www.snirc.nl/files/gekleurde_smileys.xlsm
Smileys in Excel kan je maken via Wingdings J K L
Daarna heb ik een code in een macro geschreven die kijkt naar de waarde van de cel om daarmee op klik gedrag de kleur van de cellen te wijzigen.
In regel 3 van de code staat voor welke regels hij ook daadwerkelijk werkt.
Smileys in Excel kan je maken via Wingdings J K L
Daarna heb ik een code in een macro geschreven die kijkt naar de waarde van de cel om daarmee op klik gedrag de kleur van de cellen te wijzigen.
| 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?
Via ALT F11 open je het scherm van de macro's. Je moet de code in regel 3 aanpassen naar het bereik dat je wilt gebruiken voor de kleurtjes:
Set KeyCells = Range("D3:F3")
Hierbij is op dit moment het bereik D3 t/m F3
Disclaimer:
Macro's zijn best even ingewikkeld om mee te starten en dit is zeker niet de makkelijkste macro om mee te beginnen.
Ik krijg dit zelf (nog) niet voor elkaar merk ik.
Ik ga even kijken of ik iemand kan vinden die al eerder iets met macro's heeft gedaan en me wil helpen.
Dank voor de info tot zover.
Ik ga even kijken of ik iemand kan vinden die al eerder iets met macro's heeft gedaan en me wil helpen.
Dank voor de info tot zover.
|
|
