< návrat zpět

MS Excel

Téma: datum s čárkami rss

Zaslal/a jaks.dalibor 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 28x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3 4
Opičák(26.4.2014 18:48)#019151
Opičák
a co takhle ?
nevím kdo je autorem UFormu, je jen nepatrně doplněný.
datum do sloupce B je možné zapsat, když je "odfajfknut" CheckBox
Příloha: zip19151_kalendar-do-slb.zip (44kB, staženo 24x)
citovat
marjankaj(26.4.2014 19:01)#019152
avatar

eLCHa napsal/a:


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 datum

No ja na numerickej klávesnici zadávam dátum s "/" a prevedie mi to na ".". Je to hneď nad číslami, takže žiadny problém s tým nemám.
Asi fakt najlepšie bude overenie údajov s návodom ako treba zadať dátum. Nech sa to naučia aj analfabeti.citovat
jaks.dalibor(27.4.2014 0:18)#019158
avatar
chlapi špízněte, udělal jsem vstupní formulář, který se zobrazí po kliknutí do jakékoliv buňky A5:A10005 5 . Ještě musím doladit, aby se mi po stisknutí tlačítka zrušit nebo křížku to datum tam nenapsalo. Bude mi dokonce i vyhovovat, že obsluha programu neovlivní datum a bude aktuální. Mezi datumem a událostí je schválně mezera, tam bude automatické číslování (to taky zatím nevím jak 5 ), ale pokroky dělám.
Příloha: rar19158_vstupni-formular.rar (23kB, staženo 25x)
citovat
Opičák(27.4.2014 15:13)#019161
Opičák
Tak a teď tu píšeš " bude mi dokonce vyhovovat, že obsluha programu neovlivní datum" . Tímto směrem se možná mělo všechno ubírat od začátku a neřešit čárky. Datum prostě natvrdo a fertig. Ale přesto jsem upravil to co jsi poslal tak, jak bych to řešil já. Datum natvrdo, ale s možností změny.
Příloha: zip19161_kopie-vstupni-formular1.zip (25kB, staženo 25x)
citovat
jaks.dalibor(27.4.2014 19:20)#019164
avatar
to Opičák, s tím datumem to ještě přehodnotím, rozhodně to taky nevypadá špatně, díky.

Ale, to all 1 : pročistil jsem trochu ty kódy a chtěl bych ještě jednu věc, která se mi ale nedaří. Když kliknu do pole A5:A10005, tak mi naskočí formulář Userform2, kde doplňuji data. Potřeboval bych, aby v témže listě po kliknutí do pole K5:K10005 naskočil formulář Userform3. Nevím, co dělám špatně, ale nějak se mi to nedaří. Help somebody??? 7
Příloha: rar19164_vstupni-formular.rar (27kB, staženo 24x)
citovat
cmuch(28.4.2014 5:47)#019168
avatar
Upravene makro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oblast1 As Range, oblast2 As Range
Set oblast1 = Range("a5:a10005")
Set oblast2 = Range("k5:k10005")
If Not Intersect(Target, oblast1) Is Nothing Then 'aby to fungovalo jen pro vymezenou oblast
On Error GoTo err
If Target = "" Then
UserForm2.Show
End If
ElseIf Not Intersect(Target, oblast2) Is Nothing Then 'aby to fungovalo jen pro vymezenou oblast
On Error GoTo err
If Target = "" Then
UserForm3.Show
End If
End If
err:
End Subcitovat

Strana:  « předchozí  1 2 3 4

Uživatelské menu

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

Menu

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.

On-line nástroje