Zdravim,
Je nejaka cesta jak spojit 2 dvourozmerna pole? (x,14)
Jde v podstate o dve nactene tabulky x radky, 14 sloupcu.
Je treba je spojit aby sly zasebou.
Nemohu pole nacist v definici(14,x) nebot vzhledem ke zdrojovym datum narazim na omezeni funkce transpose.
Za pripadnou pomoc dekuji.
Excel VBA spojeni dvou dvourozmernych poli
Moderátor: Mods_senior
- Branscombe
- Level 3

- Příspěvky: 469
- Registrován: 11 čer 2009 21:39
Re: Excel VBA spojeni dvou dvourozmernych poli
Jde, jde skoro všechno, ale nějaký názorný příklad by pomohl. Zadání vs požadovaný výsledek.
Re: Excel VBA spojeni dvou dvourozmernych poli
Nešlo by to třeba takhle?
pole1(x1,14)
pole2(x2,14)
dim pole3(lbound(pole1,1),(ubound(pole1,1)-lbound(pole1,1) + 1) + (ubound(pole2,1) - lbound(pole2,1)+1)
for i=lbound(pole1,1) to (ubound(pole1,1)
for j=1 to 14
pole3(i,j)=pole1(i,j)
next j
next i
for i=ubound(pole1)+1 to (ubound(pole2,1) - lbound(pole2,1)+1)
for j=1 to 14
pole3(i,j)=pole(i,j)
next j
next i
pole1(x1,14)
pole2(x2,14)
dim pole3(lbound(pole1,1),(ubound(pole1,1)-lbound(pole1,1) + 1) + (ubound(pole2,1) - lbound(pole2,1)+1)
for i=lbound(pole1,1) to (ubound(pole1,1)
for j=1 to 14
pole3(i,j)=pole1(i,j)
next j
next i
for i=ubound(pole1)+1 to (ubound(pole2,1) - lbound(pole2,1)+1)
for j=1 to 14
pole3(i,j)=pole(i,j)
next j
next i
diky všem za rady
Re: Excel VBA spojeni dvou dvourozmernych poli
...mimochodem limit funkce Transpose je 5461 prvků v dvourozměrném poli (v matici).
diky všem za rady
-
- Podobná témata
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 7 Odpovědi
- 6354 Zobrazení
-
Poslední příspěvek od vasekpetr1
-
- 2 Odpovědi
- 14499 Zobrazení
-
Poslední příspěvek od Snekment
-
- 1 Odpovědi
- 7421 Zobrazení
-
Poslední příspěvek od atari
-
- 5 Odpovědi
- 6222 Zobrazení
-
Poslední příspěvek od lubo.
-
- 5 Odpovědi
- 6006 Zobrazení
-
Poslední příspěvek od atari

