Příspěvky uživatele
< návrat zpět
Keď skúsite Select Case nebude to prehľadnejšie?
Sub kurz()
Dim a, b, c As Double
a = ActiveCell
b = Range("C2")
Select Case True
Case IsEmpty(a): MsgBox "Vybraná buňka musí obsahovat data!", vbExclamation
Case Not IsNumeric(a): MsgBox "Vybraná buňka musí obsahovat číslici!", vbExclamation
Case IsEmpty(b): MsgBox "Zadejte kurz.", vbCritical, "POZOR!"
Case Else: c = a * b * 1000
MsgBox Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč")
End Select
End Sub
martin-l : Volá sa to VBA (Visual Basic for Application) - v Office aplikáciách je užívateľsky zaužívané pomenovanie "makro". V makre nemôžete len tak "meniť údaje", ak neviete čo to spôsobí. Použitie makra nejde vrátiť naspäť - vtedy nefunguje Undo.
Merlin99 : Tie kritériá majú byť typu AND alebo OR? Teda zráta sa hodnota iba ak sú splnené všetky vertikálne kritériá v danom riadku (aj A aj 22), alebo stačí iba niektoré z nich (napr. iba A a 22 nie)? Lebo medzi vertikálnym a horizontálnym kritériom je AND, to je jasné.
Inak premýšľam to spraviť vzorcom s pomocou fnc MMULT namiesto makra. Mrknem na to asi až pozajtra. Zajtra som celý deň preč a teraz už idem prdieť do paplónu :)
EDIT 6:48: Ešte ma napadlo, ak je viac stĺpcov vertikálnych podmienok, tak či už v AND alebo OR, majú sa kontrolovať hľadané kritériá vo všetkých stĺpcoch ? Teda A sa kontroluje v danom riadku aj pre B6:B10 ale aj pre D6:D10? Alebo sa toto práve nesmie robiť?
Nemáte náhodou aj pôvodný súbor s použitím? Dnes sa mi už nechce vymýšľať data ...
"Mollecht" a "argddsver", na ktorý príspevok reagujete ?
Vaša príloha má 0 veľkosť. Toto ale asi nepôjde, lebo ak aj urobíte dynamický Definovaný názov a ten dáte do ListFillRange, tak ActiveX CB nedostane impulz pre reload položiek pri pridaní do zoznamu, len pri ich zmene alebo vymazaní/pridaní riadku. Čo je dosť zvláštne.
Prípadne makrom.
"přebírat" - teda opakovane? Ak áno a zároveň je podfarbenie menené manuálne, tak jedine makrom pri aktivácii List2.
Ak je to jednorázovo (ale to by malo asi byť "přebrat" a nie "přebírat"), alebo opakovane ale s podmieneným formátovaním, tak raz to skopírujte ako píše kabaka.
A nezabudnúť vo vlastnostiach buniek, ktorým má zostať možnosť zmeny, zrušiť Ochrana - Zamknúť bunky.
OT:
Na odľahčenie. Toto je asi môj najnezrozumiteľnejší popis aký som zažil. Dúfam, že si na to pospomínam čo najpresnejšie:
JA: Dobrý deň, zdravím Vás, čo sa deje?
ON: Tuto mi to voľačo vypísalo, také totok, tabuľka, jak máš hentam, to, vedľa, tuto čo je to oné, dole, tak tam to bolo. Voláký krížik či čo.
JA: Nejaké okno s chybou? Čo tam bolo napísané?
ON: Neviem, nestihol som to prečítať, lebo som to zavrel, také červené alebo biele to bolo. A už mi to aj včera vyskakovalo, len som zabudol zavolať.
JA: Pri akej príležitosti to vyskočilo, niečo ste robil alebo spustil?
ON: Nič len, jak som zapol fejsbúk, tak to vyskočilo a potom zmizlo.
Moje dedukcie plynúce aj z toho, že dotyčného (asi 65) poznám a PC som mu robil ja a jeho vyjadrovanie mi je známe. Všetko volá „tabuľka“ (okno, ikona, lišta,...) iba bývalé bublinové popup-ky z XP volá bublina, rovnako ako Centrum správ v 10. Takže to nebude tento druh správy. Bude to okno. FB ale neotvára takéto samostatné okná. Mohla by to byť aktualizácia, ale tam nieje červená a biela farba. Aktualizácie majú červenú ikonku v okne ak neprebehnú OK, ale také okno nevyskakuje samo. Krížik? Ten býva červenobiely, nemätie ho iba tá farba? Nejaká iná aplikácia červenobiela? Acrobat? Ale ten najskôr píše bublinu, ktorú som vylúčil. Pamätám si , že má len kancelársko-komunikačný základ, takže čo to môže byť? Skype? To nemá nič spoločné s FB... Aká iná aplikácia sa štartuje keď sa pripojí na FB? Žiadna. To nebude súvis s FB, ale s pripojením. Aktualizácie som vylúčil. Čo sa ešte pripája na net? Napr. AV.
JA: Nebolo tam napísané niečo o antivíre?
ON: Áno, tuším tam bolo voľačo o víruse.
JA: Eset?
ON: Áno Eset tuším, či také volačo.
A takto som prišiel na to, že mu končí licencia na AV. To je biele okno s červeným, a nieje to bublina, a zobrazí sa pri kontrole licencie pri štarte PC. Mylne vidí súvis s FB, keď sa ide po štarte hneď desocializovať.
Ten pán takto popisuje všetko. Raz som s ním išiel v aute kamsi, a naviguje :
ON: Vidíš hentam, jak je tá zastávka? Jak je ten autobus. Vidíš?
JA: Ano vidím.
N: Za ním je hneď odbočka.
JA: Dávam sa teda do pravého pruhu.
ON: Tak tam nepôjdeme!
:)
Viete, čo znamená „Syn voľačo robil, a zmizla mi tá farebná gulička“ ? – To je ikonka Chrome v lište :)
A takéto popisy riešim furt.
OT:
Čo začnem od konca? To je fuk.
”AL” napsal/a:
Ste urazeny? Co ja s tym?
Keď niekto Vašu ženu verejne nazve „ľahkým dievčaťom“, tak asi každému je jasné, že nemal na mysli jej šlank-postavu a váhu. Minimálne Vašu ženu to asi nahnevá, a u Vás to snáď vyvolá nejakú reakciu, slovo, čin, gesto. Takže sa Vám asi nebude páčiť jeho postoj – „A čo ja s tým?“.
Hujer je postava s prehnanou snahou, ako vravíte, ale zásadná je vidina nejakého prospechu, pre ktorý to robí. A to je to, čo som Vám písal, a čo ma uráža.
Vsuvka, ktorá sa Vás netýka: Ja nie som „internetové dieťa“, ktoré častuje všetky svetové strany „vybranými“ slovami, herštegmi, hejtami, smailíkmi, beztrestne a hrdo. Ja používam PPD (prepáč, prosím, ďakujem), tak ako to učíme deti v škôlke.
”AL” napsal/a:
ale zarez na pazbe sa pocita
Škoda, že sa mi nechcelo v noci viac písať, ale zrovna „zárezy“ som chcel použiť v presne opačnom zmysle, že sú mi šumák. Mne je jedno, kto dal koľko postov, vzorcov, riadkov kódu. OP dostane to, čo potrebuje/chce. Či už je to najkratší, najpochopiteľnejší, najrýchlejší, najrobustnejší (zahŕňajúci najviac možných problémových eventualít) a pod. Nech ho postne ktokoľvek. S tým súvisí aj viac podobných riešení, pže často ma napadne kratšie či robustnejše riešenie časom. Ja predchádzajúce riešenia nemažem, ale pridám tag „EDIT:“, aby nebol v tom bordel. Ako pridaná hodnota možno (skutočne iba možno) bude, že sa niekto (OP, riešiteľ, čitateľ) niečo naučí. Ľudia sa už učiť nechcú, hľadajú skratky, to sa už nikdy naspäť nezmení, teda edukáciu nemôžeme nutne predpokladať ale iba slabo dúfať.
”jiri.harazim” napsal/a:
...chtěl jsem si to procvičit...
Takže makro preto – kontrast s predošlou vetou.
INDEX/MATCH – jednoduchá ukážka riešenia, ak je ID hodnota vpravo od dát – to Vám predsa vysvetľovať netreba. Ak sa ma niekto opýta na cestu do bodu A, čo je nekorektné na odpovedi "Ak máte diaľničnú choďte vpravo, a nie choďte vľavo."?
Každý študent sa snaží (a to nielen dnes) raz za čas s niečím vybabrať, a to od odpisovania cez ťaháky až po kupovanie rigoróziek. Tu Vám dávam za pravdu – nesúhlasím s tým. Stalo sa to myslím nie raz, alebo 2. Dnes to už tak neplatí, ale voľakedy sa viac preferovalo „Je lepšie urobiť niečo, ako nič“. Ale platí tá veta o edukácii.
”AL” napsal/a:
Zadanie nema hlavu ani patu
Tak toto je moje prekliatie (nie, nadanie to nie je). Pri mojej práci denne počúvam nezmyselné popisy problémov a chýb, a za tie roky som doslova vytrénovaný v tom, že si v hlave neustále prehrávam, čo mi dotyčný popisuje, a skúšam si predstaviť, čo pre neho asi znamená daný výraz, a zamieňam si ho. Je to pre mňa prirodzené, bez toho by som nemohol robiť to čo robím. Nie je mi to jedno, ale v mojom svete je to žiaľ bežné. Problém je, že Vy predpokladáte, že ak niekto príde na to, čo má OP za problém, dehonestuje ostatných. S tým nemôžem súhlasiť. Einstein tiež predsa nebol hovädo, lebo prišiel na niečo, čo nikto nepochopil.
”AL” napsal/a:
skalarny sucin
Ty/Vy - Ja nemám problém s tykaním, ale nepamätaním s kým si tykám. Preto každému zo slušnosti vykám, + bol som tak vychovaný, aj babke som vykal. Možno sme si aj potykali, netuším, nepamätám. Asi to urobím ako synov tréner, s každým si tyká (deti, dospelý) a nemôže sa teda pomýliť. V angličtine napr. takáto komplikácia nie je.
Takže keď súhlasíš, môžeme si tykať (pokúsim sa na to myslieť). Ak som na niečo dôležité zabudol reagovať, tak mi to prosím pripomeň. Nebehám s pláštenkou, som len človek.
OT:
AL napsal/a:
... On totiz nie kazdy je nutne hujer ako jeden nemenovany prispievatel, ... za miestneho hujera si rad, ...
Predpokladám, že "Hujer" som ja. To myslíte Vážne? Vedzte teda, že ma to vážne uráža! Hujer bol riťolez, ktorý chcel slizkým prisluhovaním dosiahnuť nejaký benefit. Nikto ma nepozná, od nikoho nič nechcem, ani neočakávam, čo sú zásadné podmienky pre "Hujera", nie?
Viete, nespomínal som to ani blízkym, načo, ale ten nemenovaný vzal napr. 23.12. auto, naložil vecami, hračkami, knihami, obuvou, a na vlastné náklady rozviezol asi 120 km, zadarmo, anonymne, veci za možno 250 €. Ja si nepotrebujem dobiť karmu, ani sa nikde chváliť. Keby ste do mňa nerypol, tak to určo nespomeniem. Príde Vám to ako Hujer?
Naozaj si myslíte, že ma poznáte?
Pred použitím makra na nový mesiac, použite najskôr EnableEvents = False, aby sa nevyvolali makrá jednotlivých listov.
Inak to stráženie oblasti cez Address nieje dobré. Čo ak dôjde k zmene oblasti čiastočne prekrývajúcej stráženú oblasť ? Nebude to vyhodnotené ako strážená oblasť. Treba použiť Intersect.
Samozrejme to ide aj makrom, na množstvo spôsobov. Tu máte jeden jednoduchý príklad. Ale nevidím jediný dôvod aby ste používali na toto makro. Ak nechcete aby tam boli vzorce, tak tie sa predsa dajú schovať a zamknúť. Ak ide len o cvičenie, dajú sa použiť ešte napr. polia ... Všetko záleží ako presne vyzerajú dáta, ktoré polia sa majú zobraziť, ich pozícia v dátach, atď ...
Žiaľ nepomôžem, PP absolútne nepoužívam. Čo narýchlo pozerám na nete, tak mne na O2019 nefunguje nič.
Skúste toto, mne to na O2019 nefunguje, no je to písané pre O2007/2010.
Len pár objasňujúcich otázok, ktoré možno niekomu pri hľadaní riešenia pomôžu:
1. Otvárate AVI súbor v PowerPointe? Na AVI sú video prehrávače.
2. Akým spôsobom ho otvárate? Z Outlooku? Dvojklikom z prieskumníka? ...
3. Alebo to myslíte pri vkladaní do PowerPointovej prezentácie? V akom umiestnení sa AVI nachádza?
4. Či otvárate PPTX, v ktorom je vložený AVI?
5. Inštaloval ste nejaké kodeky na prehrávanie videí? Ak áno, aké, ak nie skúste.
6. V akom kodeku je ten AVI? treba pozrieť kompatibilitu kodek+PP2007.
Neviem či má O2007 Centrum dôveryhodnosti, ale novšie to majú Súbor - Možnosti - Centrum dôveryhodnosti - Nastavenia centra dôveryhodnosti - Chránené zobrazenie - skúste nezaškrtávať.
Pre istotu si vypnite v Možnosti Prieskumníka - Zobrazenie - Skryť prípony známych súborov.
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