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

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: 22265_vypis_hodnoty_z_pojmenovane_oblasti.zip (14kB, staženo 28x)

Jméno
Kontrola
Text
	Ukázka

---

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: 22272_vypis_hodnoty_z_pojmenovane_oblasti_2.zip (15kB, staženo 31x)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse