Jeg har nogle celler, som er præcis de samme pr. 100 række. Jeg vil gerne have lavet en graf til hver område. Det vil f.eks. sige, at i kolonne A3 til D9 er det første område, hvor jeg ønsker en graf i E3.
Næste område er A103 til D109, hvor jeg ønsker samme graf i E103?
Dette fortsætter langt ned og vil tage for lang tid at lave manuelt. Nogen der ved, hvordan man gør det automatisk i VBA?
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Sub MultiGraf() For t = 3 To 1000 Step 100 Range("A" & t & ":D" & t + 6).Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("A" & t & ":D" & t + 6) With Selection .Top = Range("E" & t).Top .Left = Range("E" & t).Left End With Range("N" & t + 10).Select Next End Sub
Synes godt om
1 synes godt om dette
Ny brugerNybegynder
Din løsning...
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.