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 - 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
|