MS Excel

Téma: pole

Zaslal/a lopi007 9.5.2017 17:10

Hoj lidičkové,
netušíte někdo kde dělám chybu? Mám tento kód:

Dim posledniSloupec
posledniSloupec = Worksheets("vyrizene_uvery").Cells(6, Columns.Count).End(xlToLeft).Column
Dim oblast As Range
Set oblast = Worksheets("vyrizene_uvery").Range("kl_1_vyrizeneUvery").Offset(14, posledniSloupec)
Dim kl_1_vyrizeneUvery() As Variant
kl_1_vyrizeneUveryPole = Worksheets("vyrizene_uvery").Range("B6", Cells(oblast.Row, oblast.Column))

Nemohu se dopátrat toho jak nahraji do dvourozměrného pole oblast buněk, tak aby na indexu(i) arr(i,y) byly řádky a na indexu (y) byly sloupce

Zaslat odpověď >

xlnc(9.5.2017 19:13)#036282

U polí je problémů víc než dost (a přesto se vyplatí). Jednoduše, pokud potřebujete pole, nebo spíš oblast "překlopit", použijte jednou nebo dvakrát WorksheetFunction. Transpose (nebo si holt v cyklu pole přešrotujte).citovat

elninoslov(10.5.2017 9:08)#036298

Čo obsahuje, kam odkazuje, pomenovaná oblasť ?Range("kl_1_vyrizeneUvery")
a návazne aj "oblast"... nerozumiem tomu posunu, vzájomnej pozícii týchto 2 oblastí a následnej veľkosti.
Pole definujete ako
kl_1_vyrizeneUvery() As Variant
ale priraďujete do nedefinovanej premennej
kl_1_vyrizeneUveryPole

Skúste uviesť nejaký príklad dát. To musí ísť, aj keď niekedy nastanú "nezmyselné" problémy ako písal xlnc.citovat

lopi007(13.5.2017 0:07)#036322

díky kucí za rady, ale už je to vyřešeno

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.