Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Sumowanie kolumn
anonim




Typ: Nie zarejestrowany
Sumowanie kolumn

Prosze o pomoc. Chce aby po naciśnieciu przycisku button nastapilo sumowanie kolumny. Ale wielkosc kolumny ulega zmianie (czasami jest 5 a czasem 30 wpisów). Wynik(suma) powinien ukazac sie pod ostatnim wpisem.

01-09-2004 08:10
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Option Explicit


Sub rewrewrew()
SumujKolumne "A", 1
End Sub

Sub SumujKolumne(sKol As String, odWiersza As Long)
Dim i As Long

i = odWiersza

Do While ThisWorkbook.Worksheets("Arkusz2".Range(sKol & i) <> ""
    i = i + 1
Loop

ThisWorkbook.Worksheets("Arkusz2".Range(sKol & i) = "=SUM(" & sKol & odWiersza & ":" & sKol & i - 1 & ""

End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

01-09-2004 20:10
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1