Příspěvky uživatele
< návrat zpět
[/quote]
PavDD napsal/a:
Jen moc nechápu , jak jste docíli toho, že podle vybraného počtu buňek, To pěkně ukládá do listu 2, pod sebe.
j = 1
For i = 0 To velikostArrBunka
Worksheets("List2").Range("A" & j & ":H" & j).Value = Range("A" & arrBunka(i, 0) & ":H" & arrBunka(i, 0)).Value
j = j + 1
Next i
Počítadlo "j" určuje na který řádek se bude zapisovat výsledek. ¨Nejdříve jej nastavím na číslo 1. Tzn. při prvním průchodu cyklem se zapíše výsledek na řádek 1.
Přičtu 1 (j = j+1). Při dalším průchodu cyklem se zapíše na řádek 2. atd.
Worksheets("List2").Range("A" & j & ":H" & j).Value Tento kód určuje, do kterého řádku se zapisuje. Pokud za "j" dosadím postupně čísla, tak to pak bude takto:Worksheets("List2").Range("A1:H1).Value
Worksheets("List2").Range("A2:H2).Value
Worksheets("List2").Range("A3:H3).Value Když si na začátku nastavím třeba j = 10, tak to začne zapisovat od řádku č.10.
Žádný soubor jste nevložil, pokud jste to měl v plánu. Pokud se jedná o excel s makrem, musí se nejdřív zazipovat
Příklad navázaný na první dotaz:
Označím si nějaké buňky. Předpokládám, že to znamená to, že zmáčknu Ctrl a postupně kliknu na buňky B2, D5, G9 (např.)
Mám tedy označené buňky B2, D5, G9.
Po stisknutí tlačítka (v přiloženém souboru) se obarví řádky 2,5,9 a sloupce B,D,G.
Dále se zkopírují buňky A:H v řádcích 2,5,9 do List2.
Jak říkám, nevím, co přesně s tím chete dělat, ale adresy jednotlivých vybraných buněk jsou načtené v poli a s tím pak už jde dělat cokoliv.
Nejlépe, když přiložíte svůj konkrétní příklad a co přesně máte v plánu.
Tímto zjistím postupně adresu všech označených buněk. Pak s tím lze libovolně pracovat.
Sub kteraBunka()
Dim Bunka As Range
For Each Bunka In Selection
MsgBox "Řádek je " & Bunka.Row & vbCrLf & "Sloupec je " & Bunka.Column
Next Bunka
End Sub
Když to nakopírujete do procedury
Private Sub jmenoTlacitka_Click() tak není potřeba nic měnit, pokud vám vyhovují nastavené barvy.
To přece nemůže fungovat.
výsledkem funkce COUNTIF je číslo. Ale funkce POZVYHLEDAT na tom místě potřebuje oblast, kterou má prohledávat.
Předpokládám, že máte nějaký plán a nefunguje vám.
Dejte soubor s tabulkou a řekněte co chcete. Bude to plodnější.
funkce countif: jsem např. na řádku 25. Funkce se podívá do sloupce "Barva tyče" na řádek 24 a spočítá, kolik těchto barev je v sloupci PF od řádku 9 do řádku 24
Nebud eto tím, že soubory v adresáři Veselý mají dvojitou příponu:
abcdef.xlsx.xlsx
abcdefg.xlsx.xlsx
Schválně jsem to vyzkoušel a mě to funguje normálně. Zapíši 1. a roztáhnu dolů a napíše správně třeba do 50.
Zřejmě Vám to bere jako měsíc. Zkuste upravit formát buňky na číslo. Mě to funguje na formátu buňky obecný.
Může to být třeba takto?
Jak píše @elninoslov, nejjednodušší je rozkopírovat vzorec s C3. Řekl bych, že za tím dotazem bude ještě něco jiného. Tady pár tipů, které opět navazují na předchozí příspěvek:
=NEPŘÍMÝ.ODKAZ(ODKAZ(ŘÁDEK(B3);2))-NEPŘÍMÝ.ODKAZ(ODKAZ(ŘÁDEK(B3)-1;2))=B3 - POSUN(B3;-1;0)=POSUN(C3;0;-1) - POSUN(C3;-1;-1)
Jewstli jsem to pochopil, tak třeba takto?
Mě napadlo toto:
=CONCAT("Jistina -";IFERROR(ČÁST(P11;NAJÍT(" NE 1 ";P11)+5;NAJÍT(" 0 21 ";P11)-(NAJÍT(" NE 1 ";P11)+5));""))
Ověření dat reaguje jen na zadávání z klávesnice, ne na výsledek vzorce.Proto je ověření dat nutno přiřadit buňkám C43, E43 a C45, E45.
V řádku 43 jsem limyty zadal přímo do ověření dat.
V řádku 45 jsem zadal limity do sloupce J a K na které se v ověření dat odkazuji. Umožní to měnit jednoduše limity bez zásahu do ověření dat.
robo napsal/a:
...mam problem ze ked mam vzorec v uvedenej bunke ...
Nějak nechápu co tím chtěl básník říct a opravdu to není jazyková bariéra
Jaký vzorec a v jaké buňce? Řekl bych, že bez přílohy se nepohneme dál. Zaregistrujte se a vložte přílohu s tím co vám nefunguje.
Nevím, jestli jsem to dobře pochopil. Viděl bych to takto:
=IFERROR(ČÁST(P11:P11;NAJÍT(" Jistina - hotovost převzata = ANO / NE 1";P11:P11)+1;NAJÍT(" 0 21 ";P11:P11)-NAJÍT(" Jistina - hotovost převzata = ANO / NE 1";P11:P11)-1);"")
Tu poslední větu nechápu už vůbec 
Uživatelské menu
\nMenu
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.
RSS nejnovější články