MS Excel

Téma: VBA-zapsání pomocí názvu oblasti buněk

Zaslal/a kristv 9.11.2014 17:26

Dobrý den, Prosím o pomoc. Mám pojmenovanou oblast názvem. Ve VBA potřebuji zapsat hodnoty do lokální proměnné pomocí tohoto názvu. V příloze - modulu - upřesňuji problém. Velice děkuji za ochotu. Vladimír Krist

Příloha: zip

22265_vypis_hodnoty_z_pojmenovane_oblasti.zip (14kB, staženo 29x)

Zaslat odpověď >

Dingo(9.11.2014 19:31)#022267

Mohlo by fungovat tohle:
ReDim Docasna_promenna(Range("Zkratky").Cells.Count - 1)
For i = 1 To Range("Zkratky").Cells.Count
Docasna_promenna(i - 1) = Range("Zkratky").Cells(i).Value
Next i
citovat

kristv(10.11.2014 6:19)#022272

Dingo - moc díky. Funguje. Prosím ještě o drobnost (pro Vás). Rozšířil jsem počet sloupců v názvu oblasti. Nyní mám v lokální sice všechny hodnoty, ale každou v jednom řádku. Prosím, šlo by do lokální dostat stejný počet řádků a sloupců s hodnotami, jako je v názvu oblasti? blíže v modulu.Moc díky

Příloha: zip

22272_vypis_hodnoty_z_pojmenovane_oblasti_2.zip (15kB, staženo 32x)

citovat

eLCHa(10.11.2014 6:29)#022273

Pokud rozumím, není třeba používat cyklus
Pro oba případy postačíDim vVals As Variant
vVals = Application.Transpose(Range("Zkratky").Value)
nebo jednodušeDim vVals As Variant
vVals = Range("Zkratky").Value
záleží jak chcete mít pole indexovanécitovat

kristv(11.11.2014 5:12)#022287

el.CHa- to je ono ! Velice děkujicitovat

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.