Копирование в диапазон, Excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование в диапазон, Excel

3 сообщений из 3, страница 1 из 1

Копирование в диапазон, Excel

#39223112

YoHnA

Гость

Доброго времени суток.

Никак не пойму, почему Excel не нравится строчка 8. По синтаксису Range вроде бы все правильно, но вот именно когда диапазон описан через cells, выкидывает ошибку 400 и все тут. Наверное, я что-то не совсем понимаю в Range, Помогите, пожалуйста.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Worksheets("SpecialSheet").Range("A2:B47").Copy
Worksheets(Name_sheet).Range("A7:A52").PasteSpecial
For i = 3 To DD Step 2
    Ned = Weekday(Worksheets(Name_sheet).Cells(5, i).Value, vbMonday)
    Select Case Ned
        Case 1
            Worksheets("SpecialSheet").Range("C2:D47").Copy
            Sheets(Name_sheet).Range(Cells(7, i), Cells(52, (i + 1))).PasteSpecial
    End select
Next

...

Рейтинг:

0 / 0

23.04.2016, 17:58

| Ответить | Цитировать | Написать

Копирование в диапазон, Excel

#39223166

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

Sheets(Name_sheet).Range(Sheets(Name_sheet).Cells(7, i), Sheets(Name_sheet).Cells(52, (i + 1))).PasteSpecial

...

Рейтинг:

0 / 0

23.04.2016, 19:37

| Ответить | Цитировать | Написать

Копирование в диапазон, Excel

#39223172

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

YoHnAпочему Excel не нравится строчка 8. По синтаксису Range вроде бы все правильно
Как обратиться к диапазону из VBA
Вкратце: внутри Range Cells без явного указания листа будут относится к активному листу. Т.к. для Range у Вас указан "Name_sheet", а для Cells нет - то получается, что Вы пытаетесь объединить в одном Range ячейки разных листов, что и вызывает ошибку.

...

Рейтинг:

0 / 0

23.04.2016, 20:00

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование в диапазон, Excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=39223166&tid=2173097]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	29ms
get topic data:	11ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	2ms
others:	289ms

total:	410ms