Avatar billede ul-pe Novice
29. januar 2015 - 12:04 Der er 1 kommentar

Afkrydsningsfelt skal ændre cellefarve

Hej Derude.

Jeg harr brug for hjælp til følgende lille opgave:

I et excel ark er cellefarven går for cellerne C4-7, hvor man ikke kan skrive tekst i cellerne. I celle C3 er der indsat et afkrydningsfelt.
Når der sættes "flueben" i afkrydsningsfeltet i C3, skal cellefarven i cellerne C4-7 ændres fra grå til hvid og jeg skal kunne skrive tekst i hver af cellerne.

Samme funktion skal være gældende for rækkerne C til H. Dog skal funktionen kun ændre cellefarven mv. i den række hvor afkrydsningsfeltet er placeret.

Kan nogen hjælpe mig med denne funktion/marko/VBA eller lignende.
På forhånd tak.
Avatar billede jens48 Ekspert
29. januar 2015 - 19:51 #1
Hvis jeg ellers har forstået dig rigtigt vil jeg tro at nedenstående kan bruges. Sub UnCheck1 linkes til den første checkbox og Sub UnCheck2 linkes til den anden. Lav flere Subs lig med UnCheck2 til de øvrige checkboxe i det omfang det er nødvendigt.

Sub UnCheck1()
If Range("C3") = True Then
ActiveSheet.Unprotect
    Range("C4:C7").Select
    Selection.Locked = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Range("C4").Select
Else
ActiveSheet.Unprotect
    Range("C4:C7").Select
    Selection.ClearContents
    Selection.Locked = True
    With Selection.Interior
      .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    Range("C8").Select
End If
End Sub

Sub UnCheck2()
If Range("D3") = True Then
ActiveSheet.Unprotect
    Selection.Locked = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
Else
ActiveSheet.Unprotect
    Range("D3").Select
    Selection.Locked = True
    With Selection.Interior
      .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
End If
End Sub
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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