MS Excel

Dobrý den, potřeboval bych upravit tento řádek o promněné

Sheets("2").Cells(2, 2) = "=List1!R[0]C[-1]"

abych promněnou U mohl zanést ve své podstatě takto:

Sheets("2+U").Cells(2, 2) = "=List1!R[0+U]C[-1]"

aby výsledkem bylo (pro U = 1):

Sheets("3").Cells(2, 2) = "=List1!R[1]C[-1]"

Zaslat odpověď >

Palooo(18.6.2015 13:55)#025600

skuste toto:
dim z(1) as string
dim u as integer

u = 1
z(0) = u
z(1) = 2 + u

Sheets(z(1)).Cells(2, 2) = "=List1!R[" & z(1) & "]C[-1]"

netestoval som to ale keby ste davali do sheetu integer tak by to bralo ID sheetu a nie jeho nazov.

preto aj take riesenie som dalcitovat

vasekp(18.6.2015 14:22)#025601

děkuji, jdu to vyzkoušet!
nějak se to snažím dát dohromady ale asi tomu nerozumím :D
potřebuju abych mohl nastavit for cykl a proměnná U mi běžela třeba do 20
tak, že mi to do B2 na listu 2 zapíše odkaz na zákl. list na bunku (např) D4 >>> v dalším cyklu zapíše na list 3 do bunky B2 odkaz na bunku D5 >>> atd atdcitovat

vasekp(18.6.2015 14:47)#025602

(nepochopil jsem přesné fungování tohoto:

u = 1

z(0) = u

z(1) = 2 + u

)citovat

Palooo(18.6.2015 14:53)#025603

to su len premenne
z je premena ktora nesie dva udaje z(0) a z(1)

preto to tak je lebo z integeru robim string aby vedel system ze sa nejedna o ID sheetu ale o nazov sheetu preto to tak je

v cyklu by to vypadalo asi takto:
dim z(1) as string
dim u as integer

for u = 1 to 100
z(0) = u
z(1) = 2 + u

Sheets(z(1)).Cells(2, 2) = "=List1!R[" & z(1) & "]C[-1]
next
"citovat

vasekp(18.6.2015 15:09)#025604

vyřešeno
děkuji za pomoc :)citovat

marjankaj(18.6.2015 15:11)#025605

For u = 1 to 20
Sheets(CStr(u+2))..Cells(2, 2) = "=List1!R[" & u & "]C[-1]"
Nextcitovat

Palooo(18.6.2015 15:13)#025606

marjankaj napsal/a:

For u = 1 to 20
Sheets(CStr(u+2))..Cells(2, 2) = "=List1!R[" & u & "]C[-1]"
Next

vidiet ze uz starnem :)) a komlikujem si vecicitovat

vasekp(25.6.2015 15:51)#025697

marjankaj napsal/a:

For u = 1 to 20
Sheets(CStr(u+2))..Cells(2, 2) = "=List1!R[" & u & "]C[-1]"
Next

Ještě bych měl dotaz jak do té části "(CStr(u+2))" vecpat znak d (tak aby to vybralo list 1d 2d 3d a pod, mně ty složené záležitosti zatím moc nejdou :( díky :Dcitovat

marjankaj(25.6.2015 18:47)#025701

Sheets(CStr(u+2) & "d").Cells(2, 2) = "=List1!R[" & u & "]C[-1]"citovat

Téma: úprava řádku z VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje