Příspěvky uživatele
< návrat zpět
Něco jsem zkoušel, ten zápis
OldPointer = Application.Cursor
mi podle mě funguje, když předtím sám nastavím nějaký kurzor.
Ale po spuštění makra např.dlouhého cyklu, kdy uprostřed zjistím a Msgbox vypíšu typ kurzoru, mám vždycky default.
A taky se podle toho Excel chová: mám "kříž"-select. Pustím makro, default-šipka. Msgbox vypíše -4143 a teprve pak vidím "hodiny"-čekání. Po Ok je zase kříž.
Obávám se, že tady neporadím.
Nevím, jestli to chápu správně.
Application.Cursor mi vrací číslo, různé podle typu kurzoru. Tím číslem se zase dá kurzor zase nastavit.
A v tom kusu kódu je na konci xlDefault. Tak to celé končí s default kurzorem. Co je špatně?
xlDefault = -4143, xlWait = 2, atd.
To bude asi: Vzorce...Definované názvy...Správce názvů. Noční směna? 
V mém excelu, i když se tváří jako český, líp funguje:
Range("Q54").FormulaR1C1 = "=TODAY()"
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.
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