Неправильное присваивание значения ячейке

[4istii_listo4ek]

Скачать Лист Microsoft Excel.xls с WebFile.RU
Создано Microsoft Office Excel 2010. Неправильно работает макрос:

Sub Создание_листа()
Dim A As String
A = "=" & Date - 1 & "!D2 + I2"
Sheets.Add.Name = "Test"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Всего шт."
Range("B2").Select
ActiveCell.FormulaR1C1 = A
End Sub

И вместо присваивания ячейке B2 значения

=14.10.2010!D2 + I2

макрос присваивает этой ячейке значение

='14.10.2010'!'D2' + 'I2'

Помогите, пожалуйста, решить проблему.

[motorway]

Если вы хотите сослаться на другой лист, то в некоторых случаях добавляются эти одинарные кавычки. Так и должно быть для даты, а вот остальные кавычки, наверно, надо убрать

ActiveCell.Formula = "=" & Date - 1 & "!D2 + I2"

[4istii_listo4ek]

Они добавляются сами, в том то и дело

[4istii_listo4ek]

Макрос превращает строку

"=" & Date - 1 & "!D2 + I2"

в

='14.10.2010'!'D2' + 'I2'

а нужно, чтобы превращал в

=14.10.2010!D2 + I2

[motorway]

Посмотрите пример выше, я добавил
Первые кавычки добавляются Экселом, так должно быть

[4istii_listo4ek]

Я пробовал и так:

Sub Создание_листа()
Sheets.Add.Name = "Test"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Всего шт."
Range("B2").Select
ActiveCell.FormulaR1C1 = "=" & Date - 1 & "!D2 + I2"
End Sub

Результат тот же самый.

[4istii_listo4ek]

Как бы я ни пробовал, хоть

ActiveCell.FormulaR1C1 = "=I2+" & Date - 1 & "!D2"

всё равно всё берётся в кавычки

='I2'+'14.10.2010'!'D2'

[motorway]

Вы видите мое сообщение? Посмотрите наверх, там есть пример кода

[4istii_listo4ek]

Извините, не заметил, что там без R1C1. И это помогло!!! Спасибо Вам огромное!!!

[R Dmitry]

Сообщение от 4istii_listo4ek

Я пробовал и так:

Результат тот же самый.

попробуйте так
Sub Создание_листа()
Dim A As String
A = "=" & Date - 1 & "!D2 + I2"
Sheets.Add.Name = "Test"
Sheets("Test").Range("B1") = "Всего шт."
Sheets("Test").Range("B2").Formula = A
End Sub
да и I2 будет относится соответственно к листу test, a D2 к листу 14.10.2010

это результат
='14.10.2010'!D2 + I2
motorway все правильно Вам написал