malenejakob Mester
03. juli 2020 - 11:12 Der er 3 kommentarer

makro til at ændre farve på commandbutton

hejsa
jeg har fire commandbuttons i mit ark der ved især styrer hvilket diagram der skal vises.

jeg kunne godt tænke mig at lave en makro der skal vise hvilken af de fire knapper der er valgt eller en makro der ændre farven på commandbutton når den anvendes
Bjarne S. Nielsen Juniormester
03. juli 2020 - 15:21 #1
bsn Seniormester
03. juli 2020 - 15:45 #2
Private Sub Form_Load()
Me.Kommandoknap17.BackColor = vbWhite
End Sub

Private Sub Kommandoknap17_Click()
Const hvid = vbWhite
Const rød = vbRed
Const blå = vbBlue
Const grøn = vbGreen
    With Me.Kommandoknap17
        If .BackColor = hvid Then
            .BackColor = rød
        Else
            If .BackColor = rød Then
                .BackColor = blå
            Else
                If .BackColor = blå Then
                    .BackColor = grøn
                Else
                    If .BackColor = grøn Then
                        .BackColor = hvid
                    End If
                End If
            End If
        End If
    End With
End Sub
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
"Jeg vil selv bestemme, om jeg skal ansætte fem bestemte medarbejdere, eller om mine medarbejdere skal løbe nøgne rundt om bygningen for at nå målsætningerne"
"Jeg vil selv bestemme, om jeg skal ansætte fem bestemte medarbejdere, eller om mine medarbejdere skal løbe nøgen rundt om bygningen for at nå målsætningerne."
Computerworld
Trump kræver pludselig ‘en masse penge’ for at godkende Microsofts køb af TikTok
Præsident Donald Trump siger, at USA skal have ‘en masse penge’, hvis Microsoft skal have grønt lys til at købe kinesiske TikTok. Kina truer med at svare igen.
Job & Karriere
Regner din ferie væk? Brug tiden på at søge en af disse otte stillinger, der er ledige netop nu
Det sjasker ned over hele Danmark. Du kan bruge de våde sommerdage på at søge et af disse otte job, der er ledige lige nu.
White paper
Mobility - her er de aktuelle udfordringer
Hvad med sikkerheden? Mobility-bølgen fejer igennem danske virksomheder, og der er masser af muligheder og faldgruber. Sikkerheden halter, men det kan der gøres noget ved. Produceret af Computerworld.dk i oktober 2014.