05. november 2010 - 17:38Der er
13 kommentarer og 1 løsning
Kopiering af cellekæde i kontrolelementer
I Excel 2003 har jeg brug for at kopiere en række med kontrolelementer (31 stk) i fx række 10, til række 21,32 osv. i alt flere hundrede gange. Dette er let nok, men cellekæden fastholdes til den valgte i første række, selvom jeg fjerner tegnene i cellekæden for den absolutte reference (#). Dette medfører at når jeg efterfølgende afkrydser celler i række 10, afkrydses alle cellerne i hele den pågældende kolonne, hvilket ikke er tilsigtet.
Der må være en smart måde at gøre ovenstående på...?
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Det er formularkontrolelement jeg skal bruge. Efterfølgende skal jeg summere hvad der er afkrydset, men det kan jeg selv klare. Jeg tænkte nok der skulle noget makro til, desværre kan jeg ikke selv kode det. Jeg glemte at nævne at der er flere faner i regnearket og de skal alle have disse kontrolelementer.
kom med nogle eks. på cellekæderne, så jeg kan se systemet med dem Vær opmærksom på at det er rammen omkring den lille afkrydsningsboks (i edit mode) som afgør hvilken celle de er placeret i
Cellekæderne er fra i10 til am11 og skal kopieres til i21:am22 og så ellers i spring på 11 rækker dernedaf, i alt ca 250 gange Afkrydsningsfeltet uden navn (jeg skal kun kunne se afkrydsningsfeltet) ligger midt i de samme celler som cellekæderne ligger i, altså fx i10. Jeg vil lige nævne at regnearket består af en slags "poster". Første "post" går fra a2 til am13 og i alle disse celler, enten beregnes der noget, eller også indeholder cellerne noget tal/tekst, eller opslag af en slags. Systemet har indtil nu fungeret på den måde at jeg har lavet "skallen" på første "post" fra a2:am13 og tilpasset den med formler og kæder til andre tilsvarende ark. Efter dette har jeg markeret a2:am13 og så ellers kopieret dernedaf.
Denne opretter cellekæde til den celle hvori der er en boks Skift ark og kør igen
Sub Fixit() For Each drw In ActiveSheet.DrawingObjects rk = drw.TopLeftCell.Row kol = drw.TopLeftCell.Column drw.LinkedCell = Cells(rk, kol).Address Next End Sub
Hold k... hvor er det smart, det virker perfekt! Eneste problem er at jeg ikke få kopieret kontrolelementerne med nedaf sammen med de øvrige celler. Kontrolelementerne kopieres kun med i det første område, altså til i21:am22 Jeg sidder dog lige nu med Excel 2010 og har åbnet filen som oprindelig er lavet i 2003, måske er det det der driller. Inden jeg lukker, kan du så fortælle mig hvad det kan være, eller skal jeg bare lukke sagen?
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.