Příspěvky uživatele
< návrat zpět
Vidím tam veľké množstvo problémov a nejasností.
-Popis úplne iný, Váš kód úplne iný
-Ktorý list bude ActiveSheet keď sa má daná operácia vykonať? V tomto prípade bude lepšie odkazovať na meno listu, nie na ActiveSheet.
-Čo ak nastane v G4=3 v G5=-3 ? O tom, že G4 bola "3" a vytvoril sa súbor nebudete vedieť, lebo ho prepíšu data z iného riadku počas spracovania "-3".
-Set ws = ActiveWorkbook.ActiveSheet, je úplne zbytočný, keď sa aj tak ďalej odkazujete na ActiveSheet a nie na ten ws.
-Recalc() berie z ktorého listu data na kopírovanie ? Nesmiete to odkazovať v procedúre z Modulu iba cez Range. Už dupľom nie, ak je volaná cez časovač, čiže neviete na ktorom liste budete prekliknutý.
-Ak to hodíte do Calculate, tak dostanete chybu práve na tom spomínanom ActiveSheet. Predpoklad je taký, že tú Calculate vyvolá vzorec, ktorý je v G4 a G5 na liste "List1", odkiaľ sa majú aj brať data na uloženie (???). Keď to zmením na Calculate a ActiveSheet zmením na Sheets("List1") tak to fachá.
Proste veľa vecí, ktoré musíte upresniť.
Podľa mňa kódy sa líšia iba v "spájaní" do stringu (Join vs. For). Ostatné je rovnaké. Testovanie hodnoty cez Cell a Range je to isté. Ak by Vám tie RealTime data náhodou nevyvolali Worksheet_Change metódu, tak skúste použiť Calculate metódu.
Neskúmal som Váš ostatný kód, ani celý zošit. Doplnil som Vám len do List1 makro, ktoré urobí to čo chcete.
http://uloz.to/x4cmpuZa/dashboard-2-xlsm
Ešte malá poznámka: navrhovaná úprava od eLCHa ale zobrazí textbox aj pri kliknutí na iné bunky v riadku, a to sa mi príliš nepáči, tak radšej by som (keby to bolo pre mňa a podľa mňa) upravil začiatok procedúry takto.
Ale tiež by ma zaujímalo, ako je to myslené s tými odkazmi. Ak to má byť tak, že tie texty majú byť nejaké HyperTextové odkazy na napr. listy, tak potom bude treba použiť iný typ objektu, asi ListBox...
Hnevať sa určite nebudem. Áno, pravda, je tam nepresnosť, musí sa križovať Row a Column, ako píše eLCHa.
Ďalej: Lokalizácie, Lokalizace, Localization - snažím sa na to myslieť pri vzorcoch, no zabudol som na makro. V makrách to je tak, že si systém "dokladá" vlastné (lokalizované) názvy objektov, ale iba dovtedy, pokým objekt nepremenujete. Potom už takto premenovaný je na každej lokalizácii. Takže
pridajte do kódu na koniec túto procedúru
Sub Premenuj()
Dim o As Object
Set o = Selection
o.Name = "tbSeznam"
Set o = Nothing
End Sub
zabezpečte zobrazenie TextBoxu a kliknite do neho, bude označený. Potom kliknite do tejto procedúry, a spustite ju F5. Váš objekt sa premenuje na "tbSeznam". Týmto menom nahradte v kóde to pôvodné na 4 miestach. Procedúru "Premenuj" z kódu vymažte. Teraz by malo všetko fungovať na akejkoľvek lokalizácii.
Očislované Shapes by som nepoužíval, radšej pomenované.
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,... ).
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