Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

formula za automatsko menjanje broja

[es] :: Office :: Excel :: formula za automatsko menjanje broja

[ Pregleda: 2315 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mirjanagb
mirjana kovacevic
austrija

Član broj: 160826
Poruke: 184
*.bankgutmann.co.at.



+1 Profil

icon formula za automatsko menjanje broja22.04.2009. u 11:01 - pre 151 meseci
imam na primer broj u jednoj celiji 012/09

da li postoji formula da pri svakom novom otvaranju fajla se automatski promeni broj na 20/09, pa na 21/09 itd?

 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2195
194.106.167.*

Sajt: www.gowi.rs


+96 Profil

icon Re: formula za automatsko menjanje broja24.04.2009. u 20:56 - pre 151 meseci
Pretpostavimo da je ćelja koju treba da ažuriraš B1. U proceduri Workbook_Open radne sveske ubaci sledeći kod
Code:

Private Sub Workbook_Open()
Dim brojac As Integer
   brojac = Left(ThisWorkbook.Sheets(1).Range("B1").Text, Len(ThisWorkbook.Sheets(1).Range("B1").Text) - 3)
   ThisWorkbook.Sheets(1).Range("B1").Value = Str(brojac + 1) & Right(ThisWorkbook.Sheets(1).Range("B1").Text, 3)
End Sub


Ukoliko broj treba da ima vodeće nule kao u 012/09 umesto Str koristi funkciju Format
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

[es] :: Office :: Excel :: formula za automatsko menjanje broja

[ Pregleda: 2315 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.