< návrat zpět

MS Excel


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

Zaslal/a 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: zip22265_vypis_hodnoty_z_pojmenovane_oblasti.zip (14kB, staženo 28x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#022267
avatar
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
#022272
avatar
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: zip22272_vypis_hodnoty_z_pojmenovane_oblasti_2.zip (15kB, staženo 31x)
citovat
icon #022273
eLCHa
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
#022287
avatar
el.CHa- to je ono ! Velice děkujicitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46

vrácené hodnoty

Anonym • 22.5. 15:45