[KwasneJablko]

#vba #excel

Hej,

chce sumowac 15 minutowe interwaly aby wynikiem byly 30 minutowe interwaly. Czego mi w makrze brakuje, ale nie wiem juz o co chodzi.

Wynik powinien byc

3
7

a dostaje

1
3

Co robie zle?

Sub min30()

Dim Ary As Variant, Nary As Variant

Dim R As Long, c As Long

Dim rCell As Range

Dim rOutput As Range

Ary = Selection

Set rOutput = Application.InputBox("Select destination cell (can be the same as the input range)", Type:=8)

ReDim Nary(1 To UBound(Ary) / 2, 1 To UBound(Ary, 2))

For R = 1 To UBound(Ary) - 1 Step 2

Nary((R + 1) / 2, 1) = Ary(R, 1)

For c = 2 To UBound(Ary, 2)

Nary((R + 1) / 2, c) = CDbl(Ary(R, c)) + CDbl(Ary(R + 1, c))

Next c

Next R

rOutput.Resize(UBound(Ary, 1) / 2, UBound(Ary, 2)).Value = Nary

End Sub

[brak_nicku]

Co robie zle?

@KwasneJablko: na pewno źle formatujesz wklejony kod, poza tym nie wiadomo po co są 2 zagnieżdżone pętle, z czego zewnętrzna przepisuje co drugi element do tablicy wyjściowej, a wewnętrzna nie robi nic - na przykładowym rysunku jest jedna kolumna, a pętla zaczyna się od 2.

[KwasneJablko]

@brak_nicku: Czesciowo dziala ale musze miec wiecej niz jeden rzad zaznaczony, no i z jakiegos powodu w Output(2) pierwszy rzad jest zle cos pododawany ale drugi i trzeci rzad(w 2) jest juz tak jak potrzeba.

Any ideas?

[brak_nicku]

@KwasneJablko: już napisałem co jest na pierwszy rzut oka nie tak:
To jest po nic:

Nary((R + 1) / 2, 1) = Ary(R, 1)

Tu trzeba zacząć od 1 a nie od

[KwasneJablko]

@brak_nicku: dziekuje!!! gdzie moge wyslac p--o?

[brak_nicku]

@KwasneJablko: do gardła