RE: Excel VBA - Formátování data

navstevnik | 5. 8. 2008 21:03:42 | Odpovědí: 0

jeste je nutno pouzit vlastnost EnableEvents - zabranit zacykleni, takze takto:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Object
'identifikace oblasti
Set isect = Application.Intersect(ActiveSheet.Range("d:d"), Target)
If isect Is Nothing Then Exit Sub
If Target.Resize(1, 1).Value = vbNullString Then Exit Sub ' delete
Application.EnableEvents = False
Target.Value = Format(Target.Value, "dd/mm/yyyy hh.mm")
Application.EnableEvents = True
End Sub

Jméno:
Zadejte prosím jméno

E-mail (nepovinné, adresa bude v zabezpečené podobě zobrazena u přezdívky):

Odeslat

Nepovolená slova

Pravidla diskuzí v Poradně webu Živě.cz

Zasláním příspěvku do Poradny souhlasíte s těmito pravidly:

Podmínky užívání služby informační společnosti
Informace o zpracování osobních údajů
Příspěvky se musí týkat tématu otázky.
Příspěvky nesmí obsahovat vulgární výrazy a slovní útoky na jiné osoby. Příspěvky nesmí poškozovat web Živě.cz ani jeho provozovatele.
Je zakázáno vkládat do příspěvků odkazy na stránky nabízející obsah porušující autorská a jiná práva.
Příspěvky nelze využívat k propagaci.
Příspěvky, které porušují pravidla diskuzí, budou odstraněny. Případně budou upraveny tak, aby neporušovaly pravidla diskuzí. V textu bude následně uvedeno, že příspěvky byly ze strany moderátorů upraveny.
Právo moderovat Poradnu mají pouze zástupci vybraní redakcí Živě.cz. Základní kontrola příspěvku probíhá ještě před jeho zveřejněním.
Živě.cz je soukromý web a provozovatel má při řešení sporů, které se týkají příspěvků v Poradně, vždy konečné slovo.

Kdy vám můžeme smazat příspěvek?

Když budete vulgární.
Když budete slovně útočit na ostatní.
Když se nebudete držet tématu dotazu.
Když budete poradnu zneužívat pro reklamu.
Když záměrně zneužijete cizí přezdívku.
Když budete porušovat zákony.
A když budete na takové příspěvky reagovat, protože se vždy mažou včetně odpovědí ve stromu.