Vraag : Hoe kan ik een waaier van cellen in een aantekenvel aan een ander gebied in het zelfde die aantekenvel weg van de waarde van een cel in Excel 2007 wordt gebaseerd kopiëren?

Hello,/>I blinkt de behoefte

Example.xlsx (8 KB) Sample data

Antwoord : Hoe kan ik een waaier van cellen in een aantekenvel aan een ander gebied in het zelfde die aantekenvel weg van de waarde van een cel in Excel 2007 wordt gebaseerd kopiëren?

daintysally,

De code is hieronder in het dossier in bijlage.

De hoop het doet wat u wilt.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Sub specialmacro ()
Schemerige ws als Aantekenvel
Schemerige rng1 als Waaier
Schemerige celle1 als Waaier
Schemerige rng2 als Waaier
Schemerige celle2 als Waaier
Schemerige pickstart als Datum
Schemerige afloop als Datum
Schemerige pickweek zoals lang
Schemerige rng_step zoals lang
Schemerige step_counter zoals lang

Vastgesteld ws = Bladen („voorbeeld-vóór“)

Reeks rng1 = ws. Waaier (ws. Cellen (2, „A“), ws. Cellen (ws. Rows.Count, „A“). Eind (xlUp))
pickweek = 3

step_counter = 0
Voor rng_step = 0 tot 26 Stap 13
    Voor Elke celle1 in rng1
        pickstart = celle1.Offset (0, 3)
        afloop = celle1.Offset (0, 4)
        Reeks rng2 = Waaier (ws. Cellen (celle1.Row, „F“), ws. Cellen (celle1.Row, „Q“)). Compensatie (0, rng_step)
        rng2 (1, 12). Compensatie (0, 1) .FormulaR1C1 = „=SUM (RC [- 12]: RC [- 1])“
        rng2.ClearContents
        Voor Elke celle2 in rng2
            Als ws. Cellen (1, celle2.Column) >= pickstart _
                En ws. Cellen (1, celle2.Column)  <>
Andere oplossingen  
 
programming4us programming4us