Hej Ma ktoś pomysł jak obliczyć średnią w kilku kolumnach na raz ? Chciałbym usprawnić swoją pracę...
Korzystam z libre office calc lub google docs. Standardowo muszę zaznaczać 3 wiersze w kolumnie, a następnie "wybierz funkcję" > "średnia". Trochę czasu to zajmuje ;/
@ManfredMacx: No ale to będę musiał ręcznie przepisywać - jeszcze dłużej mi to zajmie ;/ @steamy_window: Umiesz coś więcej na ten temat powiedzieć, albo odesłać w konkretne miejsce ? ( ͡°͜ʖ͡°)
Sub Main Dim Doc As Object Dim Sheet As Object Dim Cell As Object
Doc = ThisComponent Sheet = Doc.Sheets(0)
Dim S ' pierwszy piersz Dim K ' ostatni wiersz For S = 1 To 10 K = S*(3+1)-1 Doc = ThisComponent Sheet = Doc.Sheets(0) ' trzeba podać wiersz i kolumnę Cell = Sheet.getCellByPosition(2, 0+(3+1)*S) Cell.Formula = "=AVG(C"+S+":C"+(S+3)+")" Next S
@steamy_window: Serdecznie dziękuję za poświęcony czas ! Szczerze to na nic nie liczyłem ;D Żeby użyć tego macra mam je zarejestrować w libre calc lub google doc ?
ta gembicka na kazdym plocie u mnie w okolicy wisiala.. no coz troche sie zdziwilem, bo na plaktach tak nie wyglądała XDD nawet w tym aspekcie pisowcy #oszukujo #sejm #polityka
Ma ktoś pomysł jak obliczyć średnią w kilku kolumnach na raz ?
Chciałbym usprawnić swoją pracę...
Korzystam z libre office calc lub google docs. Standardowo muszę zaznaczać 3 wiersze w kolumnie, a następnie "wybierz funkcję" > "średnia". Trochę czasu to zajmuje ;/
Dziękuję i pozdrawiam!
#excel
@steamy_window: Umiesz coś więcej na ten temat powiedzieć, albo odesłać w konkretne miejsce ? ( ͡° ͜ʖ ͡°)
Sub Main
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Dim S ' pierwszy piersz
Dim K ' ostatni wiersz
For S = 1 To 10
K = S*(3+1)-1
Doc = ThisComponent
Sheet = Doc.Sheets(0)
' trzeba podać wiersz i kolumnę
Cell = Sheet.getCellByPosition(2, 0+(3+1)*S)
Cell.Formula = "=AVG(C"+S+":C"+(S+3)+")"
Next S
End Sub
Żeby użyć tego macra mam je zarejestrować w libre calc lub google doc ?