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

Příspěvky uživatele

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.

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

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

Palooo, jedná sa o referenciu na Access, stačí do googlu dať F3Dynamic a prehliadač vráti spústu odkazov, v ktorých sa to rieši

akorát je to dost krkolomné
Pokiaľ prídeš na niečo jednoduchšie a budeš mať chuť s riešením sa podeliť, rád sa nechám poučiť
Ja by som preferoval v popisku okrem názvu exitu i jeho vzdialenosť, tu je malý pokus o vylepšenie

Než si sem dal prílohu, niečo som vytvoril, takže posielam pre inšpiráciu, dotiahneš si už sám.

V grafe je použitá pomocná datová sada (Series2). Tá je sformátovaná tak, že nie je viditeľná čiara ani jednotlivé body. Sú u nej zobrazené akurát popisky, ktoré sú zeditované a upravené. Klikni si myškou napr na popisok exit1 (musíš 2x, aby si vybral iba jeden popisok, nie celú sadu) a v riadku vzorcov uvidíš, odkiaľ sa popisok ťahá. Dosť krkolomne sa to vysvetľuje, chce to poznať pár trikov a mať s tým trochu praxe

pokus

Tá vzdialenosť má byť vynesená na ose Y? V tom prípade by sa pravdepodobne nejednalo o XY graf, ale o čiarový graf s potlačením zobrazenia samotnej čiary, iba so zobrazením jednotlivých bodov...
edit: píšeš, že na ose X majú byť vzdialenosti jednotlivých Exitov, akurát nemajú byť zobrazené čísla, ale názvy Exitov. Čo má byť na ose y?

alebo takto:
v tabulke2 si zmeň stĺpec H na =Tabulka1[@ID]
do kódového okna listu nakopíruj:Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLoOne As ListObject, myLoTwo As ListObject
Set myLoOne = ListObjects("Tabulka1")
Set myLoTwo = ListObjects("Tabulka2")
If Not Intersect(Target, myLoOne.Range) Is Nothing Then
With myLoTwo.ListRows
Do While myLoOne.ListRows.Count > .Count
.Add
Loop
Do While myLoOne.ListRows.Count < .Count
.Item(.Count).Delete
Loop
End With
End If
Set myLoOne = Nothing
Set myLoTwo = Nothing
End Sub

rado sa stalo
písal som, že je treba preštudovať vlastnosti a metódy daného objektu a páč viem, že si kluk šikovný, vôbec som nepochyboval o tom, že si to dotiahneš

možná príčina: chybovú hlášku variable not defined kód hádže v prípade, keď je nastavená povinná deklarácia premenných (Option Explicit na začiatku modulu) a daná premenná nie je zadeklarovaná. Takže, buď zrušiť Option Explicit, t.j. vymazať z kódu túto inštrukciu, alebo čistejšie riešenie - danú premennú zadeklarovať.
Prílohu som neštudoval, ani nebudem.

edit: Zvedavosť mi nedala a prílohu som otvoril. Je to tak, ako píšem vyššie: Pri povinnej deklarácii premenných je potrebné zadeklarovať premennú PdfPath:
Dim PdfPath (as String), časť v zátvorkách by tam byť mala, ale nemusí, v tom prípade bude PdfPath zadeklarovaná ako Variant.

Nie len v 2013, excel tables existujú v 2010, som si skoro istý, že i v 2007 (v predošlých verziách neviem) :)

Dá sa nejako takto, posielam len ako inšpiráciu, moc som to nedoťahoval k dokonalosti :Sub TEST()
Dim myLo As ListObject, myRng As Range, i As Byte
Set myLo = ActiveSheet.ListObjects("TB_JMENA")
For i = 1 To myLo.ListRows.Count
Set myRng = Intersect(myLo.ListRows(i).Range, myLo.ListColumns("CELE JMENO").Range)
MsgBox myRng
Next i
Set myLo = Nothing
Set myRng = Nothing
End Sub


edit: názvy stĺpcov zistiť napr. For Each Cell In myLo.HeaderRowRange
MsgBox Cell
Next Cell
zapísať do nejakého poľa a potom z tohto poľa volať..

Proste, celé je to o tom, preskúmať objekt ListObject a jeho vlastnosti a metódy

Nevíš v čem je problém?
No v čom asi tak bude problém? Ten formulár je proste príliš veľký, musíš si ho vo VBE zmenšiť

@eLCHa:
btw:
proč Vás to tak zajímá ;)
Asi málo iných impulzov k premýšľaniu :). Hovorím si, že to určite nebude nič zložité, keď sa to zobrazuje v príspevkoch rôznych užívateľov; niečo ma potom núti klásť si stále dokola otázku, ako je možné, že na pravdepodobne triviálnu vec nedokážem prísť :)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse