Sub subUnlockIf()
ActiveSheet.Protect UserInterfaceOnly:=True
Cells.Locked = True
Columns(1).Locked = False
With ActiveSheet.UsedRange.Columns(1)
Range(Application.ConvertFormula("R" & Join(Filter(Evaluate("=TRANSPOSE(IF(" & .Address & ">=" & CLng(Date) & ",ROW(1:" & .Rows.Count & "),""#""))"), "#", False), ",R"), xlR1C1, xlA1, True)).Locked = False
End With 'ActiveSheet.UsedRange.Columns(1)
End Sub
Volat v Open a Change
Řešeni se jmenuje MS Query
Jen tak z brucha.
Udělejte si zálohu souboru 201503.
V jedné instanci otevřete oba dva soubory.
Soubor 201502 uložte jako 201503.
Teď by mohlo být propojení změněné.
Nový soubor 03 zavřete a nahraďte zálohou.
Píšu z tabletu - nemám to vyzkoušené - ale teoreticky by to fungovat mohlo. Zítra to vyzkouším.
@Hav-Ran
To sa mi nezdá. Máš vo "svojom" originále, čiže v prvej verzii vôbec Personal.xls* ? Ak nie, vytvor ho, resp. iný súbor ktorý umiestniš do XLSTART-adresára, v tomto súbore urob to makro.
Odkrokujte si následující kódDim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'tady je krok, kdy se koukáte ;))
xlApp.Quit
Set xlApp = Nothing
Pokud tímto způsobem vytvoříte novou instanci excelu, VBA doplňky (xlam) se v ní nespustí (COM ano). Personal už dlouho nepoužívám (místo něj mám svůj doplněk), ale předpokládám, že to bude stejné.
Ve svém doplňku pro dva monitory jsem to vyřešil tak, že nespuštěné doplňky spouštím programově (cyklem projíždím doplňky a spouštím), aby nová instance byla úplná. Personal má přesné umístění, takže není problém ho spustit, pokud není automaticky.
Jinak máte pravdu - nejsnadnější je export uložit a v excelu najít uložený soubor.
Pokud to lze, ještě lépe je napsat script v LN - nemám, neznám.
Opravdu je jednodušší sem vložit obrázek místo přílohy?
Vypadá to na maticový vzorec. Zkuste ho vložit pomocí CTRL+SHIFT+ENTER
Soubor neotevírejte dvojklikem, ale použijte import textového souboru. V něm si nastavíte vše, co potřebujete.
Díky za reakci. Budu to dělat výhledově ve volných chvílích.
Na VLASTNÉ číslovanie firiem už jsem přišel. Mám to namyšlené jako 2 dotazy. Podle IČO
http://www.orsr.sk/hladaj_ico.asp?ICO=xxxxxxxx
vyhledat firmu, kde na stránce jsou odkazy na Aktuálny či Úplný
z odkazu zjistím ID, abych ho už příště nemusel hledat, tak ho uložím mno a pak ten odkaz spustím.
Problém je, že to znamená parsovat HTML kód a nikdo mi nezaručí, že ho za týden nezmění ;)))
Kdyby to už někdo měl, ušetřilo by mi to námahu ;)
Nezkoušel už někdo (spíše ze slováků) tahat data do excelu z http://www.orsr.sk/
Než začnu něco vymýšlet, třeba to má někdo nějak ;))
@vovka.h
Vaše pocity jsou váš problém a vaše seběvědomí by vám mohl závidět i Václav Klaus. Předpokládat, že v sobotu večer se vám budu snažit dokázat, že to nefunguje, co na to říct.
Naopak, mne to zaujalo a chtěl jsem to vyzkoušet. Nefungovalo a ani to vaše nefunguje. Pokud nemáte zájem o zpětnou vazbu, prosím příště to napište.
Btw.:
Věta
Počítám, že byste to tu nedával, kdybyste tomu nevěřil, takže můžete vložit nějakou ukázku?
říká, že se mi to nepodařilo a tak mne zajímá jak to máte udělané (když jste přílohu nevložil rovnou). A zároveň to byl můj poslední pokus, abyste to nebral osobně.
@vovka.h
S komentářem v tomto použití mám problém, protože to je věc, kterou může uživatel změnit, nechat trvale zobrazený nebo odstranit.
Nefunguje mi to. Počítám, že byste to tu nedával, kdybyste tomu nevěřil, takže můžete vložit nějakou ukázku?
Excel 2007
- pokud dám do buňky komentář a překryji ho objektem, tak se komentář zobrazí.
- pokud zamknu list, nezobrazí se
- pokud přiřadím objektu makro, nezobrazí se
@marjankaj
Ano, tak nějak ;)
bod 2
označte si všechny buňky, kam chcete zkopírovat ten vzorec (pokud nejsou spojité, tak CTRL+levé tlačítko), pak s CTRL umístěte kurzor na tu kde už máte ten vzorec, stiskněte F2 a pak stiskněte CTRL+ENTER
Bez přílohy, takže možný způsob - předpokládá, že neexistuje žádné propojení mezi těmito soubory:
1. do jedné sloučené buňky vložte relativní odkaz (odstraňte dolary) na požadovanou hodnotu
2. vzorec (odkaz) zkopírujte do ostatních sloučených buněk - zkontrolujte, zda pasuje
3. vzorce převedete na hodnoty tak, že na záložce Data-Připojení vyberete Upravit odkazy, vyberete příslušné propojení a dáte odstranit propojení.
Tabulku vytvořte bokem (mimo tisk) a odkazujte se na ni.
O jaký vizuální efekt jde?
O jakou verzi excelu jde?
Já myslím, že řešení je ve správném použití hned první odpovědi.
Pokud nevíte jak - dejte přílohu, čeho vlastně chcete dosáhnout. Sčítat textboxy je nesmysl.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.