VBA.Mania

vbamania.pl

Dziś jest piątek, 10 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	SUMY????? otwarty rozpoczął: Unimil postów: 3

napisał: Unimil postów: 3 umieszczony: 16 maja 2005 11:03
	Dzięki za pomoc. dzial wysmienicie

napisał: admin postów: 613 umieszczony: 14 maja 2005 16:07
	Witam, Musisz pamiętać o tym, że własciwości .End jak też .Offset zwracają komórkę (zmienną typu Range). To znaczy jeśli ją zwracają, to możemy się do nich dostać. Ponieważ jest to zmienna obiektowa to dostaniemy się do niej przy użyciu komendy Set. Oto moja propozycja: Sub Sumuj() Dim oStart As Range, oStop As Range 'komórka startowa Set oStart = Range("A1") 'komórka końcowa Set oStop = oStart.End(xlDown) 'Wpisujemy oStop.Offset(1, 0).Formula = "=SUM(" & oStart.Address & ":" & oStop.Address & ")" 'Zwalniamy pamięć Set oStart = Nothing Set oStop = Nothing End Sub :D

napisał: Unimil postów: 3 umieszczony: 13 maja 2005 12:19
	Witajcie, mam taki problem ...załóżmy że mam kolumne w EXCELU, której zawartością są jakieś liczby, a wielkość tej kolumny zmienia się codziennie. Moja krótka procedurka ma za zadanie przefiltrowanie kolumny po rządanych wartkościach a na końcu zsumowanie wartości pozostałych po filtrowaniu... I tutaj zaczynają sie schody ponieważ za każdym razem po filtrowaniu pozostaje inna ilośc wierszy i nie wiem jak zautomatyzować to aby EXCEL sumował wartości nie znając wcześniej adresu komórki na której sumowanie miałby zakończyć. Kod który po przefiltrowaniu zaznacza kamórke która znajduje sie ponizej ostatniej przefiltrowanej komórki wyglada następująco: Range("A1").Select ActiveCell.End(xlDown).Select ActiveCell.Offset(1, 0).Select no i jak wykonać programową prosta funkcje sum() skoro za kazdym razem nie znam adresu jednej z komórek czyli = sum(A1:?) :\| Prosze o pomoc Pozdrawiam

wstecz 1 dalej

wszystkich stron: 1