MS Excel

Mal by niekto vysvetlenie k nasledujúcemu?Sub test1()
Dim varray As Variant

'zretazenie hodnot v stlpci
'toto funguje
varray = Application.Transpose(Range("a11:a13"))
varray = Join(varray, "-x-")
MsgBox varray

'zretazenie hodnot v riadku
'aj toto funguje
varray = Application.Transpose(Application.Transpose(Range("a11:e11")))
varray = Join(varray, "-x-")
MsgBox varray

'zretazenie hodnot v riadku
'toto nefunguje: preco?
varray = Range("a11:e11")
varray = Join(varray, "-x-")
MsgBox varray

End Sub

Zaslat odpověď >

kp57(24.9.2014 20:31)#021648

No podle mě, když je pole naplněno Range, tak vznikne dvourozměrné pole něco jako:
pro řádek "vArray(1 To 1, 1 To 5)"
pro sloupec "vArray(1 To 5, 1 To 1)".
A "Join" asi potřebuje "vArray(1 To 5)".
No a to dokážeme těma Transpozicema. Si myslím.
U column stačí jedna Transpozice na řádek, a Row prvni na column a pak zpět na řádek.citovat

AL(24.9.2014 21:21)#021650

Ďakujem. Asi to tak nejak bude, i keď mám trochu problém pokladať
vArray(1 To 1, 1 To 5)
za dvojrozmerné pole

citovat

kp57(24.9.2014 21:25)#021651

Zkus
MsgBox UBound(vArray)
MsgBox UBound(vArray, 2)citovat

AL(24.9.2014 21:29)#021652

jj, ja viem, ale hlava to odmieta akceptovať. Proste, blok buniek buď s jedným riadkom, alebo s jedným stĺpcom by som radšej videl ako jednorozmerné pole, ale je to tak, ako to je, moje želanie na tom asi nič nezmení. Dík ešte raz.citovat

Téma: Join-Transpose-Transpose

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka