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
Fremtiden har aldrig set mere usikker ud for Intel: Her er det, der kan redde – og dødsdømme chip-kæmpen
Computerviews: Intels nyslåede topchef Pat Gelsinger står overfor en stribe rigtig svære beslutninger. Hvis han ikke træder varsomt, vil chip-giganten sandsynligvis sygne hen.
Computerworld
Denne malware er den største trussel mod din virksomhed lige nu
Den mest aktive malware i verden sniger sig ind, og at svært at gøre nøget ved. Se her hvordan du tager dine forholdsregler.
CIO
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Podcast, The Digital Edge: Viking leverer en stadig større del af deres produkt som en tjeneste. Som en del af tjenesten tager Viking ansvar for sikkerheden ved at levere, dokumentere og vedligeholde det nødvendige sikkerhedsudstyr. Hør hvordan Henrik Balslev senior digital director hos Viking har løftet den opgave.
Job & Karriere
Microsoft i kæmpe dansk satsning - åbner tre store datacentre i Danmark
Microsoft lancerer kæmpe satsning fra hovedkvarteret i Lyngby. Selskabet åbner tre store bæredygtige datacentre på Sjælland.
White paper
Optimér produktiviteten og lad din printer følge med ud i skyen
De fleste virksomheder investerer betydelige beløb i den digitale transformationsproces, men skriver alligevel dokumenter ud som aldrig før, og medarbejdere opfatter decideret print som en forudsætning for at kunne arbejde effektivt. Alligevel er virksomhedens printstruktur ofte et systemmæssigt stedbarn, der er sammenstykket af mange forskellige enheder og platforme – hvilket skaber forvirring og betydeligt tidsspilde. Print passer heller helt ind i hverken den eksisterende digitale infrastruktur eller i den cloudbaserede infrastruktur, virksomheden sigter mod. Det udfordrer både sikkerhed, produktivitet og digital strategi som hele. I denne hvidbog kan du læse om udfordringerne og om, hvordan du håndterer dem mest effektivt som et led i den digitale transformationsproces.