MS Excel

zdravím opět odborníky, řeším malý úkol. Do deníku mi lidé píší datum, problém nastává, že někteří jsou zvyklí psát datum na numerické klávesnici a tudíž s čárkami. jednoduchým makrem jsem schopen čárky nahradit tečkami, s obtížemi jsem schopen změnit poté i formát z obecného na datum. Ale když si rozkliknu automatický filtr, tak se mi takové datum "nazařadí do daného roku", dokud ho ručně nepřepíši s tečkami. Napadá vás něco? V přiloženém dokumentu jsem makro nedával. Některé lidi bohužel nenaučím to zadávat správně.

Zaslat odpověď >

Strana: « předchozí 1 2 3 4 další »

Opičák(26.4.2014 17:51)#019140

s tím tlačítkem by to mohlo být třeba tak a nebo to moje makro upravit podle marjankaj, ale ponechat tlačítko.

edit:
a nejlepší by bylo (a bylo by po starosti) praštit všechny co píšou datum s čárkou přes prsty

Příloha: zip

19140_kopie-datum_s_carkami3.zip (183kB, staženo 24x)

citovat

jaks.dalibor(26.4.2014 18:01)#019141

posloupnost se má tak: někdo otevře knihu, kde postupně zadává: Datum, název úkolu, kontaminace, priorita, kdo zapsal případně poznámku. Já poté doplňuju termín odstranění a kdo odstranil.
Problém nastává jen tehdy, když někdo zapíše ten datum s čárkama, pak v automatickým filtru to nevidí jako datum.
Mojí "nějakou finální myšlenkou bylo, že když by někdo otevřel knihu a klikl do kolonky datum, tak by vyhópl formulář, kdy by již byl aktuální datum (nebo by tam nemusel být, ale vložil by se do sloupce datum), pak by osoba vypsala požadavky, dala uložit a tyto data by se uložila na poslední řádek. Ale k tomuto mám ještě dlouhou cestu

citovat

eLCHa(26.4.2014 18:04)#019142

Co všechno nejste schopni vymyslet ;))))

Pokud to chcete zrychlit, omezte výpočty pouze na situaci, kdy to má něco změnit.
Takže nejdříve zjistěte, jestli je v nové hodnotě čárka, jestli se jedná o platný datum a teprve pak měňte hodnoty. Omezíte tím výpočty a vše zrychlíte

mimochodem při zadání 9,5,2014
CDate(Replace(Target, ",", "/"))
vrací 5.9.2014citovat

jaks.dalibor(26.4.2014 18:04)#019143

chlapi, a co to zkusit přes ten vstupní formulář?citovat

jaks.dalibor(26.4.2014 18:08)#019144

eLCHa, vitaj, když v té knize zadám 9,5,2014, tak mi to vrátí 9.5.2014.

já furt říkám, že mám levý kolky

citovat

jaks.dalibor(26.4.2014 18:17)#019145

v příloze posílám soubor s formulářem. Co nevím, jak na jeden klik ve sloupci A zobrazit tento formulář (na dvojklik bych to asi zvládl). Po stisku tlačítka ulož by se text v textboxu uložil do sloupce B a aktuální datum vložil do sloupce A. Při stisknutí zruš samozřejmě nic.

Příloha: rar

19145_vstupni-formular.rar (16kB, staženo 24x)

citovat

eLCHa(26.4.2014 18:34)#019146

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Cells(1).FormulaLocal, ",") > 0 Then
If Union(Target, Columns(2)).Address = Columns(2).Address Then
Dim sVals() As String
sVals = Split(Target.FormulaLocal, ",")

Dim tNewValue As Date
On Error Resume Next
Select Case UBound(sVals)
Case 1
tNewValue = DateSerial(Year(Date), CInt(sVals(1)), CInt(sVals(0)))
Case 2
tNewValue = DateSerial(CInt(sVals(2)), CInt(sVals(1)), CInt(sVals(0)))
Case Else
End Select
On Error GoTo 0

If Not tNewValue = 0 Then
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False

Target.Value = tNewValue

Application.EnableEvents = bEvents
End If
End If
End If
End Subcitovat

jaks.dalibor(26.4.2014 18:38)#019148

eLCHa, tak teď jsi mě dostal, tomuhle nerozumím už vůbec, zkusím to hodit do VBA, ale ješivá se to podaří ....citovat

jaks.dalibor(26.4.2014 18:42)#019149

eLCHa, nefunguje mi to, po zapsání datumu např. 14,9,2013 se nic nestane. Nejsem ani schopen poznat, pro které buňky to platí

citovat

eLCHa(26.4.2014 18:44)#019150

Dejte to do modulu listu kniha a otestujte to.
Ještě bych uživatelům znemožnil vybrat více než 1 buňku.
Předpokládá to, že tam nezadají více než 1 hodnotu najednou - což přepokládám nedělají - celé jsem to nečetl.

Nicméně jak správně řekl Opičák - urazit jim prsty - správné řešení už tu taky bylo - Data-Ověření - a naučit je zadat datumcitovat

Strana: « předchozí 1 2 3 4 další »

Téma: datum s čárkami

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje