Specialmacro secondaire ()
Le faible WS comme feuille de travail
Faible rng1 comme gamme
Faible celle1 comme gamme
Faible rng2 comme gamme
Faible celle2 comme gamme
Faible pickstart comme date
Faible expiration comme date
Faible pickweek en tant que longtemps
Faible rng_step en tant que longtemps
Faible step_counter en tant que longtemps
Placer le WS = les feuilles (« Exemple-avant »)
Placer rng1 = le WS. Gamme (WS. Cellules (2, « A »), WS. Cellules (WS. Rows.Count, « A »). Extrémité (xlUp))
pickweek = 3
step_counter = 0
Pour le rng_step = 0 26 à l'étape 13
Pour chaque celle1 dans rng1
pickstart = celle1.Offset (0, 3)
expiration = celle1.Offset (0, 4)
Placer rng2 = gamme (WS. Cellules (celle1.Row, « F »), WS. Cellules (celle1.Row, « Q »)). Excentrage (0, rng_step)
rng2 (1, 12). Excentrage (0, 1).FormulaR1C1 = « =SUM (RC [- 12] : RC [- 1]) »
rng2.ClearContents
Pour chaque celle2 dans rng2
Si le WS. _ De pickstart de >= des cellules (1, celle2.Column)
Et le WS. Cellules (1, celle2.Column) <>
|