Příspěvky uživatele

Do oblasti hodnôt text asi nedostaneš, ale pokiaľ sú v danom poli(stĺpci) iba texty, tak čo to pretiahnuť do oblasti riadkov v KT?

Ahoj, nie je nutné triediť.
stĺpec A - kraj
stĺpec B - obec
stĺpec C - počet obyvyteľov
stĺpec D - poradie
záznamy v riadkoch 2-100

--------------------------

triedenie, kedy obec s najvyšším počtom obyvateľov má poradie 1:
=SOUČIN.SKALÁRNÍ(--(($A$2:$A$100=A2)*$C$2:$C$100>=C2))

alebo maticovým zápisom:
=SUMA(($A$2:$A$100=A2)*($C$2:$C$100>=C2))

----------------------------

triedenie, kedy obec s najnižším počtom obyvateľov má poradie 1:
=SOUČIN.SKALÁRNÍ(--(A2=$A$2:$A$100))-SOUČIN.SKALÁRNÍ(--(($A$2:$A$100=A2)*$C$2:$C$100>C2))

alebo maticovým zápisom:
=SUMA(--($A$2:$A$100=A2))-SUMA(($A$2:$A$100=A2)*($C$2:$C$100>C2))

@ opičák: slušné :)

povedzme, že to začína na riadku 1, potom:
do pomocného stĺpca si daj vzorec =MOD(ŘÁDEK();50)
skopíruj do všetkých riadkov
zapni automatický filter pre nulu

prípadne vzorec nahraď hodnotami a zotrieď, predtým si ale vytvor ešte ďalší pomocný stĺpec pre pôvodné poradie riadkov

Debug.Print ActiveWorkbook.BuiltinDocumentProperties(12)

to nedám, určite nie teraz :(

No, príde mi to dosť triviálne, až mám neblahé tušenie, či som to nepochopil nejak špatne. Prehodenie osí urobíš jednoducho tak, že klikneš dografu, potom na kartu návrh a vyberieš na záložke Data Prepnúť riadok či stĺpec (Excel2007). Výsledok posielam, ale ako som upozornil, skôr si myslím, že toto si asi nechcel..

Do žltých buniek som doplnil nejaké pomocné výpočty.
V zelenej časti máš to, čo zrejme potrebuješ - je to robené cez podmienené formátovanie. Tie farby môžeš vymazať, sú použité len na zvýraznenie toho, kde je to formátovanie a pomocné výpočty aplikované. V archíve nájdeš verziu *.xls i *.xlsx, nemám istotu, že 2003 to formátovanie u *.xls pochopí

Ten obrázok asi nie je vytvorený v aplikácii Excel (súdim podľa menu, ale je možné, že to šikula vymyslel v Exceli a upravil i menu, nevylučujem to). Pokiaľ to chceš replikovať v exceli, tak ma napadajú 2 možnosti.
1. Do listu si vložíš zaoblené obdĺžniky, ktoré nájdeš medzi automatickými tvarmi. Upravíš výplň a pri podržaní alt zarovnáš k okrajom buniek. Medzi jednotlivými tvarmi necháš prázdne stĺpce a riadky, upravíš ich šírku a potlačíš zobrazenie mriežky.
2. Druhou možnosťou je vložiť uvedené tvary do formulára.

napr. takto?

Sub zoznam()
Dim pic As Object
For Each pic In ActiveSheet.Pictures
Debug.Print pic.Name
Next
End Sub

Tak to budem len hádať...
Skús do XLSTART uložiť nejaký iný, pre tento prípad neskrytý, XLS súbor. Testni, či sa ti pri štarte Excelu tento nový otvára, pokiaľ nie, tak XLSTART nemáš nastavený ako vieš čo...

Asi by som pôvodný personal.xlsb premenoval a uložil niekam inam, z XLSTART ho vymazal a pri tej príležitosti preštudoval či v adresári XLSTART nemám niečo, čo tam mať nechcem. Pomocou záznamníka makier vytvoril nový osobný zošit makier a doňho potom nakopíroval kódy z jednotlivých modulov pôvodného personal. Možno by zafungoval i import modulov, ale to kopírovanie mi príde spoľahlivejšie.
Asi budú existovať i iné spôsoby, ako to fixnúť, ale mnou navrhovaným pmn nemôžeš nič pokaziť

Na to, ako vytvoriť hyperlink na graf, som neprišiel, ale dá sa to obísť takto:
do zvolenej bunky zapíšeš názov toho grafu, t.j. napr. do bunky B6 napíšeš Graf1. Do kódového okna listu napíšeš potom udalostnú procedúru v tvare:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "Graf1" Then Sheets(Target.Value).Select
End Sub
Pokiaľ klikneš na bunku B6, aktivuje sa ti Graf1
Do ďalších buniek si môžeš zapísať postupne ostatné názvy grafov. Nebudú to síce hyperlinky, ale bude sa to chovať podobne, a pokiaľ tam nastavíš nejaké vhodné formátovanie, tak na prvý pohľad to bude ako hyperlink i vyzerať.

to si chlapec dorobí :) nemusí to dávať do jednej bunky, stačí tú funkciu upraviť, ako argument zadať oblasť a v cykle to na začiatku zreťaziť,
eventuálne, vytvoriť novú funkciu na zreťaznie, a jej výsledok potom použiť ako argument jednej z tých, ktoré sme už napísali :)

marjan, ešte ma napadlo, že nemusíš logaritmovať (i keď, teda, fakt klobúk dolu), ale stačí zisťovať dĺžku jednotlivých reťacov ktoré získaš tým splitom, čiže šlo by to takto: Public Function ZistiMod(bunka As Range) As Long
Dim a, i As Integer
a = Split(bunka, "0")
ZistiMod = 0
For i = LBound(a) To UBound(a)
If Len(a(i)) > ZistiMod Then ZistiMod = Len(a(i))
Next i
End Function

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje