Potrebna mi je neka formula koja bi update-ovala datum u excel-u. Da li uopste moze excel da procita datum i sam ga update-uje?
[Excel] Unos datuma
Zaključano
Zakačeno
probaj sa =now() a polje stavi da bude tipa date/time .
Potpis
Igor
Excel ima niz funkcija za rad sa datumima. = today() postavlja sistemski datum u ćeliju, a spomenuta funkcija =now() sistemsko vreme (uključujući i datum). Datum se u Excelu tretira kao numeričko polje i može se praviti razlika dva datuma, dodavati broj dana na datum i dr. Funkcijom =date(god, mes, dan) mozes postaviti odredjeni datum u ćeliju pri čemu ako uzmeš da je izvor podataka npr za mesec neka druga ćelija možeš lako da ažuriraš datum npr = date(2005, C5, 1) prikazivaće prvi dan u mesecu koji je upisan u ćeliju C5. Na sajtu praktikum.co.yu imaš univerzalni kalendar kompletno urađen u Excelu gde možeš pokupiti različite fazone sa datumima.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Momci hvala vam na pomoci, pomogla mi je funkcija =now(), za format celije sam stavio samo datum i ispada odlicno, jos jednom hvala
Mozes da napisies i macro.
Potpis
----------
MSI H61M-P22 (B3), Intel® Pentium® Dual-Core G840 , DDR3 4GB 1333MHz Silicon Power, Nvidia GeForce 7300 LE, WD Black SATA 160GB , DVD-
RW Pioneer SATA, Bluetooth 2.0, Remote control(use IgorPLUG), Case Moded, MS Industrial 5.1(ML-6015), Dell U2312HM, Dell L100 keyboard, A4Tech X7 748k mouse
MSI H61M-P22 (B3), Intel® Pentium® Dual-Core G840 , DDR3 4GB 1333MHz Silicon Power, Nvidia GeForce 7300 LE, WD Black SATA 160GB , DVD-
RW Pioneer SATA, Bluetooth 2.0, Remote control(use IgorPLUG), Case Moded, MS Industrial 5.1(ML-6015), Dell U2312HM, Dell L100 keyboard, A4Tech X7 748k mouse
Nisam video da ti je neko odgovorio.
Pozdrav
Pozdrav
Potpis
----------
MSI H61M-P22 (B3), Intel® Pentium® Dual-Core G840 , DDR3 4GB 1333MHz Silicon Power, Nvidia GeForce 7300 LE, WD Black SATA 160GB , DVD-
RW Pioneer SATA, Bluetooth 2.0, Remote control(use IgorPLUG), Case Moded, MS Industrial 5.1(ML-6015), Dell U2312HM, Dell L100 keyboard, A4Tech X7 748k mouse
MSI H61M-P22 (B3), Intel® Pentium® Dual-Core G840 , DDR3 4GB 1333MHz Silicon Power, Nvidia GeForce 7300 LE, WD Black SATA 160GB , DVD-
RW Pioneer SATA, Bluetooth 2.0, Remote control(use IgorPLUG), Case Moded, MS Industrial 5.1(ML-6015), Dell U2312HM, Dell L100 keyboard, A4Tech X7 748k mouse
Citat:
Crazy_Kure: Potrebna mi je neka formula koja bi update-ovala datum u excel-u. Da li uopste moze excel da procita datum i sam ga update-uje?
Uz gore sve objašnjeno možeš DATUM postaviti u Header/Footer ( Zaglavlje/Podnožje )
jeste da je stara tema ali mi je google nasao i odgovara mi da u nju nastavim pisati da ne bi otvarao novu temu za istu oblast....
interesuje me kako mogu da ubacim trenutno vreme i datum u celiju ali da mi se to vreme vise ne menja...
mogu sa ctrl+; ali bi meni trebalo da to odradim programski a ne pritiskom na ctrl+;
znaci da pojasnim kroz primer:
imam kolonu datum,ime, iznos
i sad kad ja upisem ime i upisem iznos i kliknem enter da mi se trenutno vreme ubaci u kolonu datum.ali kad to uradim u sledecem redu da mi ne menja i vreme iz prvog reda.
interesuje me kako mogu da ubacim trenutno vreme i datum u celiju ali da mi se to vreme vise ne menja...
mogu sa ctrl+; ali bi meni trebalo da to odradim programski a ne pritiskom na ctrl+;
znaci da pojasnim kroz primer:
imam kolonu datum,ime, iznos
i sad kad ja upisem ime i upisem iznos i kliknem enter da mi se trenutno vreme ubaci u kolonu datum.ali kad to uradim u sledecem redu da mi ne menja i vreme iz prvog reda.
Dodaj sledecu funkciju za list na kome ti je neophodna takva funkcionalnost
Ova funkcija ce pri promeni vrednosti u A1:A10 u susednim celijama upisivati aktuelni datum i vreme kao konstante.
Pozdrav
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Target.Offset(0, 1).FormulaR1C1 = Now()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Target.Offset(0, 1).FormulaR1C1 = Now()
End If
End Sub
Ova funkcija ce pri promeni vrednosti u A1:A10 u susednim celijama upisivati aktuelni datum i vreme kao konstante.
Pozdrav
e mnogo hvala predpostavio sam da mora da se odradi preko VBA,pa sam i sam pokusao nesto da odradim.
i onda imam jos jedno pitanje posto sam pocetnik u VBA da li bi mogao malo da mi pojasnis kako radi ovaj kod.Znam malo raditi sa VB ali jos nisam pohvatao ove komande vezane za celjije...ili ako te mrzi da objasnjavas kod da li imas neki dobar prirucnik za pocetnike u VBA
i onda imam jos jedno pitanje posto sam pocetnik u VBA da li bi mogao malo da mi pojasnis kako radi ovaj kod.Znam malo raditi sa VB ali jos nisam pohvatao ove komande vezane za celjije...ili ako te mrzi da objasnjavas kod da li imas neki dobar prirucnik za pocetnike u VBA
Ajd ukratko ;-)
je funkcija dogadjaja promene vrednosti u celijama radnog lista i izvrsava se kad god promenis sadrzaj neke od celija na datom listu
Ovaj uslov sluzi da proverimo da li postoji presek celije u kojoj si izvrsio promenu i nekog skupa,
kako bismo svoju dalju obradu fokusirali na samo neke celije radnog lista tj. ovde A1:A10
Trenutni datum i vreme (funkcija NOW) se upisuje u celiju koja je 0 redova nadole i 1 kolonu desno od menjane celije,
sto ce reci u prvu desno od celije u koju si nesto upisao a sve pod uslovom da je to neka celija iz skupa A1:A10
Pozdrav
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
je funkcija dogadjaja promene vrednosti u celijama radnog lista i izvrsava se kad god promenis sadrzaj neke od celija na datom listu
Code:
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Ovaj uslov sluzi da proverimo da li postoji presek celije u kojoj si izvrsio promenu i nekog skupa,
kako bismo svoju dalju obradu fokusirali na samo neke celije radnog lista tj. ovde A1:A10
Code:
Target.Offset(0, 1).FormulaR1C1 = Now()
Target.Offset(0, 1).FormulaR1C1 = Now()
Trenutni datum i vreme (funkcija NOW) se upisuje u celiju koja je 0 redova nadole i 1 kolonu desno od menjane celije,
sto ce reci u prvu desno od celije u koju si nesto upisao a sve pod uslovom da je to neka celija iz skupa A1:A10
Pozdrav
Citat:
timmy:
Dodaj sledecu funkciju za list na kome ti je neophodna takva funkcionalnost
Ova funkcija ce pri promeni vrednosti u A1:A10 u susednim celijama upisivati aktuelni datum i vreme kao konstante.
Pozdrav
Dodaj sledecu funkciju za list na kome ti je neophodna takva funkcionalnost
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Target.Offset(0, 1).FormulaR1C1 = Now()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Target.Offset(0, 1).FormulaR1C1 = Now()
End If
End Sub
Ova funkcija ce pri promeni vrednosti u A1:A10 u susednim celijama upisivati aktuelni datum i vreme kao konstante.
Pozdrav
Sto treba gore promijenit da prilikom unosa u b1, datum iskoci u a1 ?
Citat:
pondeke: Sto treba gore promijenit da prilikom unosa u b1, datum iskoci u a1 ?
Code:
Range("$B$1:$B$10")
i Range("$B$1:$B$10")
Code:
Target.Offset(0, -1)
Target.Offset(0, -1)
tnx stari..