Příspěvky uživatele
< návrat zpět
Ak to dobre chápem, možno by to mohlo byť aj takto.
Som iba na tablete, tak čisto z pamäti:
Sub MakroPosledny()
Dim r as Long, s as Long
Const StlpecR = 5
Const RiadokS = 1
With Worksheets("Tabulka")
r=.Cells(.Rows.Count, StlpecR).End(xlUp).Row+1
s=.Cells(RiadokS, .Columns.Count).End(xlToLeft).Column
.Cells(r, s).Formula="=Váš vzorec"
End With
End Sub
Vyskúšajte...
Ale najlepšie dajte prílohu, a poriešime.
Včera nám server nejako blbol asi, o 14:52 som Vám sem poslal nejaký ten príklad, ale príspevok tu už večer nebol. Netuším prečo.
V inom vlákne zase môj príspevok včera dostal "do daru" cudziu prílohu...
No nič tak ešte raz, toto som Vám sem posielal včera.
Takto ?
Tak napr. tieto 3 možnosti :
...
Aha tak, po celom riadku, ja som to prečítal že po celom hárku. Keby sem nedal AL prílohu, tak si to ani nevšimnem, že hovoríte o riadku 
Tak označte buď všetky stĺpce v ktorých to môže nastať, alebo pooznačujte oblasti ktorých sa to môže týkať (s rezervou ak treba), a zmente formát čísla na červené záporné číslo, počet desatinných podľa potreby.
Alebo označte všetko Ctrl+A (alebo len celé stĺpce, ktorých sa to môže týkať) a v podmienenom formáte nastavte Formátovať len bunky, ktoré obsahujú - Hodnota bunky - Je menší než - 0 - červená farba.
Lepšia by bola prvá možnosť, len ak tam máte viac druhov formátov, tak nemôžete vybrať všetky a zmeniť, ale musíte minútu venovať výberu oblastí.
Vyskúšajte toto.
Je tam skrytý list "Vzor" ako šablóna, ktorý sa kopíruje. Zmenil som Vám tam výpočet roku, týždňa aj 6 dátumov, včetne názvov dní, sa robí automaticky vzorcom. Jediné čo sa mení je bunka B2, ostatné sa od nej odvíja. Tlačítko zostáva vždy iba na poslednom vytvorenom liste. Ten skrytý list si ľahko zobrazíte a upravíte, keď kliknete pravým na uško niektorého listu, vyberiete Odkryť, a vyberiete a potvrdíte "Vzor". Na tomto liste "Vzor" ale namačkajte tlačítko.
S tým formulárom to neberte ako výtku, to je len na margo, nie každý predsa musí vedieť, že slovom formulár, sa v Excel terminológii označuje objekt, zjednodušene povedané okno, vytvorené vo VBA na vstup či výstup dát.
To je jedno, pochopili sme z kontextu, že hovoríte o elektronickom formulári vytvorenom v Exceli, čiže o tabuľke 
Nie, nebolo by to moc. Musíte sem ale dať prílohu. Keď nie ste zbehlí vo VBA, tak Vám nepomôže, že mi Vám napíšeme makro, ktoré si nebudete vedieť upraviť. A makro musí byť napísané konkrétne.
PS: A jedna technická, v Exceli sa pojmom "formulár" označuje niečo iné ako bunky v liste, ktoré máte na mysli Vy. Ale pochopili sme.
Dajte prílohu a spravíme...
Asi som to zle napísal, keď si myslíte, že by som to tak najradšej riešil. Je to len jediné, čo ma napadá byť funkčné aj pri klávesovej skratke, aj pri Ctrl+klik, aj pri Vybrať všetky z kontextového menu (v kontexte otázky). Ale tiež sa mi to "riešenie" nepáči. Preto som napísal, že to nemá "vhodné" riešenie.
Bude treba problém pojať inak, a urobiť na to, ako vravíte, najlepšie vlastný výber (formulár, kontextové menu, tlačítka,... ).
If Not ActiveWindow.SelectedSheets.Count = 1 Then
Presne takto som to robil s tým Timerom. Dva riadky kódu, a nezdalo sa mi, že by to malo nejaký vplyv na prácu.
Ako inak volať túto kontrolu počtu selektnutých listov, ak nie udalosťou, ktorá nieje k dispozícii, alebo timerom, alebo hook na myš? Toto aj podľa mňa nemá "vhodné" riešenie.
To je Definovaný názov, kvôli zjednodušeniu vzorcov, určuje oblasti spracovaných dát. Data je oblasť dátumu, DataFull je celá oblať dát. Majú rôzne použitie preto sú 2.
Kódy tam sú, ale odchytenie ľkliku myši, je odchytenie udalosti, čiže OnAction, a to už také jednoduché nieje. Skúsim možno niekedy hák na globálny ľklik, s porovnaním oblasti ušiek (ak bude zistiteľná)... Uvidíme.
No veď práve to je to. Ako odchytiť ľavý klik na uškách. Všetky návody sa točia iba okolo pravého (kontextové menu).
Tiež som hľadal možnosť, ako to poriešiť. Okrem CommandBars, som sa snažil vytvoriť aj triedu z Objektu Worksheet alebo Workbook, či nebude prístupný nejaký OnClick, márne. Vypnúť položku "Vybrať všetky hárky" z kontextového menu uška, sa dá, je to položka ID 946. Ale zatiaľ jediné čo ma napadlo akotak funkčné je napr. každú sekundu tikať Timer, kde skontrolujete počet označených hárkov, ak je väčší ako 1, Select-nete napr. prvý. Takže ostane užívateľovi jeho snaha označená max 1 sekundu. Samozrejme ak nepovolí makrá tak mu v tom nič nezabráni. Povolenie makier je na inú debatu, ktorá tu nedávno tiež prebehla.
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