Создание листа с одновременным созданием формулы на ячейку нового листа - Microsoft Office Excel

ShamanK · 02.05.2010, 21:29

Парни подскажите пожалуйста как сделать следующее:

есть лист в котором таблица с данными.
программно создается новая учетная запись в новом листе,
а в листе с таблицей данных по всем учетным записям должна создаваться самая простая формула которая из только что созданного листа из ячейки берет данные .

создание нового листа

PHP код:


			
Dim sht, sht1, wksh3  As Worksheet, s As Integer



Set sht1 = Worksheets("Рабочая")

Set wksh3 = Worksheets("STAK")

s = Sheets.Count

Sheets.Add After:=Sheets(s)

Set sht = Sheets(s + 1)

sht.Name = sht1.Cells(1, "B") + 1

формула которая должна брат значения с нового листа

PHP код:


			
wksh3.Range("k" & wksh2.Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=sht.Name!R4C4"

проблема в

PHP код:


			
"=sht.Name!R4C4"

выдает результат

PHP код:


			
#ССЫЛКА

=sht.Name!$D$4

подскажите как динамически подставлять sht.Name в формулу чтобы не было ошибки ??

Cpluser · 02.05.2010, 21:43

"=sht.Name!R4C4" так может тут ошибка не в етом попробуйте вот так "=sht.Name!R4+C4"

ShamanK · 02.05.2010, 21:51

Цитата:

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

"=sht.Name!R4C4" так может тут ошибка не в етом попробуйте вот так "=sht.Name!R4+C4"

проблема как раз в sht.Name

IgorGO · 02.05.2010, 21:57

= "=" & sht.name & "!R4C4"

ShamanK · 02.05.2010, 22:00

Цитата:

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

= "=" & sht.name & "!R4C4"

Большое спасибо - работает!

02.05.2010, 21:29	#1
ShamanK Пользователь Регистрация: 16.10.2009 Сообщений: 90	Создание листа с одновременным созданием формулы на ячейку нового листа Парни подскажите пожалуйста как сделать следующее: есть лист в котором таблица с данными. программно создается новая учетная запись в новом листе, а в листе с таблицей данных по всем учетным записям должна создаваться самая простая формула которая из только что созданного листа из ячейки берет данные . создание нового листа PHP код: `Dim sht, sht1, wksh3 As Worksheet, s As Integer Set sht1 = Worksheets("Рабочая") Set wksh3 = Worksheets("STAK") s = Sheets.Count Sheets.Add After:=Sheets(s) Set sht = Sheets(s + 1) sht.Name = sht1.Cells(1, "B") + 1` формула которая должна брат значения с нового листа PHP код: `wksh3.Range("k" & wksh2.Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=sht.Name!R4C4"` проблема в PHP код: `"=sht.Name!R4C4"` выдает результат PHP код: `#ССЫЛКА =sht.Name!$D$4` подскажите как динамически подставлять sht.Name в формулу чтобы не было ошибки ??

02.05.2010, 21:57	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	= "=" & sht.name & "!R4C4" Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Простая тема)_создание нового листа	женя2010	Microsoft Office Excel	2	21.04.2010 17:21
Картинку в ячейку листа	GWolf	Microsoft Office Excel	3	16.04.2009 17:51
Макрос для создания нового листа в др.книге	natty29	Microsoft Office Excel	3	14.02.2009 06:46
Вставка нового листа.	tae1980	Microsoft Office Excel	3	05.02.2009 05:18
создание нового листа	cathie	Microsoft Office Excel	2	12.12.2007 15:49

02.05.2010, 21:43	#2
Cpluser Форумчанин Регистрация: 16.02.2009 Сообщений: 555	"=sht.Name!R4C4" так может тут ошибка не в етом попробуйте вот так "=sht.Name!R4+C4"