10. april 2010 - 00:12Der er
5 kommentarer og 1 løsning
Kør makro 'on cell "property" change'
Jeg har behov for at køre en makro, når der sker ændring i én af 6 udvalgte celler. Min kode er lige nu som følger:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$2" Then MsgBox "This Code Runs When Cell H2 Changes!" ElseIf Target.Address = "$H$3" Then MsgBox "This Code Runs When Cell H3 Changes!" ElseIf Target.Address = "$H$4" Then MsgBox "This Code Runs When Cell H4 Changes!" ElseIf Target.Address = "$L$2" Then MsgBox "This Code Runs When Cell L2 Changes!" ElseIf Target.Address = "$L$3" Then MsgBox "This Code Runs When Cell L3 Changes!" ElseIf Target.Address = "$L$4" Then MsgBox "This Code Runs When Cell L4 Changes!" End If End Sub
, men desværre registrer denne kun ændring i cellens "indhold" og ikke egenskaber (eksempelvis baggrundsfarve).
Hvordan kan jeg tage højde for ændring i baggrundsfarve, for cellerne L2, L3 og L4?
Dim baggrundsfarve As Byte, sidsteCC Private Sub Worksheet_SelectionChange(ByVal Target As Range) If InStr("$H$2$H$3$H$4$L$2$L$3$L$4", Target.Address) > 0 Then baggrundsfarve = Target.Interior.ColorIndex sidsteCC = Target.Address Else If sidsteCC <> "" Then If InStr("$H$2$H$3$H$4$L$2$L$3$L$4", sidsteCC) > 0 Then If Range(sidsteCC).Interior.ColorIndex <> baggrundsfarve Then Stop 'baggrundsfarve er ændret End If End If sidsteCC = "" End If 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.
