Pytanie : Dlaczego móc I pasmo komórka w worksheet inny teren w the ten sam worksheet opierać się daleko the wartość komórka wewnątrz Przodować 2007?

Cześć,

I potrzeba sprawnie programatically pasmo komórka w przodować workbook inny teren w the ten sam workbook opierać się daleko the wartość the początek i data końca w the worksheet.  The worksheet który I dołączać pokazywać próbka dane.  W Ten Sposób, jeżeli I potrzebować the wybór data początkowa rzecz, I potrzebować w ten sposób wszystko the wartość w the miesiąc kolumna i ono według the nowy wybór data początkowa.  Także, jeżeli the ekspiracja data końca zmieniać, I potrzebować ono stosownie.  Być vba ewentualny vba?
Example.xlsx (8 KB) (Kartoteka Typ Szczegół)
Sample data

Odpowiedź : Dlaczego móc I pasmo komórka w worksheet inny teren w the ten sam worksheet opierać się daleko the wartość komórka wewnątrz Przodować 2007?

daintysally,

The kod kartoteka być w the dołączać kartoteka.

Nadzieja ono robić ty ty chcieć.

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:

Okręt podwodny specialmacro ()
Ciemnawy ws Jako Worksheet
Ciemnawy rng1 Pasmo
Ciemnawy celle1 Pasmo
Ciemnawy rng2 Pasmo
Ciemnawy celle2 Pasmo
Ciemnawy pickstart Data
Ciemnawy ekspiracja Data
Ciemnawy pickweek Długo
Ciemnawy rng_step Długo
Ciemnawy step_counter Długo

Set ws = Ciąć na arkusze ("Przykład-Przed")

Set rng1 = ws. Pasmo (ws. Komórka (2, "A"), ws. Komórka (ws. Rows.Count, "A"). Końcówka (xlUp))
pickweek = 3

step_counter = (0)
Dla rng_step = (0) 26 Krok 13
    Dla Rng1 celle1 W rng1
        pickstart = celle1.Offset ((0), 3)
        ekspiracja = celle1.Offset ((0), 4)
        Set rng2 = Pasmo (ws. Komórka (celle1.Row, "F"), ws. Komórka (celle1.Row, "Q")). Odsadzka ((0), rng_step)
        rng2 ((1), 12). Odsadzka ((0), 1).FormulaR1C1 = "=SUM (RC [- 12]: RC [- (1)])"
        rng2.ClearContents
        Dla Rng2 celle2 W rng2
            Jeżeli ws. Komórka ((1), celle2.Column) >= pickstart _
                I ws. Komórka ((1), celle2.Column)  <>
Inne rozwiązania  
 
programming4us programming4us