IZBORNIK HOME FORUM ACCESS EXCEL WORD KAZALO
1 Pokretanje-zatvaranje Microsoft Excel-a 2003
2 Izgled prozora Microsoft Excela 2003
3 Podešavanje Excela
4 Otvaranje novog dokumenta
5 Spremanje dokumenta
6 Zatvaranje dokumenta
7 Pregled LISTA prije ispisa
8 Određivanje margine Radnog lista
9 Kreiranje Zaglavlja i Podnožja Radnog lista
10 Ispisa Lista-tablice
11 Kreiranje mapa u Excelu
12 Kretanje radnom tablicom
13 Označavanje ćelija
14 Matematički operatori
15 Unos podataka u ćelije
16 Unos i obrada teksta u ćelijama
17 Promjena podataka i brisanje sadržaja ćelije
18 Spajanje i dijeljenje ćelija
19 Automatska ispuna - brzi unos podataka
20 Ispuna ćelija posebnim znakovima
21 Naredbe Poništi i Ponovi poništeno
22 Premještanje i Kopiranje sadržaja ćelije
23 Umetanje i brisanje Ćelija, Stupaca i Redova
24 Promjena veličine Ćelija, Stupaca i Redova
25 Umetanje Simbola u tablicu
26 Umetanje slika u tablicu
27 Radnje vezane uz
Radni List
28 Apsolutna i relativna adresa ćelije s imenom
29 Izrada Grafikona
30 Oblikovanje radnih tablica
31 Kreiranje LISTE - Baze podataka
32 Sortiranje podataka
33 Zamrzavanje dijela prozora Radnog lista
34 Filtriranje podataka
35 Oblikovanje Datuma
36 Zaključavanje ćelija
37 Zaštita dokumenta
38 Popis svih FUNKCIJA
u Excelu
- Primjeri često korištenih formula
- Primjeri zadataka za ECDL
39 Sve alatne trake u Excelu
40 Pomoć u Excelu
41 Oporavak dokumenta
42 Ograničenja u Excelu
43 Tipkovni prečaci
44 Razno
 

Adsense sponzor



MICROSOFT EXCEL - trajno pamćenje datuma u Excelu nakon unešenog podataka

Pamćenje današnjeg datuma za stalno

Search This Web Site

Adsense sponzor






Remember TODAY ( Upamti današnji datum za stalno )

 

Ovaj interesantan primjer autora P.Jovanovic odabrao sam zbog velikih mogućnosti primjene pri svakodnevnom radu

Situacija:
Imate radnu knjigu u koju trebate upisivati nekakve podatke ( u ovom primjeru Ime i Prezime ) a uz unos imena i prezimena trebate unijeti i današnji datum ( na dan kada unosite ime i prezime ). Nakon snimanja radne knjige i sutrašnjeg otvaranja želite da se jučerašnji datum trajno zapamti. I tako iz dana u dan. Na kraju mjeseca želite imati kronološki uvid u unos podataka po datumima.

Ovaj zadatak možete riješiti pomoću VBA Macro koda.

Na slici ispod uočite da imamo stupce za datum upisa i stupac za unos podataka ( Ime i prezime ). Želimo da se datum automatski upisuje i prikaže datum kada upišemo Ime i prezime.

ToDAY() datum u Excelu

U stupcu B u ćeliju trebamo postaviti formulu =IF(C2<>"";TODAY();"") i kopirati je prema dolje do željenog reda naše tablice.

Što nam određuje formula koju smo kreirali u stupcu "B" ?
Laički mogu pojasniti ovako: Ako ćelija C2 nije prazna tada upiši današnji datum a ako je ćelija C2 prazna rezultat će biti prazna ćelija B2.

Dakle u momentu upisa podatka u ćeliju C2 i nakon pritiska na tipku Enter, u ćeliji B2 pojavit će nam se današnji datum. Prvi dio zadatka smo riješili. Kada bi ostalo ovako kako smo uradili a prilikom otvaranja iste radne knjige sutra ili za par dana, podaci u stupcu "B" bi nam se poremetili tj. prikazali bi se kao datum na dan otvaranja.

Da bi se to izbjeglo potrebno je pomoću VBA Macro koda prilikom snimanja radne knjige datum pretvoriti u fixnu vrijednost.

Dakle idemo otvoriti VBA editor pritiskom kombinacije tipki ALT+F11 ili sa tekstualnog izbornika Alati ( Tools ) => Makronaredba ( Macro ) => Visual Basic Editor.

S obzirom da je ovaj Macro kod namijenjen događaju Workbook_BeforeSave isti će se izvršiti nakon klika na gumb Save.  Datoteka (File) => Snimi (Save) a tada će rezultat biti pretvaranje današnjeg datuma u fixnu vrijednost.

Otvorili smo VBA Editor i potrebno je kliknuti DVOKLIK LTM na lijevom prozoru na ThisWorkbook a potom u desni prozor editora kopirati ovaj kod ( ispod )

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Sve formule iz zadatog opsega pretvaraju se u vrednosti
' ukoliko je rezultat formule razlicit od blanko
' P.Jovanovic za elitesecurity.org
'
   Dim cl As Range
   Application.ScreenUpdating = False
   Set Rng = ThisWorkbook.Worksheets(1).Range("B4:B1000")  ' Izmeni koliki ti opseg treba
   For Each cl In Rng
      If cl.Text <> "" And cl.Formula <> cl.Text Then
         cl.Formula = cl.Text
      End If
   Next cl
   Application.ScreenUpdating = True
End Sub

Macro za trajno pamćenje datuma nakon unešenog podatka

Adsense sponzor



Snimite klikom na gumb Save ili ( File => Save )

Zatvorite kompletnu radnu knjigu i pokrenite je ponovno. Na ulaznom prozoru za Makronaredbe kliknite "Omogući Makronaredbe". Ako Vas zanima više detalja o Makronaredbama kliknite OVDJE

Ako Vam Excel ne prihvaća Makronaredbe, vjerojatno Vam je nivo sigurnosti povećan na maximum ili slično. Problem probajte riješiti u samom Excelu. Alati (Tools) => Mogućnosti (Options) => kartica Sigurnost (Security)

dakle kada smo nakon nekoliko dana otvorili našu radnu knjigu i upisali novi podatak, prije samog snimanja imamo situaciju kao na slici ispod. Uočite da je datum koji smo prethodnih dana imali pozicioniran u lijevo, kao tekst a današnji datum prije samog snimanja pozicioniran u desno kao datum (broj). Kada kliknemo na Save gumb i ovaj datum 20.12.2009 pozicionirat će se u lijevo i ostati trajan. Download primjera OVDJE

trajno upamćen datum u Excelu

Adsense sponzor





Kako automatski upisati  i trajno upamtiti datum unosa podatka u Excelu

Na tutorijal iznad može se nadovezati i ovaj Macro u kojem se može trajno upamtiti DATUM , SAT i MINUTA unesenog podatka u tablicu. Ako uklonite  (&""&Time) tada će se trajno upisati samo datum. Ovaj Macro ispod unesite u VBE. Klik desnom tipkom miša na radni list u kojem želite ovu automatizaciju => View Code => zalijepite ovaj Macro sorce code (ili preko VBE u naziv Sheeta)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If WorksheetFunction.CountBlank(Target) > 1 Then Exit Sub
Target.Offset(0, 2) = Date & " " & Time
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.Offset(0, 1) = Date & " " & Time
End Sub

Automatic insert Date and Time after enter data

Adsense sponzor



Copyright 2008 - 2018 - IvanC - ic.ims.hr