Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 6 odgovora
  • 3.327 pregleda

Najnovija ↓

azuriranje datuma u ćeliji 18.12.2012. u 18:59 · pre 168 meseci #1
Pretraživao sam forum ali nisam našao slično pitanje pa ni odgovor. Radi se o tome da u excelu imam jednu ćeliju koja pokazuje današnji datum ("TODAY()"). E sad, računar na kome se nalazi ovaj dokument u excelu se ne gasi odnosno radi 24h. Tako da onda ta ćelija ne pokazuje današnji datum već datum kada sam zadnji put otvorio ovaj dokument.
Da li postoji neko rešenje da npr. ćelija svakih pet minuta proverava stvarni datum na računaru i automatski promeni datum?
Potpis
Psi su zakon
Re: azuriranje datuma u ćeliji 18.12.2012. u 19:34 · pre 168 meseci #2
Bilo koja izmena u dokumentu inicira rekalkulaciju tako da ne vidim potrebu za tim; šta god da se novo preračuna uključiće osvežavanje vrednosti za TODAY().
U opštem slučaju preračun iniciraš sa F9.
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Re: azuriranje datuma u ćeliji 18.12.2012. u 19:52 · pre 168 meseci #3
Formula =Today() će se izračunati svaki put kada otvoriš dokument. Valjda si pod "otvaranjem" mislio davanje fokusa već otvorenom Excel fajlu. Ako je tako, možeš da staviš ovaj kod u "Sheet" modul. Samo zameni "Sheet1" sa nazivom lista u kome je =Today() funkcija i zameni A1 sa ćelijom u kojoj je ta funkcija.

Private Sub Worksheet_Activate()
If Worksheets("Sheet1").Range("A1").Value <> Date Then
Worksheets("Sheet1").Range("A1").Value = Date
End If
End Sub
Re: azuriranje datuma u ćeliji 19.12.2012. u 14:06 · pre 168 meseci #5
Kopirati u u modul, ako sm dobro shvatio, mislim da se može bez obzira na reakcije i stanje na internetu.

Code:

Sub auto_open()
Zapocni
End Sub
Public Sub Zapocni()
 Application.OnTime Now + TimeValue("00:00:02"), "Povecaj" '("00:05:00")-ovo je 5 minuta
End Sub
Private Sub Povecaj()
 Range("a1") = Format(Now, "dd.mm.yyyy   hh:mm:ss")
 Zapocni
End Sub
'inače makro započima radom nakon otvaranja i mjenja datum i vrijeme
'svakih onoliko vremena koliko namjestiš.  Perpetuum mobile.
Re: azuriranje datuma u ćeliji 20.12.2012. u 00:10 · pre 168 meseci
izmenjeno 1 put, poslednji put 3okc 20.12.2012. u 08:10
  1. 3okc20.12.2012. u 08:10zapis iz teksta poruke
#6
Hvala svima koji su ponudili pomoć. Ja sam na ovaj način rešio:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.UsedRange.Columns("A:C").Calculate
End Sub

Na ovaj način, neažurira se vreme svakih 5 minuta, ali, u dokumentu, prilikom prelaska iz neke ćelije u neku drugu ćeliju, ćelija sa datumom automatski učitava trenutni datum, što je ustvari meni bitno.

[EDIT: Tagovi]
Potpis
Psi su zakon
Re: azuriranje datuma u ćeliji 20.12.2012. u 08:13 · pre 168 meseci #7
Ok, samo što u kodu koji si postavio imaš događaj _BeforeDoubleClick a za reagovanje na izmene se koristi _Change; samo toliko, greška pretpostavljam.
Potpis
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme