POMOČ PRI FUNKCIJI

[EUGEN]

Spoštovani,

Imam težavo, morda bo to izziv za vas.

V Excel celici imam npr vrednost.: 300-500-800
Sedaj bi rad, da bi mi se ta vrednost vedno ko bi (na novo) odprl to Excel datoteko povečala za eno.
Npr.: 300-500-801, 300-500-802, 300-500-803,...

Prosim za pomoč (in podrobni opis, kako bi na rešil).

Eugen

[admin]

Pozdravljeni,

Za podroben način nimam ravno časa, pa tudi naloga ni ravno zahtevna.

• Napisati je potrebno funkcijo, ki
  1. Vzame vrednost iz neke celice (sedaj je to celica A1, vi pač popravite da bo OK)
  2. Razbije to vrednost na posamezna števila (funkcija split)
  3. Poveča zadnje število za 1
  4. Združi posamezna števila z zankom - (funkcija join)
  5. Zapiše novo vrednost v celico
• To funkcijo je potrebno poklicati ob odprtju zvezka (funkcija auto_open)

Vse opisano imate spodaj.

Koda: Izberi vse

Sub PovecajStevilko()
  Dim celica As String
  
  celica = "a1"
  
  Dim stevila
  stevila = Split(Range(celica).Value, "-")
  stevila(UBound(stevila)) = stevila(UBound(stevila)) + 1
  
  Range(celica).Value = Join(stevila, "-")
End Sub

Sub Auto_Open()
    PovecajStevilko
End Sub

[EUGEN]

Matjaž, zahvaljujem vam se za pomoč.

Sem poskusil in deluje.

Nisem se nikoli ubadal s tem in sem potreboval pomoč