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
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
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
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
MINI PC spojeni z internim HDD 3,5 ze stareho PC Příloha(y)
od Veroniqua » 20 srp 2023 08:53 » v Vše ostatní (hw) - 10
- 1634
-
od Veroniqua
Zobrazit poslední příspěvek
20 srp 2023 09:33
-
-
-
Vypínaní spojení mezi mobilem reprákem.
od nulka » 08 říj 2023 14:06 » v Mobily, tablety a jiná přenosná zařízení - 0
- 3735
-
od nulka
Zobrazit poslední příspěvek
08 říj 2023 14:06
-
-
-
Nejde nastavit vyšší rychlost spojení než 100/100 (Mbps) Příloha(y)
od Kubista33a » 24 kvě 2023 12:06 » v Sítě - hardware - 8
- 1740
-
od ITCrowd
Zobrazit poslední příspěvek
25 kvě 2023 22:55
-
-
- 4
- 747
-
od petr22
Zobrazit poslední příspěvek
11 čer 2023 13:51
-
- 12
- 2182
-
od amirinda
Zobrazit poslední příspěvek
14 říj 2023 16:39
Kdo je online
Uživatelé prohlížející si toto fórum: Seznam[Bot] a 4 hosti