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.
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
Synes godt om
Ny brugerNybegynder
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.
