Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

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

Kako se dodaje

formula za automatsko menjanje broja

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 1 odgovor
  • 3.357 pregleda

Najnovija ↓

formula za automatsko menjanje broja 22.04.2009. u 12:01 · pre 213 meseci #1
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?

Re: formula za automatsko menjanje broja 24.04.2009. u 21:56 · pre 213 meseci #2
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
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme