< návrat zpět

MS Excel


Téma: úprava řádku z VBA rss

Zaslal/a 18.6.2015 13:33

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

#025600
avatar
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
#025601
avatar
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
#025602
avatar
(nepochopil jsem přesné fungování tohoto:

u = 1

z(0) = u

z(1) = 2 + u

)citovat
#025603
avatar
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
#025604
avatar
vyřešeno
děkuji za pomoc :)citovat
#025605
avatar
For u = 1 to 20
Sheets(CStr(u+2))..Cells(2, 2) = "=List1!R[" & u & "]C[-1]"
Nextcitovat
#025606
avatar

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
#025697
avatar

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
#025701
avatar
Sheets(CStr(u+2) & "d").Cells(2, 2) = "=List1!R[" & u & "]C[-1]"citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09