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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на растягивание формул в нескольких ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на растягивание формул в нескольких ячейках (Формулы/Formulas)
Макрос на растягивание формул в нескольких ячейках
kalendarka Дата: Четверг, 19.01.2017, 12:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте уважаемые, подскажите, можно ли сделать макрос на растягивание нескольких формул в нескольких ячейках?
Например, у меня есть формулы в ячейках F2 и G2, но на ячейках стоит автоматическое заполнение данных, получаются, что все данные копируются, а они могут различаться, но автоматика подставляет предыдущие данные, можно ли обновить эти формулы, то есть формулы с ячеек F2 и G2 растянуть на все заполненные данные, как бы нажать в нижний правый угол ячейки с формулой, чтобы она сама растянулась. Но у меня таких ячеек с формулами много штук, как-бы напряжно каждую тыркать. Хотелось бы объединить в один макрос.
Например формула =ЦЕЛОЕ(ДОЛЯГОДА()) и =ЧИСТРАБДНИ(), можно просто написать "формула1" и "формула2" и на основе этого я допишу остальные. Спасибо большое.
 
Ответить
СообщениеЗдравствуйте уважаемые, подскажите, можно ли сделать макрос на растягивание нескольких формул в нескольких ячейках?
Например, у меня есть формулы в ячейках F2 и G2, но на ячейках стоит автоматическое заполнение данных, получаются, что все данные копируются, а они могут различаться, но автоматика подставляет предыдущие данные, можно ли обновить эти формулы, то есть формулы с ячеек F2 и G2 растянуть на все заполненные данные, как бы нажать в нижний правый угол ячейки с формулой, чтобы она сама растянулась. Но у меня таких ячеек с формулами много штук, как-бы напряжно каждую тыркать. Хотелось бы объединить в один макрос.
Например формула =ЦЕЛОЕ(ДОЛЯГОДА()) и =ЧИСТРАБДНИ(), можно просто написать "формула1" и "формула2" и на основе этого я допишу остальные. Спасибо большое.
Автор - kalendarka
Дата добавления - 19.01.2017 в 12:53
китин Дата: Четверг, 19.01.2017, 13:06 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата kalendarka, 19.01.2017 в 12:53, в сообщении № 1 ()
формулы в ячейках F2 и G2

не вижу

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата kalendarka, 19.01.2017 в 12:53, в сообщении № 1 ()
формулы в ячейках F2 и G2

не вижу
Автор - китин
Дата добавления - 19.01.2017 в 13:06
bmv98rus Дата: Четверг, 19.01.2017, 13:09 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
[offtop] китин,
Ну как не видно? Открываете любую , даже новую книгу? и вот же они F2, G2 :-) [/offtop]

kalendarka,

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

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[offtop] китин,
Ну как не видно? Открываете любую , даже новую книгу? и вот же они F2, G2 :-) [/offtop]

kalendarka,

да можно, но без конкретного примера файла от Вас, помочь вам сложно.
Автор - bmv98rus
Дата добавления - 19.01.2017 в 13:09
китин Дата: Четверг, 19.01.2017, 13:10 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[offtop]
Цитата bmv98rus, 19.01.2017 в 13:09, в сообщении № 3 ()
Открываете любую , даже новую книгу

не могу. пустые файлы закончились. жду когда подвезут :D

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение[offtop]
Цитата bmv98rus, 19.01.2017 в 13:09, в сообщении № 3 ()
Открываете любую , даже новую книгу

не могу. пустые файлы закончились. жду когда подвезут :D
Автор - китин
Дата добавления - 19.01.2017 в 13:10
kalendarka Дата: Четверг, 19.01.2017, 13:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Простите, подвезу, но попозже.
 
Ответить
СообщениеПростите, подвезу, но попозже.
Автор - kalendarka
Дата добавления - 19.01.2017 в 13:49
kalendarka Дата: Четверг, 19.01.2017, 14:11 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Как пример 2е формулы, но остальные хочется дописать самой в макрос.
К сообщению приложен файл: _Microsoft_Exce.xls (29.5 Kb)
 
Ответить
СообщениеКак пример 2е формулы, но остальные хочется дописать самой в макрос.
Автор - kalendarka
Дата добавления - 19.01.2017 в 14:11
bmv98rus Дата: Четверг, 19.01.2017, 14:38 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
kalendarka, для конкретного примера [vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("f2").Offset(0, -1).End(xlDown).Row - 1)
[/vba]
но если не во второй строке формула, то лучше
[vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("f2").Offset(0, -1).End(xlDown).Row -Range("F2:G2").row + 1)
[/vba]

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Четверг, 19.01.2017, 14:42
 
Ответить
Сообщениеkalendarka, для конкретного примера [vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("f2").Offset(0, -1).End(xlDown).Row - 1)
[/vba]
но если не во второй строке формула, то лучше
[vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("f2").Offset(0, -1).End(xlDown).Row -Range("F2:G2").row + 1)
[/vba]
Автор - bmv98rus
Дата добавления - 19.01.2017 в 14:38
kalendarka Дата: Четверг, 19.01.2017, 19:49 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
bmv98rus, спасибо огромное, всё получается.
 
Ответить
Сообщениеbmv98rus, спасибо огромное, всё получается.
Автор - kalendarka
Дата добавления - 19.01.2017 в 19:49
kalendarka Дата: Суббота, 21.01.2017, 14:27 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
здравствуйте всем, столкнулась с небольшой проблемой, когда в предыдущей ячейке нет данных, то формулы не растягиваются как нужно. Как сделать, чтобы они реагировали на первый заполненный столбец.
Дело в том, что столбец А всегда заполняется, а остальные ячейки не всегда, значит, если в ячейке столбца А есть данные, то формула может растягивается до этого уровня.
К сообщению приложен файл: 6277261.xls (34.0 Kb)


Сообщение отредактировал kalendarka - Суббота, 21.01.2017, 14:27
 
Ответить
Сообщениездравствуйте всем, столкнулась с небольшой проблемой, когда в предыдущей ячейке нет данных, то формулы не растягиваются как нужно. Как сделать, чтобы они реагировали на первый заполненный столбец.
Дело в том, что столбец А всегда заполняется, а остальные ячейки не всегда, значит, если в ячейке столбца А есть данные, то формула может растягивается до этого уровня.
Автор - kalendarka
Дата добавления - 21.01.2017 в 14:27
bmv98rus Дата: Суббота, 21.01.2017, 15:11 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
kalendarka,

[vba]
Код
Range("f2").Offset(0, -1).End(xlDown).Row
[/vba] -1 означает просто столбец левее. то есть можете поставить такое смещение , которое хотите.
но если известно что столбец A,то просто
[vba]
Код
Range("A2").End(xlDown).Row
[/vba]
финальная будет например [vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("A2").End(xlDown).Row -Range("F2:G2").row + 1)
[/vba] но есть еще масса вариантов.

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 21.01.2017, 15:27
 
Ответить
Сообщениеkalendarka,

[vba]
Код
Range("f2").Offset(0, -1).End(xlDown).Row
[/vba] -1 означает просто столбец левее. то есть можете поставить такое смещение , которое хотите.
но если известно что столбец A,то просто
[vba]
Код
Range("A2").End(xlDown).Row
[/vba]
финальная будет например [vba]
Код
Range("F2:G2").AutoFill Destination:=Range("F2:G2").Resize(Range("A2").End(xlDown).Row -Range("F2:G2").row + 1)
[/vba] но есть еще масса вариантов.
Автор - bmv98rus
Дата добавления - 21.01.2017 в 15:11
kalendarka Дата: Суббота, 21.01.2017, 15:32 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
bmv98rus, спасибо огромное, поняла.
 
Ответить
Сообщениеbmv98rus, спасибо огромное, поняла.
Автор - kalendarka
Дата добавления - 21.01.2017 в 15:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на растягивание формул в нескольких ячейках (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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