Excel VBA spojeni dvou dvourozmernych poli

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

honzZ
nováček
Příspěvky: 1
Registrován: březen 11
Pohlaví: Nespecifikováno
Stav:
Offline

Excel VBA spojeni dvou dvourozmernych poli

Příspěvekod honzZ » 16 bře 2011 13:07

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.

Reklama
Uživatelský avatar
Branscombe
Level 3
Level 3
Příspěvky: 469
Registrován: červen 09
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA spojeni dvou dvourozmernych poli

Příspěvekod Branscombe » 16 bře 2011 13:48

Jde, jde skoro všechno, ale nějaký názorný příklad by pomohl. Zadání vs požadovaný výsledek.

Uživatelský avatar
vonv
Level 1
Level 1
Příspěvky: 93
Registrován: leden 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA spojeni dvou dvourozmernych poli

Příspěvekod vonv » 22 bře 2011 21:47

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
diky všem za rady

Uživatelský avatar
vonv
Level 1
Level 1
Příspěvky: 93
Registrován: leden 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel VBA spojeni dvou dvourozmernych poli

Příspěvekod vonv » 23 bře 2011 14:45

...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
  • Fúze dvou PC
    od Luis » 10 čer 2023 15:04 » v Rady s výběrem hw a sestavením PC
    4
    747
    od petr22 Zobrazit poslední příspěvek
    11 čer 2023 13:51
  • Scan a tisk u dvou tiskáren
    od amirinda » 14 říj 2023 06:49 » v Vše ostatní (sw)
    12
    2182
    od amirinda Zobrazit poslední příspěvek
    14 říj 2023 16:39

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Seznam[Bot] a 4 hosti