Мой первый макрос

[valerij]

Сообщение от SAS888

Можно макросом в нужную ячейку вставить формулу. Тогда она будет следить. Например:

Sheets(14).Cells(7, 5).Formula = "=SUM(" & Sheets(1).Name & ":" & Sheets(13).Name & "!R42C6)"

А что значит ".Name " ?
Он пытается N раз что то открыть
Все, Понял.

[SAS888]

Если в ячейку листа Excel вставить, например, формулу "=СУММ(Лист1:Лист13!F42)", где "Лист1" - имя первого нужного листа, "Лист13" - имя последнего нужного листа, то в ней будет подсчитана сумма ячеек "F42" листов от "Лист1" до "Лист13".
Мы ничего не открываем.

[valerij]

А эту формулу:
"=SUM('ЛЕН:Ц-31'!R[35]C[1])"
можно через переменную
"=SUM('ЛЕН:Ц-31'!R[ndd]C[1])"
или через Offse, как то сделать?

With Sheets(14).Range("E7").Offset(dat)
                          .Formula = "=SUM('ЛЕН:Ц-31'!R[ndd &]C[1])"
                          '.Value = .Value
          End With

Где "ndd" = 35 а потом с шагом 48
Где "dat" = 0 то 30

[SAS888]

То, что в кавычках, компилятор понимает как текст. Можно сформировать любую текстовую строку, используя &.
Например:
"=SUM('ЛЕН:Ц-31'!R[" & ndd & "]C[1])"
Т.е. сцепляем часть текста, значение переменной ndd и еще часть текста.

[valerij]

Сообщение от SAS888

То, что в кавычках, компилятор понимает как текст. Можно сформировать любую текстовую строку, используя &.
Например:
"=SUM('ЛЕН:Ц-31'!R[" & ndd & "]C[1])"
Т.е. сцепляем часть текста, значение переменной ndd и еще часть текста.

Ага, блин, забыл, делал так
"=SUM('ЛЕН:Ц-31'!R["ndd & "]C[1])"
естественно, ошибка.
SAS
Спасибо!

З. ы.
SAS
а пост #87, как решить?

[SAS888]

Прочтите внимательно последний абзац поста № 87.
Имя листа неоткрытой книги получить невозможно. Обращение только явное.

[valerij]

Сообщение от SAS888

Прочтите внимательно последний абзац поста № 87.

То я понял, я не понял это:
Range("A1").FormulaR1C1 = "=C:\Temp["Июль.xls"]Лист1'!RC"

[SAS888]

Правильно так:

Range("A1").FormulaR1C1 = "='C:\Temp[Июль.xls]Лист1'!RC"

[valerij]

Почему, так, нельзя подсчитать сумму, синтаксис ВБА принимает?
Cells(31, 1) = Sum(Cells(1, 1), Cells(30, 1))

а так, можно!
Cells(3, 3) = Day(Cells(1, 5) - 1)

[SAS888]

В VBA можно использовать функцию рабочего листа Excel WorksheetFunction объекта Application. Например, как в Вашем примере,

[A31] = Application.Sum([A1], [A30])

, хотя, в данном случае это ни к чему. Можно просто

[A31] = [A1] + [A30]

Смысл есть тогда, когда необходимо просуммировать данные в диапазоне. Например,

[A31] = Application.Sum([A1:A30])

или, если у Вас строки (столбцы) вдальнейшем будут выражаться через переменные, то так:

Cells(31, 1) = Application.Sum(Range(Cells(1, 1), Cells(30, 1)))

По поводу

Cells(3, 3) = Day(Cells(1, 5) - 1)

я не понял вопроса.