Příspěvky uživatele
< návrat zpět
Jo takhle - vy to máte uzamčeno pro otevření. Má to nějaký důvod? Nestačí uzamknou list proti změnám?
Dejte to do modulu listu kniha a otestujte to.
Ještě bych uživatelům znemožnil vybrat více než 1 buňku.
Předpokládá to, že tam nezadají více než 1 hodnotu najednou - což přepokládám nedělají - celé jsem to nečetl.
Nicméně jak správně řekl Opičák - urazit jim prsty - správné řešení už tu taky bylo - Data-Ověření - a naučit je zadat datum
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Cells(1).FormulaLocal, ",") > 0 Then
If Union(Target, Columns(2)).Address = Columns(2).Address Then
Dim sVals() As String
sVals = Split(Target.FormulaLocal, ",")
Dim tNewValue As Date
On Error Resume Next
Select Case UBound(sVals)
Case 1
tNewValue = DateSerial(Year(Date), CInt(sVals(1)), CInt(sVals(0)))
Case 2
tNewValue = DateSerial(CInt(sVals(2)), CInt(sVals(1)), CInt(sVals(0)))
Case Else
End Select
On Error GoTo 0
If Not tNewValue = 0 Then
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False
Target.Value = tNewValue
Application.EnableEvents = bEvents
End If
End If
End If
End Sub
Co všechno nejste schopni vymyslet ;))))
Pokud to chcete zrychlit, omezte výpočty pouze na situaci, kdy to má něco změnit.
Takže nejdříve zjistěte, jestli je v nové hodnotě čárka, jestli se jedná o platný datum a teprve pak měňte hodnoty. Omezíte tím výpočty a vše zrychlíte
mimochodem při zadání 9,5,2014
CDate(Replace(Target, ",", "/"))
vrací 5.9.2014
@a.mlady
Pokud zde dáváte přílohy, které jste sám nevytvořil, je nanejvýš vhodné vložit odkaz na původní umístění nebo alespoň zmínit autora.
http://excelplus.net/doplnek-kalendar/
Fórum na Excelplus.net je bohužel zrušeno. Protože se jednalo o mou odpověď, mohu ji zde vložit a to včetně přílohy, kterou jsem tam tenkrát dal. Koukněte jestli to pomůže. Upozorňuji, že jsem neřešil váš problém, jen zde dávám odpověď na vlákno, které jste označil v minulém příspěvku.
Původní odpověď
Mno - možná je jednodušší způsob, ale neřekl bych
Pro tento typ úloh si musíte ve zdrojové tabulce pomoci pomocnými výpočty
Pokud říkáte, že tam máte 4 mil. řádků, taxi vždy nejdříve na vzorku cca 10 tis. vytvořte KT a v ní si to odlaďte a pak teprve pracujte s celou databází - budete totiž používat vzorce a ty by vás zdržovaly.
Mno a pak už záleží pouze na vaši schopnosti pracovat se vzorci
Tato úloha by se dala vyřešit např. takto
Mám na starosti v práci nejaké takéto "skvele" designované mastersheety, ktoré som zdedil; ide ma mimochodom šľak trafiť už len z doby, ktorú trvá aktualizácia hodnôt z linkovaných súborov, bývalá kolegyňa, ktorá tie sheety vytvorila, bola veľká umelkyňa patrične hrdá na obludnosť, autorom ktorej bola :(
;))))
Ano - když jsem nastoupil na své místo, měl jsem štěstí, že mi do toho nikdo nekecal a tak mám program, který skoro vše dělá za mně ;)
Nicméně to jsem asi výjimka a nezávidím nikomu kdo něco zdědil nebo kdo musí dělat s někým, kdo pracuje na něčem takovém "geniálním" a je nucen se na tom podílet.
Jen jsem chtěl upozornit, že propojení není špatná věc, jak by si někdo mohl z Vašeho příspěvku domyslet. A ani nemyslím, že je špatně vymyšlené, spíše naopak. To, že s tím uživatelé dělají psí kusy a nepřemýšlejí už není chybou programu. Proto ta reakce.
@kriz.pavel
Jesli tomu rozumím, tak seznam adresářů už v list máte.
Zkuste např.:
=HYPERTEXTOVÝ.ODKAZ("V:/"&A1)
@AL
Dneska jsem se rozhodl, že s vámi budu trochu polemizovat ;))) . Říkáte o záznamníku, že je fajn? Naopak, je naprosto geniální. Vůbec si neumím představit, jaké to muselo být něco takového naprogramovat. Samozřejmě, kód ze záznamníku je strašný, ale dělá přesně to co má. Já záznamník použiju minimálně 1x týdně - protože mi napoví a to je přesně to, co myslel Standa.
Já záznamníkem začínal a jsem vděčný za to, že tam je ;)
Tak a tento dotaz mně dostal ;)) . Pro jistotu jsem si to vyzkoušel a nic. Zamčený list heslem, zamčený sešit heslem a nic. Žádné heslo to po mně nechce.
Při aktualizaci propojení to po vás chce heslo?
Můžete vložit přílohy?
Rozhodně, když se nad tím zamyslíte, tak vložení hesla do vzorečku by asi nebylo to pravé, protože by si ho potom každý přečetl ;)
@AL
toto je samozřejmě věc názoru a navíc neznáme, kolik těch souborů je propojených. Rozhodně bych to nenazval zvěrstvem a pro ty co to používají - používám to taky ;))) . Pro mně je externí link součást excelu a MS Query nástavba. Propojení zvládne každý, kdo dělá s excelem 2 týdny, Query ne.
Samozřejmě, všeho s mírou. Mít propojení na 100 souborů je asi šílenost, ale já běžně propojuji soubor se 3-5. Nevidím důvod vytvářet Query, když ze souboru potřebuji jen data ze 2 řádků a 12 sloupců. Ale klidně se nechám poučit.
@AL
tím posledním příspěvkem jste to zachránil, takže nic dodávat nebudu a budu jen dál na pozadí sledovat 
V nové instanci nebo novém sešitě?
Sheets("Data").Copy
Proč? A jak si představujete, že by ty 3 hodnoty měly po sloučení vypadat?
@marjankaj
technická poznámka - protože se jedná o využití příkazu Excel4Macro, tak je třeba uložit soubor jako xlsm, protože obsahuje kód. Mno a když už obsahuje kód, tak je daleko praktičtější využít vlastní funkci s příkazem Evaluate.
Příkaz VYHODNOTIT (pro čechy) je využitelný pouze v případě, že chci vyhodnocovat buňky s českými názvy funkcí.
http://wall.cz/index.php?m=topic&id=15503&page=2#post-15585
@Palooo
- k tomu, aby soubor nebyl vidět není potřeba nové instance.
- buď jsem nepochopil nebo mně nenapadá, proč ještě jednou otevírat soubor s tím samým kódem
Možná je ještě nějaký důvod otevírat nové instance - já znám pouze 2:
- soubor se kterým pracuji má tolik výpočtů, že mi zpomaluje práci v dalších. Proto si tyto soubory otevřu v jiné instanci.
- soubor, který upravuji si otevřu ještě jednou ve druhé instanci (pro čtení), abych věděl jak vypadal před úpravami - tohoto jsem začal využívat při práci se dvěma monitory ;)
Jinak přicházíme o spoustu možností, které nám nabízí jedna instance excelu. Toto vše platí pro excel 2007 a asi i 10. S 2013 jsem ještě nedělal, tam jsou okna řešena jinak (stejně jako ve wordu) a tak nevím, jak je to s instancemi.
@carifuk
Ulozto mám blokované
@Palooo
opět zbytečně otevíráte druhou instanci excelu
@carifuk
já to vidím na obyčejný odkaz na pojmenovanou oblast (takže by ten soubor ani nebylo potřeba otevírat), ale bez přílohy (resp. v tomto případě příloh) to nepůjde.
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