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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.