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

Вход

Регистрация

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

 

= Мир MS Excel/Не работают вместе Autofill + Resize - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не работают вместе Autofill + Resize (Макросы/Sub)
Не работают вместе Autofill + Resize
Almost Дата: Четверг, 13.10.2016, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Не могу понять, почему не работает код, в интернете и на форуме не удалось найти ответ.
Необходимо автозаполнение колонки справа (нужны формулы, хотя в примере простые значения). Колонки определяются расстоянием от именованного диапазона.
Через копирование и спец. вставку мог бы сделать, но тут уже спортивный интерес, почему не работает Autofill?

[vba]
Код
Sub test()

Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
    Destination:=Cells(1, [Start].Column + 2).Resize(10, 1), Type:=xlFillDefault

End Sub
[/vba]
К сообщению приложен файл: test.xlsb(13Kb)
 
Ответить
СообщениеЗдравствуйте!
Не могу понять, почему не работает код, в интернете и на форуме не удалось найти ответ.
Необходимо автозаполнение колонки справа (нужны формулы, хотя в примере простые значения). Колонки определяются расстоянием от именованного диапазона.
Через копирование и спец. вставку мог бы сделать, но тут уже спортивный интерес, почему не работает Autofill?

[vba]
Код
Sub test()

Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
    Destination:=Cells(1, [Start].Column + 2).Resize(10, 1), Type:=xlFillDefault

End Sub
[/vba]

Автор - Almost
Дата добавления - 13.10.2016 в 09:34
Karataev Дата: Четверг, 13.10.2016, 10:14 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 227 ±
Замечаний: 0% ±

Excel
Диапазон "Destination" должен включать в себя и копируемый диапазон и диапазон, куда вставляются данные:
[vba]
Код
Sub test()
    Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
        Destination:=Cells(1, [Start].Column + 1).Resize(10, 2), Type:=xlFillDefault
End Sub
[/vba]




Сообщение отредактировал Karataev - Четверг, 13.10.2016, 10:22
 
Ответить
СообщениеДиапазон "Destination" должен включать в себя и копируемый диапазон и диапазон, куда вставляются данные:
[vba]
Код
Sub test()
    Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
        Destination:=Cells(1, [Start].Column + 1).Resize(10, 2), Type:=xlFillDefault
End Sub
[/vba]

Автор - Karataev
Дата добавления - 13.10.2016 в 10:14
Almost Дата: Четверг, 13.10.2016, 10:19 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо! Заработало
 
Ответить
СообщениеСпасибо! Заработало

Автор - Almost
Дата добавления - 13.10.2016 в 10:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не работают вместе Autofill + Resize (Макросы/Sub)
Страница 1 из 11
Поиск:

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