Příspěvky uživatele

Dialog xlDialogEditColor není zřejmě součástí kolekce Dialogs těchto aplikací, proto jej nemůžete ani spustit.

Na to abychom to mohli vysvětlit máme celkem málo informací.
Jaxe spouští procedura News - pouze v Calculate nebo ještě jinak?

Z toho co tady vidím mohu pouze říct - automatickou událost vypínáte až po jejím spuštění.

To je samozrejme spôsob, ktorý mi je známy, chcel by som vedieť, či existuje ešte niečo jednoduchšie, asi blbosť, čo?

Mno, jak to říct. V podstatě jste si odpověděl sám ;))

Jednou s výhod BASICu je právě SELECT CASE a buďme rádi za něj. V jiných jazycích samozřejmě existuje taky, ale obvykle nelze použít <, >, <=, >=, IS atp. Ikdyž je pravda, že pokud dělám ve Visual Studiu, dělám v C#.

Jestli
=KDYŽ(NEBO(OverviewTypeOfData={2;3});"PLATI";"NEPLATI")
funguje, tak proto, že je maticový a to VBA a IF není. (mně nefunguje ;)), ale testoval jsem jen krátce)

Ono je taky dobré vědět, k čemu to potřebujete. To co jste napsal jednoznačně řeší SELECT CASE. Dalo by se to vyřešit např. i řetězcovou konstantou a INSTR (např. se to využije při odstranění diakritiky - http://social.technet.microsoft.com/Forums/cs-CZ/officecs/thread/781c8e74-f545-41bc-a799-bc71940d52a3/ - někde mám i svou proceduru, ale rychlejší bylo najít jí na netu). Záleží, co chcete dělat ;)

@Opičák

Ano, je otázkou proč takhle to funguje a ve standardním nastavení ne, ale je to tak.
Pokud tedy víte, že v souboru pracujete jen s časy a nikoliv s datumy, můžete ho bez problému použít. Pokud používáte datumy, je třeba ověřit, jestli kalendářní systém 1904 nebude dělat problémy.

To mínus je problém, protože excel neumí zobrazit mínus před "časem", převede totiž formátování na text. Ono by to asi šlo, asi bylo by to složité.
A ani ten formát text není pravdou. Excel standardně pouze neumí zobrazit záporné časy a proto místo toho zobrazí ######. Nicméně, pokud si dáte zobrazit obecný formát, záporné číslo se zobrazí.
Pokud nemůžete použít systém 1904, využijte skrytý slopuec (viz příloha)

@Danny2

Vaše řešení uloží sešit a pak nastaví
ThisWorkbook.Saved = True
jenže sešit otvíráte uložený takže je zbytečné ho ukádat
tedy - když vynecháme ukládání - tak samzřejmě, je to rychlejší ;) a v případě velkého souboru i výrazně

@AL
rozhodně nesouhlasím ;)))

je to chytré riešenie, v prípade súborov, ktoré sa majú používať len pre zobrazovanie dát
tyto soubory ukládám s doporučením pouze pro čtení

ThisWorkbook.Saved se nastaví na False v případě jakékoliv změny, kterou následně uděláte.
To znamená, že po otevření, pokud neuděláte žádnou změnu se to nezeptá (což aoutor chtěl), ale jakmile udělá jakoukoliv změnu, tak se dotaz na uložení zobrazí

Může to být užitečné i v případě, žemáte nějaká automatická makra po spuštění, jež vyvolají ukládání, ale vy víte, že toto jsou změny které uložit nepotřebujete.

Nicméně, já to využívám jen v jediném případě, jehož popis by mi trval dlouho a DNES to není ;)

@Opičák

protože excel neumí zobrazit mínus před "časem", převede totiž formátování na text. Ono by to asi šlo, asi bylo by to složité.

Koukněte na mé řešení a zjistíte, že to umí ;) a není to složité. Přijdete na to? ;)

Opičákovo řešení jsem neviděl, ale makra nejsou potřeba.
Takto bych to dělal já, na výpočet svátků už ale nemám čas.

@Opičák

toto by fungovalo v případě, že na UF má pouze TextBoxy. Ostatní prvky Text nemají, takže vyhodí chybu.

Sub mazejTB()
For Each Control In UserForm1.Controls
if typename(control)="TextBox" then
Control.Text = vbNullString
end if
Next
End Sub

Na te Vasi verzi jsem nepochopil, kam je mozno zadat podminku

Podmínka je ve sloupci A.
Výpočty ve skrytém listu (protože jsou složitější, pokud to chcete řadit dle abecedy).
Na každém listu jsou náhodným číslem generované hodnoty pro demonstraci činnosti.

Ovšem OpenOffice už nemám, takže nemohu ověřit.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim endrow As Long
endrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To endrow
If IsEmpty(Cells(i, 1)) Then
MsgBox ("Prázdné buňky ve sloupci A ") & i
Cells(i, 1).Select
Cancel = True
Exit For
End If
Next i
End Sub

Já se naopak obávám, že by od vás bylo slušné
Bohuzel potrebuji soubor pouzivat i v openofficu
toto uvádět hned na začátku
a
pokusy uzivatelu 'eLCHa' a 'marjankaj' nepochopil,resp. spis pocitaj neco jinyho
napsat zadání tak, abychom se nemuseli domýšlet, čeho chcete dosáhnout
pak bychom nemuseli vytvářet pokusy a vy nás nebudete obírat o čas.

Btw výsledek Pavlusův
List2, List3, List4, List6, List8, List10
a můj
List1, List1 (10), List1 (11), List1 (12), List1 (13), List1 (15), List1 (16), List1 (2), List1 (3), List1 (4), List1 (5), List1 (6), List1 (7), List1 (8), List1 (9)

když 2 dělají totéž, není to totéž

Tipoval bych, že to bude podobné jako tady:

http://www.excelplus.net/forum/viewthread.php?thread_id=702

Pokud ano, tak zatím jsem se naštěstí s tímto nesetkal, takže více nepomohu.

@AL

jenom technická
If Sh = Sheet1 And Target.Address = Range("B3").Address Then

asi vyhodí chybu (nebo nebude pracovat správně), protože Sh i Sheet1 jsou objekty, takže buď
If Sh.Name = Sheet1.Name And Target.Address = Range("B3").Address Then

nebo (ale takhle to taky napracuje vždycky dobře, zatím nevím proč)
If Sh Is Sheet1 And Target.Address = Range("B3").Address Then

Pokud list přejmenováváte, místo ThisWorkbook.Sheets("Sheet1")

používejte kódové jméno listu (najdete ve vb editoru) ve složce Microsoft Excel Objects před závorkou
pak jen např.:
ThisWorkbook.Sheet1
nebo pokud hází chybu (v některých případech)
ThisWorkbook.Sheets(Sheet1.Name)

mno když vám nevadí VBA, tak je zbytečné to hned ukládat

Private Sub Workbook_Open()
ThisWorkbook.Saved = True
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje