Datum vnosa v celico?

Pomoč pri delu z MS Excelom
Odgovori
ngc2392
Prispevkov: 67
Pridružen: Ne Jul 31, 2005 12:37 pm
Kraj: kranj

Datum vnosa v celico?

Odgovor Napisal/-a ngc2392 »

Če je že bilo, mi pokažite rešitev :) Drugače pa, ko vnašam v celico, bi rad da se mi izpiše trenuten datum. Formula today seveda ne pride, saj potem je vedno trenuten datum. Narejen imam pogojno funkcijo, če je prazna celica, ni datuma, ko vpišem v celico podatek, se izpiše še datum. Hvala
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Ne razumem popolnoma. Sicer pa lahko nastavite, da vam ne osveži samodejno :)
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
ngc2392
Prispevkov: 67
Pridružen: Ne Jul 31, 2005 12:37 pm
Kraj: kranj

Odgovor Napisal/-a ngc2392 »

Ja, lahko imam ročno "osvežitev" strani. Vendar me zanima, če lahko brez makroja vnesem datum oz. se datum samodejno vnese v celico, če je pogoj izpolnjen. In da to ni funkcija today(), ker če je pogoj izpolnjen (recimo polna celica) mi bo skozi vse stolpce, ne glede na datum, kdaj sem jih vnašal, kazal današnji datum. Tega pa nočem... :?
admin
Site Admin
Prispevkov: 3712
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Ne kaj takšnega excel nima vgrajenega in tudi VBA vam ne more pomagati s funkcijo, ker bi se takšna funkcija sklicevala sama nase...

Lahko pa napišete makro, ki ga ročno spustite ali pa se sam izvede na vsakih N minut. Takšen makro pa preprosto pogleda, če je katera izmed željenih celic polna in v tem primer v sosednjo celico (če le ta seveda ni polna!) napolni datum.
lp,
Matjaž Prtenjak
Administrator
ngc2392
Prispevkov: 67
Pridružen: Ne Jul 31, 2005 12:37 pm
Kraj: kranj

Odgovor Napisal/-a ngc2392 »

No, nekaj podobnega se pa najde...če se recimo nisem dobro izjasnil, kaj hočem :wink:
Tole skopiraš v lastnosti (view code) in dela to, kar sem hotel. Malo moraš sicer pogledati in spremeniti kodo, ampak...dela.

Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 2 And Target.Value >= 9 Then Target.Offset(0, -1) = Date
Application.EnableEvents = True
End Sub
ngc2392
Prispevkov: 67
Pridružen: Ne Jul 31, 2005 12:37 pm
Kraj: kranj

Odgovor Napisal/-a ngc2392 »

No, nekaj podobnega se pa najde...če se recimo nisem dobro izjasnil, kaj hočem :wink:
Tole skopiraš v lastnosti (view code) in dela to, kar sem hotel. Malo moraš sicer pogledati in spremeniti kodo, ampak...dela.

Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 2 And Target.Value >= 9 Then Target.Offset(0, -1) = Date
Application.EnableEvents = True
End Sub
GoldZ
Prispevkov: 137
Pridružen: Če Sep 01, 2005 10:20 am

Odgovor Napisal/-a GoldZ »

Pozdravljeni,

Poskusite s kombinacijama na tipkovnici:

Koda: Izberi vse

CTRL + ; je vnos datuma;
CTRL + : je vnos časa
obe kombinaciji vstavita datum oz. čas kot fiksno vpisano vrednost.
Življenje je enostavno, če poznaš "The Secret".
GoldZ
Odgovori