Hallo Ontwikkelaars
Ik ben hier nieuw en heb een vraag waar ik niet uit kom, ik heb al enkele dagen lopen zoeken op het www maar nog niets kunnen vinden wat ik zoek vandaar dat ik me meld.
Wat zoek ik:
Middels een Excel werkblad waar ik een heleboel commandbuttons op heb staan die ik van kleur laat veranderen als ik er op klik(wit naar rood en terug naar wit).
het veranderen van kleur lukt voor alle knoppen die ik er op heb gezet maar ik wil dit vereenvoudigen.
Wat wil ik:
Een aangeklikte cmb de naam in een variable zetten die dan de kleur regelt
Verder zou ik middels een variabele naar die sub willen die de knop bijv. rood maakt. Als ik de knop naam in een variabele plaats
wordt de knop niet herkend en de kleur verandert niet, maar krijg ik de volgende foutmelding "ongeldige kwalificatie" .
Is hier een oplossing voor en zo ja welke.
Zie voorbeeld:
Alvast bedankt voor de moeite.
Ik ben hier nieuw en heb een vraag waar ik niet uit kom, ik heb al enkele dagen lopen zoeken op het www maar nog niets kunnen vinden wat ik zoek vandaar dat ik me meld.
Wat zoek ik:
Middels een Excel werkblad waar ik een heleboel commandbuttons op heb staan die ik van kleur laat veranderen als ik er op klik(wit naar rood en terug naar wit).
het veranderen van kleur lukt voor alle knoppen die ik er op heb gezet maar ik wil dit vereenvoudigen.
Wat wil ik:
Een aangeklikte cmb de naam in een variable zetten die dan de kleur regelt
Verder zou ik middels een variabele naar die sub willen die de knop bijv. rood maakt. Als ik de knop naam in een variabele plaats
wordt de knop niet herkend en de kleur verandert niet, maar krijg ik de volgende foutmelding "ongeldige kwalificatie" .
Is hier een oplossing voor en zo ja welke.
Zie voorbeeld:
Alvast bedankt voor de moeite.
Code:
Dim MyButton As String
Sub HydroVO_Click()
MyButton = "HydroVO"
MyButt
End Sub
Sub MyButt()
' In mybutton wordt de naam gezet van de
' knop die in is gedrukt daarmee wordt de gekozen
' knop gekleurd.
' de waarde van MyButton is wel de knop naam in dit geval HydroVO maar doet hier niets mee.
If MyButton.Caption = "Rood" Then
MyButton.Caption = "Wit"
MyButton.ForeColor = &HFFFFFF
MyButton.BackColor = &HFFFFFF
ElseIf MyButton.Caption = "Wit" Then
MyButton.Caption = "Rood"
MyButton.ForeColor = &HFF
MyButton.BackColor = &HFF
End If
End Sub
Laatst bewerkt door een moderator: