< návrat zpět

MS Excel


Téma: datum s čárkami rss

Zaslal/a 25.4.2014 19:23

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ě. 7

Příloha: rar19109_datum_s_carkami.rar (6kB, staženo 27x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3 4   další »
#019140
Opičák
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 9 9 9
Příloha: zip19140_kopie-datum_s_carkami3.zip (183kB, staženo 23x)
citovat
#019141
avatar
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 5citovat
icon #019142
eLCHa
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
#019143
avatar
chlapi, a co to zkusit přes ten vstupní formulář?citovat
#019144
avatar
eLCHa, vitaj, když v té knize zadám 9,5,2014, tak mi to vrátí 9.5.2014. 5 já furt říkám, že mám levý kolky 5citovat
#019145
avatar
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: rar19145_vstupni-formular.rar (16kB, staženo 23x)
citovat
icon #019146
eLCHa
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 Sub
citovat
#019148
avatar
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
#019149
avatar
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í 7citovat
icon #019150
eLCHa
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ší »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09