Как суммировать ту же ячейку из динамических листов в другой ячейке в мастер-листе, используя vba?

Question

У меня есть рабочая книга с главным листом (называемым итоговым объемом данных), а затем несколько других листов с данными, названными по дате данных (например, «05.23.19»).Я получаю новые данные каждый день, поэтому я добавляю новый лист каждый день.Я хотел бы суммировать, скажем, ячейку F3 из каждого листа рабочей книги в ячейку A1.

Я новичок в VBA, поэтому я учусь, как я пытаюсь.Я пробовал цикл For Each, но каждый раз получал ответные сообщения об ошибках, в которых говорилось, например, «объект не найден».Я знаю, что приведенный ниже код неверен, но я думал, что делаю что-то вроде этого:

Sub SumSheets()

Dim ws As Worksheet

For Each ws In ThisActiveWorkbook

'select cell F3 in every sheet (exept the master sheet "Data Total" and sum them in cell A1'

Answer 1

Это будет суммировать итоговые значения в ячейке F3 каждого листа в рабочей книге (кроме итоговых данных), а затем устанавливать итоговые значения на листе итоговых данных в ячейке A1.

Sub SumSheets()

Dim ws As Worksheet
Dim sumTotal As Double

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Data Total" Then
        sumTotal = sumTotal + ws.Range("F3").Value
    End If

Next

Sheets("Data Total").Range("A1").Value = sumTotal

End Sub