Hej
Jeg har et udsnit - se herunder (I hope) -fra en rapport generet via VBA i Excel
Chekbokse er sat med følgende kode
For Each cell1 In Range("A25:R200")
If cell1.Interior.Color = RGB(202, 255, 204) Then
ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
With Selection
.Interior.ColorIndex = 0 'or xlNone or xlAutomatic
.Name = "bo" & cell1.Row
.Caption = ""
.OnAction = "sheet4.lonny1_change" ' testing
End With
End If
If cell1.Interior.Color = RGB(203, 255, 204) Then
ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
With Selection
.Interior.ColorIndex = 0 'or xlNone or xlAutomatic
.Name = "bo" & cell1.Row & "_" & cell1.Column
.Caption = ""
.OnAction = "sheet4.lonny2_change" ' testing
End With
End If
If cell1.Interior.Color = RGB(204, 255, 204) Then
ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
With Selection
.Interior.ColorIndex = 0 'or xlNone or xlAutomatic
.Caption = ""
End With
End If
Next
Ved hak i checkbokse med overskriften All skal de efterfølgende 8 vandrette chekbokse sættes
Ved fravalg af et hak i en de 8 checkbokse benævnt med retningerne fra N til NW skal hakket i chekboksen med overskriften All fjernes.uploads/60/forum_spørgsmål.jpg
Har prøvet mig frem med diverse copy-pastet koder fra nettet, men intet har fungeret. Hvordan løser jeg dette?
Det skal bemærkes at jeg har flere rapporter valgt fra en forside og for hver af disse rapporter er placeringen af ”udsnittet” med Stationsfoto forskelligt – altså i forskellige rækkenr og derfor har jeg valgt rækkenummer i navngivningen. Antallet af rækker (og dermed instrumenter) også er forskelligt på hver rapport.
PÅ forhånd tak fra Lonny