Заполнение шаблона и создание отдельных листов. VBA - Microsoft Office Excel

Lonlilokli · 29.08.2023, 15:17

Прошу помощи. Как поменять код, чтобы копировалась формула в нужную ячейку, а не значение?
.Range("AK154").Value = base(i, 18)
И как сделать так, чтобы сохраняемые листы были только со значениями.

SAS888 · 30.08.2023, 08:07

В Вашем случае ячейке присваивается значение из массива, который хранит исключительно значения (без формул, форматов и т.п.). Формулу нужно КОПИРОВАТЬ непосредственно из ячейки (диапазона) в ячейку (диапазон).
Для того, чтобы лист содержал только имеющиеся на данный момент значения, нужно перед сохранением скопировать ячейку (диапазон) и поместить в то же место, но только как значения (специальной вставкой). Или забрать все данные в массив, затем выгрузить их на лист. Например:

Код:

Sheets("Лист1").UsedRange.Value = Sheets("Лист1").UsedRange.Value

nilem · 30.08.2023, 12:59

Если в base(i, 18) находится значение типа "=RC[1]*RC[2]", то можно вставить и формулу.

MikeVol · 03.09.2023, 21:53

Здравствуйте @Lonlilokli. В этой теме вам что-то не подошло?

29.08.2023, 15:17	#1
Lonlilokli Новичок Джуниор Регистрация: 29.08.2023 Сообщений: 1	Заполнение шаблона и создание отдельных листов. VBA Прошу помощи. Как поменять код, чтобы копировалась формула в нужную ячейку, а не значение? .Range("AK154").Value = base(i, 18) И как сделать так, чтобы сохраняемые листы были только со значениями.

30.08.2023, 08:07	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	В Вашем случае ячейке присваивается значение из массива, который хранит исключительно значения (без формул, форматов и т.п.). Формулу нужно КОПИРОВАТЬ непосредственно из ячейки (диапазона) в ячейку (диапазон). Для того, чтобы лист содержал только имеющиеся на данный момент значения, нужно перед сохранением скопировать ячейку (диапазон) и поместить в то же место, но только как значения (специальной вставкой). Или забрать все данные в массив, затем выгрузить их на лист. Например: Код: `Sheets("Лист1").UsedRange.Value = Sheets("Лист1").UsedRange.Value` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Заполнение листа из шаблона	YaFakir	Microsoft Office Excel	5	16.09.2013 11:42
Создание листов из шаблона	Peresvetihe	Microsoft Office Excel	7	27.06.2013 14:17
создание и заполнение word шаблона	tel79222960001	Microsoft Office Excel	1	27.07.2012 18:28
Заполнение шаблона данными из xml	Sorro	Microsoft Office Word	2	18.02.2010 09:55
Макрос для сохранения листов в отдельных файлах	Neo007	Microsoft Office Excel	2	22.10.2008 18:16

30.08.2023, 12:59	#3
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	Если в base(i, 18) находится значение типа "=RC[1]*RC[2]", то можно вставить и формулу.

03.09.2023, 21:53	#4
MikeVol Пользователь Регистрация: 19.07.2021 Сообщений: 21	Здравствуйте @Lonlilokli. В этой теме вам что-то не подошло?