Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - suma tych samych komórek

zbysiomysio · Exceloholic Wersja: Win Office 2003 Posty: 211

Witam
Jak powinno brzmieć polecenie sumowania wartości z tej samej komórki np C4 z zakresu kilku arkuszy. Próbowałem tak, ale pokazuje mi błąd:

Kod:

Sheets("Razem").Range("C4") = Sum("1" & ":" & "31").Range("C4").Value

umiejead · Wysłany: 21-02-2021, 16:16

Kod:

Private Sub CommandButton1_Click()
Dim ws As Worksheet, wsR As Worksheet

Set wsR = Sheets("Razem")

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Razem" Then wsR.Range("C4").Value = _
wsR.Range("C4").Value + ws.Range("C4").Value
Next ws

End Sub

zbysiomysio · Exceloholic Wersja: Win Office 2003 Posty: 211

Czy to jest kod do umieszczenia w arkuszu? Mi chodzi o kod umieszczony w module. Próbowałem przerobić ale jakoś nie bardzo mi to idzie, bo nie chce liczyć. Jeszcze jedno, bo z tego kodu rozumiem, że liczy sumę z wszystkich arkuszy, które nie noszą nazwę "Razem". Jeżeli są natomiast inne arkusze, to powinienem w poniższej linijce dodać nazwy tych arkuszy po słowie And?

Kod:

ws.Name <> "Razem"

Ostatecznie ten kod przerobiłem j.n., ale nie sumuje mi. Coś źle robię?

Kod:

Sub Makro1()
Dim ws As Worksheet, wsR As Worksheet

Set wsR = Sheets("Razem")

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Razem" And ws.Name <> "Dane" Then wsR.Range("C4").Value = _
wsR.Range("C4").Value + ws.Range("C4").Value
Next ws

End Sub

umiejead · Wysłany: 21-02-2021, 18:53

Makro było w arkuszu "Razem" - przeniosłem do Module1, dorzuciłem warunek na arkusz "Dane" - działa bez problemu.

Kod:

Option Explicit

Private Sub Sumuj()
Dim ws As Worksheet, wsR As Worksheet

Set wsR = Sheets("Razem")

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Razem" And ws.Name <> "Dane" Then _
wsR.Range("C4").Value = wsR.Range("C4").Value + ws.Range("C4").Value
Next ws

End Sub

Jedna uwaga: kolejne wykonanie kodu dodaje wartości bez uprzedniego zerowania C4 w arkuszu "Razem".
.

sumy.xlsm

Pobierz Plik ściągnięto 2 raz(y) 18.4 KB

zbysiomysio · Exceloholic Wersja: Win Office 2003 Posty: 211

Sorry. Rzeczywiście działa. Nawet nie wiem co wcześniej robiłem źle. Do tego zrobiłem pętlę obliczającą w następnych wierszach (chyba dobrze, choć może nieudolnie). Ale nie wiem jak w tej pętli zrobić rozszerzenie również na sąsiednie kolumny, t.j., żeby sumowało również w kolumnie D, E i F.
I jak jeszcze można zrobić, żeby w wierszu 84 w arkuszu "Razem" obliczało sumę z tych samych arkuszy (również w kolumnach C, D, E i F), ale nie z jednego wiersza, tylko od 84 do 115 (czyli w komórce "C84" w arkuszu "Razem" byłaby suma z wierszy C84:C115 z wszystkich arkuszy, a w wierszu 86 byłaby suma z wierszy 117:188. Mój kod wygląda teraz tak:

Kod:

Sub Sumuj()
Dim ws As Worksheet, wsR As Worksheet

Set wsR = Sheets("Razem")
For i = 3 To 82
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Razem" And ws.Name <> "Dane" Then _
wsR.Range("C" & i).Value = wsR.Range("C" & i).Value + ws.Range("C" & i).Value
Next ws
Next i

End Sub

umiejead · Wysłany: 21-02-2021, 20:50

Załącz zrobiony ręcznie plik z oczekiwanym rezultatem.
.

zbysiomysio · Exceloholic Wersja: Win Office 2003 Posty: 211

Artik · Wersja: Win Office 365 **Pomógł:** 3091 razy Posty: 10240

Kod:

Sub Sumuj()
Dim wsR As Worksheet

Set wsR = Sheets("Razem")

With wsR.Range("C3:F82")
.FormulaR1C1 = "=SUM('1:8'!RC)"
.Value = .Value
End With

End Sub

Artik

zbysiomysio · Exceloholic Wersja: Win Office 2003 Posty: 211

Dzięki. Kod działa