Příspěvky uživatele
< návrat zpět
Ten kód je hodne prazvláštny, kopíruje bunku po bunke, ale budiž.
Skús nahradiť časť kódui = 0 ' ofset sloupcu na cilovem listu
On Error GoTo Err1
Set ZdrojList = ZdrojSoubor.Worksheets("Směr tam")
LastRowZdrojList = ZdrojList.Cells(ZdrojList.Rows.Count, 1).End(xlUp).Row
On Error GoTo 0
Set ZdrojOblast = ZdrojList.Range("A5:B" & LastRowZdrojList)
For Each c In ZdrojOblast.Cells
CilOblast.Offset(j, i).Value = c.Value
If i < 1 Then
i = i + 1 ' dalsi sloupec na cilovem listu
Else
i = 0
j = j + 1 ' dalsi radek na cilovem listu
End If
Next cza i = 1 ' ofset sloupcu na cilovem listu
On Error GoTo Err1
Set ZdrojList = ZdrojSoubor.Worksheets("LIST1")
LastRowZdrojList = ZdrojList.Cells(ZdrojList.Rows.Count, 1).End(xlUp).Row
On Error GoTo 0
Set ZdrojOblast = ZdrojList.Range("A5:B" & LastRowZdrojList)
For Each c In ZdrojOblast.Cells
If i = 1 Then CilOblast.Offset(j, 0).Value = ZdrojList.Range("A1").Value
CilOblast.Offset(j, i).Value = c.Value
If i < 2 Then
i = i + 1 ' dalsi sloupec na cilovem listu
Else
i = 1
j = j + 1 ' dalsi radek na cilovem listu
End If
Next c Pokiaľ to nebude fungovať, tak sa naučíš, že je lepšie vkladať rovno prílohu, ja ju tvoriť nebudem :)
toto pravdepodobne fungovať nebude:ImportDir = "c:UserspepaDocumentspokusy222" ' cesta k souborum
Malo by to byť pmn:"c:\UserspepaDocumentspokusy222\"
Pavlus: A k čomu to potrebuješ? To sa predsa dá spočítať, akurát človek nesmie chcieť pečené holuby priamo do ústneho otvoru a musí trochu zapojiť hmotu v guli na krku.
pozn. pôvodný príspevok som zmazal, v súbore v prílohe som našiel nejednu chybu, takže posielam znovu, ale chyby nevylučujem, treba odskúšať..
Porovnaním s jezovým riešením sa na prvý pohľad zdá, že by to snáď počítať správne mohlo.
Já ne, protože to ovlivňuje celý list.
Iste, je to v prvom rade vždy o designe listu. Pokiaľ nuly vidieť nechcem, tak si na sheet dám len prípady, kedy nuly naozaj vidieť nechcem.
Každopádne, riešení je viacero, stačí si vybrať..
nejaký tip, čo znamená Google? :)
Síce to chceš makrom, ale napriek tomu zmienim copy, paste special, transpose a nasledne odstrániť duplicity
Pokiaľ makrom, tak napr. zapísať hodnoty z riadku do poľa (vektoru), následne z jednotlivých položiek poľa vytvoriť objekt Collection a cez key ošetriť elimináciu duplicít.
to nebolo poradie, ale možnosti riešenia :)
Osobne preferujem potlačenie zobrazenia núl.ActiveWindow.DisplayZeros = Falseeventuálne ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
1. Funkcia IF
2. Potlačiť zobrazenie núl
3. Vlastný formát (zbytočné)
to jezovo riešenie nevidím, tvári sa, že súbor je poškodený, ale stačí vytvoriť ideálne XL Tables a dynamicky nad nimi nadefinovať oblasti
1. Table bude obsahovať jeden stlpec - Kriterium1
2. Table bude mať 2 stĺpce - Kriterium1 a Kriterium2
3. Table opäť 2 stĺpce - Kriterium2 a Kriterium3
Všetky 3 tabuľky bez duplicitnych dat.
Dynamické oblasti - pomenované oblasti nad Tables 1 až 3.
Takže, tušil, ale tvoriť to nebudem, stačí mi, že viem, ako na to a pokiaľ sa posnažíš, tak na základe hore uvedených pointov to dáš i sám. Párkrát som to použil, ale nemám vzor, ktorý by som mohol publikovať, musel by som to vytiahnuť z nejakého živého riešenia po tom, čo by som z neho odstránil citlivé dáta, to sa mi nechce.
edit: Tak sa mi podarilo zobraziť to riešenie od jeza
@ jeza: k naplneniu "zoznamu" neduplicitnými hodnotami je vhodné využiť object collection a duplicitu ošetrovať cez key, len námet na zamyslenie
kopírovať je možno i priamo zdrojové data, t.j. vybrať c1:c10, ctrl+c, kliknúť do grafu ctrl+v, na záver ešte upraviť hodnoty osy x u druhej (takto nakopírovanej) série
Vzorec áno (i keď ani to nemusí platiť stopercentne), ale možno sa nemá jednať o vzorec...ActiveSheet.ListObjects("tabPok").ListColumns("oddělení").Range.Cells(21, 1).Value = 9
WOW!? Prečo písať script na niečo, čo zvládne rozšírený filter? Resp. prečo nepoužiť za základ scriptu v tomto prípade práve rozšírený filter?
Btw, ten kód v úvode vlákna je chybný (Range("K2:1000")) a i po oprave range určite nerobí to, čo popisuješ, že akože robí..
Zhrnul by som to nasledovne: Pýtal si sa, či to ide a za riešenie si ochotný zaplatiť (čo je určite chválihodné, pokiaľ niekto chce platiť za prácu niekoho iného). Dostalo sa ti odpovede - ide to, ako uviedol Pavlus. Problém je v tom, že Excel/VBA poskytuje prakticky nulovú ochranu proti zobrazeniu zaheslovaného obsahu. Na to ťa upozornil Petr. Ty si rozčarovaný a máš dojem, že niekto tvoj nápad torpéduje (lidi hážou rameny, kritizují atd.). Ja sa naopak domnievam, že Petr ťa korektne upozornil na úskalia domnelej ochrany tvojho projektu. Nebudem hodnotiť Pavlusove schopnosti, ten kód je určite schopný napísať. Za to, že obsah nebude dostatočne chránený, sa však na Petra nehnevaj. To si vykomunikuj s MS, že ti dodáva SW, u ktorého požaduješ (a domnievaš sa zrejme, že si si jeho zakúpením zaplatil i) ochranu dát, ale asi neuspeješ; nie je mi známe, že by MS uvádzal u Excelu, že v ňom sú data heslom dostatočne chránené, naopak, upozorňuje, že tomu tak nie je. Petr tu nepotrebuje na nikoho robiť ramená, jeho znalosti hovoria samé za seba a osobne som rád, že sem naďalej prispieva a poskytuje bezplatnú pomoc. Jeho príspevky majú ďaleko väčšiu cenu než povzdychy ukrivdencov, ktorým niekto napíše, že ich nápad je odsúdený k neúspechu.
pekný vzorec, chválim
Ja si sem ego honiť nechodím, to sa pletieš. Excel ma baví, rád sa dozviem nové postupy, občas tu i pomôžem, niekedy chodím po radu sám. Pokiaľ napíšem, že je niečo nezmysel, alebo špatne, znamená to podľa teba, že si honím ego / otieram sa o dotyčného. Ok, rozumiem a odteraz budem menovite teba iba chváliť. Myslíš, že ti to pomôže? Si starší človek, no a čo? Pmn o moc starší odo mňa, pokiaľ vôbec, nebudeš. Vek je nejaký problém? To snáď nemyslíš vážne..
pokiaľ zmieňujem zločin, tak je z kontextu zrejmé, že sa jedná o nadsázku, alebo nie? :)
Problém je, ako píšeš, že je to po ruke a užívateľ nedomyslí hneď dôsledky.
Textbox je vhodný, pokiaľ potrebuješ zlúčenie buniek obísť. Ja samozrejme tiež zlučovanie občas použijem, určite ale nepatrí do záhlaví tabuliek so vstupnými hodnotami, do datových listov atd. V prípade nejakých prehľadov, prosím, tam to asi nebude až taký problém, pokiaľ sa následne už s danými prehľadmi nijako nemanipuluje nejakým VBA scriptom apod. Je to na dlhú debatu, nemyslím si, že sa my dvaja v tomto nejakým spôsobom zásadne odlišujeme, moja poznámka sa týkala najmä užívateľov/prípadov, ktorí netušia, že okrem zlučovania buniek je možnosť zarovnania na stred výberu atd..
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články