Novo

Forum kao aplikacija na telefonu

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

  • 2 odgovora
  • 2.479 pregleda

Najnovija ↓

Menjanje formata datuma 21.05.2010. u 21:33 · pre 200 meseci #1
Ne radim bas puno sa Excelom, ali mi se pojavila potreba da u njemu formiram neku tabelu i nikako da izadjem na kraj sa datumima. Naime kada se podaci uvezu u Excel datum je tipa 1.1.2010. a meni treba 01.01.2010
Kada selektujem kolonu sa datumom stavim da zameni sve .2010. sa .2010 i tada dobijem ispravan datum. Kada to isto uradim kroz makro (sto je meni potrebno) izbrise se samo tacka iza 2010 a datum i dalje ostane 1.1.2010. Probao sam i da celu kolonu obelezim kao datum ali ne vredi. U regional setings sam podesio format datuma koji je potreban i nista. Verovatno je u pitanju nesto sto ja ne znam jer stvarno retko koristim Excel. Ako neko zna resenje pomagajte.
Re: Menjanje formata datuma 21.05.2010. u 22:59 · pre 200 meseci #2
- 1. Formatiranje datuma se vrsi u: FormatCells/General/Number/Date
- 2. U Rregional and language podesavanjima (kontrol panela) odredjujemo - Short Date
- 3. Sta god da izaberemo, ako excel neki string prepozna kao datum, on godinu prikazuje bez tacke na kraju. Znaci "2010." pretvara u "2010'.
- 4. Ako i ovo nije dovoljno da zadovoljimo neke svoje potrebe (a obicno jeste), onda kroz makro definisemo to sto nam treba oko formata.
I ja koliko znam nema nista drugo. Naravno, excel poseduje i ugradjenu kontrolu za datum - DataPicker koju mozemo postaviti i na sheetu i nveka formi. Datum unesen putem ove kontrole je uvek "pravi", tj. excel taj unos uvek vidi kao datum - u ShortDate formatu.
Re: Menjanje formata datuma 22.05.2010. u 09:38 · pre 200 meseci #3
Hvala na savetu ali evo konacno sam napravio makro koji radi. Ako nekom ovo moze da koristi makro izgleda ovako:

' Ispitujem celu kolonu
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
' izbacujem tacku sa kraja
pp1 = Mid(ActiveCell.Value, 1, Len(ActiveCell.Value) - 1)
' konvertujem u zeljeni format datuma
dtum = Format(pp1, "dd.mm.yyyy")
ActiveCell.Value = datum
Loop
Hvala
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme