..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Ponavljanje dela kode

Pomoč pri izdelavi makrov

Ponavljanje dela kode

OdgovorNapisal/-a jumanjy » Po okt 19, 2015 6:28 pm

Pozdravljeni,

V excelu tiskam neke obrazce, ki so oštevilčeni, z Do Until zanko. Se pravi določim do katere številke obrazca naj se tiska. Zanima pa me kako bi določil, da se ta del kode ponovi x krat. Recimo rabim 5 obrazcev in se del kode v makru 5x ponovi.

Hvala!
jumanjy
 
Prispevkov: 119
Pridružen: To jan 12, 2010 1:00 pm



Matjazev.NET
 

Re: Ponavljanje dela kode

OdgovorNapisal/-a admin » Po okt 19, 2015 7:16 pm

Da bi vam lahko pomagal, boste morali priložiti ustrezno kodo oz. vsaj del kode, saj si iz opisa ne morem predstavljati, kako to trenutno počnete.
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Ponavljanje dela kode

OdgovorNapisal/-a jumanjy » To okt 20, 2015 1:20 am

Koda: Izberi vse
Do Until Range("A1") = Range ("A2") + 1
PrintOut
Range("A1") .Value = Range("A1"). Value+ 1
Loop



Takole približno izgleda del kode ki se ponovi toliko krat dokler A1 ni enako A2. Se pravi v celico A2 napišem 50 in natisne obrazece od prejšnje številke do 50. Hotel pa bi da nekam zapišemo koliko obrazcev želim natisniti ne glede na zadnjo zaporedno številko.
Upam da ste me sedaj razumeli kaj sem imel v mislih . :oops:
jumanjy
 
Prispevkov: 119
Pridružen: To jan 12, 2010 1:00 pm

Re: Ponavljanje dela kode

OdgovorNapisal/-a admin » To okt 20, 2015 7:45 am

Pozdravljeni,

če vas razumem pravilno, morate pač zapisati še eno zanko v zanki. Če torej želite, da se notranji del zanke ponovi še 5x ob vsakem izvajanju potem to naredite takole
Koda: Izberi vse
  Do Until Range("A1") = Range ("A2") + 1
    for i = 1 to 5
      PrintOut  ' ta del se bo izvedel 5x ob vsakem prehodu
    next
   
    Range("A1") .Value = Range("A1"). Value+ 1
  Loop
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3524
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Ponavljanje dela kode

OdgovorNapisal/-a jumanjy » To okt 20, 2015 11:31 am

Jaz pobrišem mojo Du Until zanko v vaši for-i pa tisto 5ko zamenjam z Range("B1") in deluje. :D
Takole pa izgleda nov makro.
Koda: Izberi vse
      For i = 1 to Range("B1")
      PrintOut  ' ta del se bo izvedel x krat ob vsakem prehodu
      Range("A1") .Value = Range("A1"). Value+ 1
      Next


Najlepša hvala
jumanjy
 
Prispevkov: 119
Pridružen: To jan 12, 2010 1:00 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron