MS Excel

Téma: Join-Transpose-Transpose

Zaslal/a AL 24.9.2014 15:15

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

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.