Jane Knudsen Nybegynder
29. januar 2015 - 11:37 Der er 2 kommentarer og
1 løsning

Ændre farve på CommandButton

Hej, Håber der er nogen som vil hjælpe mig med at skrive en VBA kode i Excel 2013. Koden skal kunne skifte farve på en knap (ActiveX), når der klikkes på knappen.

Knappen er som udgangspunkt hvid, og ved første klik skifter farven til rød, klikkes der igen bliver den blå, klikkes igen bliver den grøn og klikkes igen bliver den igen hvid osv.
supertekst Ekspert
29. januar 2015 - 15:02 #1
Private Sub CommandButton21_Click()
Const hvid = &HFFFFFF
Const rød = &HFF&
Const blå = &HFF0000
Const grøn = &HFF00&
Stop
    With CommandButton21
        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
Jane Knudsen Nybegynder
29. januar 2015 - 15:48 #2
Hej Supertekst, tusind tak - det var lige det jeg gerne ville have. VH Jane
supertekst Ekspert
29. januar 2015 - 16:26 #3
Hej Jane
Selv tak..
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





Computerworld
Statens Serum Institut har slettet alle sendte mails ved en fejl: "Det er dybt beklageligt"
Alle sendte mails fra Statens Seruminstitut og Sundhedsdatastyrelsen er blevet slettet, hvis de er sendt før 22. juli, oplyser de to myndigheder.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Sådan kan du arbejde effektivt uanset tid, sted og type af enhed
Hvad nu hvis dit arbejde, din information, dine processer og teknologien bag ved, var organiseret på en måde så det passede til din organisation – alt sammen guidet af en intelligent udgave af det digitale arbejdsrum? Det er visionen bag Atea og Citrix´s samarbejde med digital workspace – en smartere og mere effektiv måde at arbejde på. I dette whitetpaper kan du derfor læse om, hvordan du kan skabe et mere effektivt og brugervenligt arbejdsrum uanset tid, sted og enhed. En løsning der på en gang er både enkel og som sætter brugeren i centrum.