Multi area range

Pomoč pri izdelavi makrov
Odgovori
hosta90
Prispevkov: 12
Pridružen: So Jul 24, 2010 5:19 pm

Multi area range

Odgovor Napisal/-a hosta90 »

Sheets("CE").Select
ActiveChart.SetSourceData Source:=Sheets("podatki").Range( _
"J7:U10,J2:U2,C2,C7:C10")

narejen imam graf, ki se mora vsak mesec posodobiti. To pomeni da se
se polja J7:U10 in J2:U2 vsak mesec premakneta za en stolpec v desno,
ostali deli pa ostanejo enaki. Sedaj mi pa na način da Range napišem
v
obliki range(cells(i,j),cells(z,u)), nikakor ne uspe narediti multi-
area range.
Ali obstaja kakšna funkcija, ki bi mi v podatkih od grafa povečala
črko(stolpec) za 1?
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Multi area range

Odgovor Napisal/-a admin »

Celoten obseg najlažje prestavite s funkcijo offset:

Koda: Izberi vse

  Range("J7:U10,J2:U2,C2,C7:C10").Offset(0,1)
Če pa želite prestaviti desno samo prva dva elementa, druga dva pa ne, potem pa morate uporabiti funkcijo unije:

Koda: Izberi vse

  Union(Range("J7:U10,J2:U2").Offset(0, 1), Range("C2,C7:C10"))
lp,
Matjaž Prtenjak
Administrator
hosta90
Prispevkov: 12
Pridružen: So Jul 24, 2010 5:19 pm

Re: Multi area range

Odgovor Napisal/-a hosta90 »

Hvala!
hosta90
Prispevkov: 12
Pridružen: So Jul 24, 2010 5:19 pm

Re: Multi area range

Odgovor Napisal/-a hosta90 »

Sheets("CE").Select

ActiveChart.SetSourceData Source:=Sheets("podatki").Union(Range("J7:U10,J2:U2").Offset(0, 1), Range("C2,C7:C10"))
Sheets("podatki").Select


tole mi ne deluje ...

javi mi napako Methond of 'range' object '_global' failed
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Multi area range

Odgovor Napisal/-a admin »

Za Range("J7:U10,J2:U2") ne ve kam spada... Samo obrnite stavka:

Koda: Izberi vse

Sheets("podatki").Select
ActiveChart.SetSourceData Source:=Union(Range("J7:U10,J2:U2").Offset(0, 1), Range("C2,C7:C10"))
lp,
Matjaž Prtenjak
Administrator
hosta90
Prispevkov: 12
Pridružen: So Jul 24, 2010 5:19 pm

Re: Multi area range

Odgovor Napisal/-a hosta90 »

Deluje tako kot mora.

Najlepša hvala!
Odgovori