Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка формул на все листы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка формул на все листы (Макросы/Sub)
Вставка формул на все листы
inohodec Дата: Пятница, 02.03.2018, 17:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер! Вопрос в следующем как вставить формулы на все листы макросом? В ячейках "C28", "C30", "C32", "C34" прописаны формулы. Как их распространить на все листы в книге в ячейки "C4", "C8", "C21", "C23". ;)
[vba]
Код

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
   iWS.Range("C4").Value = Range("C28")
   iWS.Range("C8").Value = Range("C30")
   iWS.Range("C21").Value = Range("C32")
   iWS.Range("C23").Value = Range("C34")
Next iWS
End Sub
[/vba]
К сообщению приложен файл: 6297774.xls(29.5 Kb)


Сообщение отредактировал inohodec - Пятница, 02.03.2018, 17:48
 
Ответить
СообщениеДобрый вечер! Вопрос в следующем как вставить формулы на все листы макросом? В ячейках "C28", "C30", "C32", "C34" прописаны формулы. Как их распространить на все листы в книге в ячейки "C4", "C8", "C21", "C23". ;)
[vba]
Код

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
   iWS.Range("C4").Value = Range("C28")
   iWS.Range("C8").Value = Range("C30")
   iWS.Range("C21").Value = Range("C32")
   iWS.Range("C23").Value = Range("C34")
Next iWS
End Sub
[/vba]

Автор - inohodec
Дата добавления - 02.03.2018 в 17:40
inohodec Дата: Пятница, 02.03.2018, 18:02 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
В результате работы макроса вставляются не формулы а знак "#Н/Д". :(
А как правильно написать надо?
 
Ответить
СообщениеВ результате работы макроса вставляются не формулы а знак "#Н/Д". :(
А как правильно написать надо?

Автор - inohodec
Дата добавления - 02.03.2018 в 18:02
abtextime Дата: Пятница, 02.03.2018, 18:08 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Наверное всё ж таки так

[vba]
Код
Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub
[/vba]
 
Ответить
СообщениеНаверное всё ж таки так

[vba]
Код
Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub
[/vba]

Автор - abtextime
Дата добавления - 02.03.2018 в 18:08
RAN Дата: Пятница, 02.03.2018, 18:19 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4831
Репутация: 968 ±
Замечаний: 0% ±

2010
для того, чтобы что-то куда-то вставлять необходимо, как минимум
1) чтобы было куда вставлять
20 чтобы было что вставлять


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениедля того, чтобы что-то куда-то вставлять необходимо, как минимум
1) чтобы было куда вставлять
20 чтобы было что вставлять

Автор - RAN
Дата добавления - 02.03.2018 в 18:19
inohodec Дата: Пятница, 02.03.2018, 22:52 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Наверное всё ж таки так

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub


abtextime огромное Вам спасибо!!!! hands Я перепробовал всё что знал. И такой вариант тоже пробовал. Вот только сейчас он заработал shock yahoo
 
Ответить
Сообщение
Наверное всё ж таки так

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub


abtextime огромное Вам спасибо!!!! hands Я перепробовал всё что знал. И такой вариант тоже пробовал. Вот только сейчас он заработал shock yahoo

Автор - inohodec
Дата добавления - 02.03.2018 в 22:52
Pelena Дата: Пятница, 02.03.2018, 22:54 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 13017
Репутация: 2874 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
inohodec, не надо цитировать пост целиком, это нарушение Правил форума. Исправьте


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеinohodec, не надо цитировать пост целиком, это нарушение Правил форума. Исправьте

Автор - Pelena
Дата добавления - 02.03.2018 в 22:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка формул на все листы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!