18. april 2004 - 00:45Der er
3 kommentarer og 1 løsning
skifte farver
Hvordan får man cellerne til at skifte farve til grøn efterhånden som musen bevæges henover dem (og tilbage til hvid når den har bevæget sig væk igen)?
Alternativt: Markerede celler farves grønne med Target.Interior.ColorIndex = 10 men hvordan får man dem tilbage til hvid når de ikke længere er markeret (altså når en ny celle er markeret)? A-kolonnen og 1-rækken må aldrig skifte farve da de altid skal være blå (jeg benytter B2 freeze panes).
Jeg mener ikke at Drag_over kan benyttes på et normalt ark, men du kan bruge nedenstående, i dit arkmodul.
den virker når cellerne makeres.
Dim OldAddress As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 And Target.Row <> 1 Then If OldAddress <> "" Then Range(OldAddress).Interior.ColorIndex = xlNone Target.Interior.ColorIndex = 10 OldAddress = Target.Address End If End Sub
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.