Макрос на растягивание формул в нескольких ячейках
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
Ответить
Сообщение Здравствуйте уважаемые, подскажите, можно ли сделать макрос на растягивание нескольких формул в нескольких ячейках? Например, у меня есть формулы в ячейках F2 и G2, но на ячейках стоит автоматическое заполнение данных, получаются, что все данные копируются, а они могут различаться, но автоматика подставляет предыдущие данные, можно ли обновить эти формулы, то есть формулы с ячеек F2 и G2 растянуть на все заполненные данные, как бы нажать в нижний правый угол ячейки с формулой, чтобы она сама растянулась. Но у меня таких ячеек с формулами много штук, как-бы напряжно каждую тыркать. Хотелось бы объединить в один макрос. Например формула =ЦЕЛОЕ(ДОЛЯГОДА()) и =ЧИСТРАБДНИ(), можно просто написать "формула1" и "формула2" и на основе этого я допишу остальные. Спасибо большое. Автор - kalendarka Дата добавления - 19.01.2017 в 12:53
китин
Дата: Четверг, 19.01.2017, 13:06 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
формулы в ячейках F2 и G2
не вижу
формулы в ячейках F2 и G2
не вижукитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение формулы в ячейках F2 и G2
не вижуАвтор - китин Дата добавления - 19.01.2017 в 13:06
bmv98rus
Дата: Четверг, 19.01.2017, 13:09 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация:
768
±
Замечаний:
0% ±
Excel 2013/2016
[offtop] китин, Ну как не видно? Открываете любую , даже новую книгу? и вот же они F2, G2 :-) [/offtop] kalendarka , да можно, но без конкретного примера файла от Вас, помочь вам сложно.
[offtop] китин, Ну как не видно? Открываете любую , даже новую книгу? и вот же они F2, G2 :-) [/offtop] kalendarka , да можно, но без конкретного примера файла от Вас, помочь вам сложно. bmv98rus
Замечательный Временно просто медведь , процентов на 20 .
Ответить
Сообщение [offtop] китин, Ну как не видно? Открываете любую , даже новую книгу? и вот же они F2, G2 :-) [/offtop] kalendarka , да можно, но без конкретного примера файла от Вас, помочь вам сложно. Автор - bmv98rus Дата добавления - 19.01.2017 в 13:09
китин
Дата: Четверг, 19.01.2017, 13:10 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
[offtop]Открываете любую , даже новую книгу
не могу. пустые файлы закончились. жду когда подвезут
[offtop]Открываете любую , даже новую книгу
не могу. пустые файлы закончились. жду когда подвезут китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение [offtop]Открываете любую , даже новую книгу
не могу. пустые файлы закончились. жду когда подвезут Автор - китин Дата добавления - 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е формулы, но остальные хочется дописать самой в макрос.
Как пример 2е формулы, но остальные хочется дописать самой в макрос. kalendarka
Ответить
Сообщение Как пример 2е формулы, но остальные хочется дописать самой в макрос. Автор - kalendarka Дата добавления - 19.01.2017 в 14:11
bmv98rus
Дата: Четверг, 19.01.2017, 14:38 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация:
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]
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
Замечательный Временно просто медведь , процентов на 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
Ответить
Сообщение bmv98rus, спасибо огромное, всё получается. Автор - kalendarka Дата добавления - 19.01.2017 в 19:49
kalendarka
Дата: Суббота, 21.01.2017, 14:27 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
здравствуйте всем, столкнулась с небольшой проблемой, когда в предыдущей ячейке нет данных, то формулы не растягиваются как нужно. Как сделать, чтобы они реагировали на первый заполненный столбец. Дело в том, что столбец А всегда заполняется, а остальные ячейки не всегда, значит, если в ячейке столбца А есть данные, то формула может растягивается до этого уровня.
здравствуйте всем, столкнулась с небольшой проблемой, когда в предыдущей ячейке нет данных, то формулы не растягиваются как нужно. Как сделать, чтобы они реагировали на первый заполненный столбец. Дело в том, что столбец А всегда заполняется, а остальные ячейки не всегда, значит, если в ячейке столбца А есть данные, то формула может растягивается до этого уровня. kalendarka
Сообщение отредактировал kalendarka - Суббота, 21.01.2017, 14:27
Ответить
Сообщение здравствуйте всем, столкнулась с небольшой проблемой, когда в предыдущей ячейке нет данных, то формулы не растягиваются как нужно. Как сделать, чтобы они реагировали на первый заполненный столбец. Дело в том, что столбец А всегда заполняется, а остальные ячейки не всегда, значит, если в ячейке столбца А есть данные, то формула может растягивается до этого уровня. Автор - kalendarka Дата добавления - 21.01.2017 в 14:27
bmv98rus
Дата: Суббота, 21.01.2017, 15:11 |
Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4107
Репутация:
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] но есть еще масса вариантов.
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
Замечательный Временно просто медведь , процентов на 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