• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse