Příspěvky uživatele
< návrat zpět
Z předchozího zachováno jméno v A1, list2.
Pro Userform napsat kód:
Private Sub UserForm_Initialize()
UserForm1.CommandButton1.Caption = Worksheets("List2").Range("A1").Text
End SubPo zobrazení "UserForm1.Show" by tam ten název měl být.
Pokud je to ActiveX. Tlačítko na List1, jméno v buňce A1 na List2, někde v makru řádek:
Worksheets("List1").CommandButton1.Caption = Worksheets("List2").Range("A1").Text
Sub Tisk()
ActiveSheet.Unprotect Password:="1234"
Rows("6:6").Select
Selection.EntireRow.Hidden = True
ActiveSheet.PrintOut From:=1, To:=1
Rows("6:6").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Protect Password:="1234"
End Sub
Tam se mi ale vytrácí smysl toho hesla
Nevím zda to pomůže. Obvykle vzorce v řádku, sloupci mají v adresování buněk společné buď č.řádku či písmeno sloupce (když se chce využít kopírování). Pak bych se snažil nahradit (ctrl+h) vhodný řetězec v oblasti, např. A za $A$ nebo 4 za $4$.
Ale v dotazu to zrovna takhle není, tam by to nefungovalo.
Když bych měl opravdu hoooodně takových nesourodých buněk-vzorců, asi bych u vzorců nahradil = za např. %. Tak získám text: %B2, %C4 atd.
Pak už text funkcema rozsekat do pomocných sloupců, Concatenate doplnit dolary a složit, pak zase nahradit % za = a Ejhle, hotovo. 
Už jsem zase tu. Pokud těch listů není moc, stačí je vypsat, jak je v příloze. Taky se nabízí vynechat volání dalšího makra a napsat to mazání hned do události listu. Ale zvyknul jsem si to hlavní dávat do modulu, odtud je lepší "Přístup" kamkoliv do sešitu, bez dlouhého adresování. Je to tam v poznámce naznačené.
Zkusím pomoct já. Ten kód mi na dvojklik nesmaže nic.
Já tuhle fintu s dvojklikem používám taky různě pro spuštění maker, má to nevýhodu pro toho, kdo je zvyklý editovat obsah buňky dvojklikem přímo v ní, pak se třeba spustí to co člověk zrovna nechce.
Proto jsem v ukázce tu oblast pro klik na smazání řádků omezil na sloupec A v Listu 1. Vyzkoušej.
Edit: Aha, já jen smažu obsah řádku, ty chceš odstranit, ale to se dá snadno změnit na .Delete
Jen malý trik, doplnit před a za vyhledávaný řetězec hvězdičku. Kontrola unikátnosti té části řetězce není nijak ošetřena.
Tak se mi to událo automaticky! Asi někde nějaké nastavení. Excel 2007 cz.
@ eLCHa: Dosáhl jsem toto, ale mám tam římská čísla měsíců, jak tam dostanu obyčejná?
eLCHa napsal/a:
Paxem si řekl - napadne to někoho jiného?A ... nenapadlo.
No ... napadlo, dokonce i to, že sem ElCHa určitě dá kontingenční tabulku. Ale s ní nejsem moc kamarád a odhad jsem se, že to vzorcema dám
..skoro.
@Opičák
Ano, to rovnítko! Nebralo by to 1.den v měsíci. Já si to uvědomil už odpoledne jak jsem to odeslal, ale už nebyl čas to hned opravit. Tak jsem si řekl: ať si na něco přijde sám, bude z toho mít větší radost.
Něco jsem zkusil, drobná úprava je převod formátu v horních řádkách na Datum.
Já na to ráno rychle mrknul, až na to, že je to uložené s manuálním přepočtem, jsem na listu Prodej nenašel potíže, zadám nový řádek a horní hodnoty zůstanou stejné.
Nebude to přesně to požadované, ale něco podobného mám, jako soubor, z kterého čerpám nápady a postupy. Zdroj už si nepamatuju, jestli je to od někoho z tohoto fóra, tak se omlouvám za použití.
Pro upřesnění, funkce Suma vynechává textové hodnoty, ale neumí vynechat chybný výsledek vzorce. Kdyby stačilo řešení vše převést na hodnoty ....
edit: chybka: muselo by se ještě nahradit #N/A
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