Specialmacro secondario ()
La WS fioca come manuale
Rng1 fioco come gamma
Celle1 fioco come gamma
Rng2 fioco come gamma
Celle2 fioco come gamma
Pickstart fioco come data
Scadenza fioca come data
Pickweek fioco come lungamente
Rng_step fioco come lungamente
Step_counter fioco come lungamente
Regolar la WS = gli strati (“Esempio-prima di„)
Regolar rng1 = la WS. Gamma (WS. Cellule (2, “A„), WS. Cellule (WS. Rows.Count, “A„). Estremità (xlUp))
pickweek = 3
step_counter = 0
Per rng_step = 0 26 a punto 13
Per ogni celle1 in rng1
pickstart = celle1.Offset (0, 3)
scadenza = celle1.Offset (0, 4)
Regolar rng2 = gamma (WS. Cellule (celle1.Row, “F„), WS. Cellule (celle1.Row, “Q„)). Contrappeso (0, rng_step)
rng2 (1, 12). Contrappeso (0, 1).FormulaR1C1 = “=SUM (RC [- 12]: RC [- 1])„
rng2.ClearContents
Per ogni celle2 in rng2
Se la WS. _ Del pickstart del >= delle cellule (1, celle2.Column)
E la WS. Cellule (1, celle2.Column) <>
|