Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование в диапазон, Excel / 3 сообщений из 3, страница 1 из 1
23.04.2016, 17:58
    #39223112
YoHnA
YoHnA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование в диапазон, Excel
Доброго времени суток.

Никак не пойму, почему 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, 19:37
    #39223166
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование в диапазон, Excel
Код: vbnet
1.
Sheets(Name_sheet).Range(Sheets(Name_sheet).Cells(7, i), Sheets(Name_sheet).Cells(52, (i + 1))).PasteSpecial
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2016, 20:00
    #39223172
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование в диапазон, Excel
YoHnAпочему Excel не нравится строчка 8. По синтаксису Range вроде бы все правильно
Как обратиться к диапазону из VBA
Вкратце: внутри Range Cells без явного указания листа будут относится к активному листу. Т.к. для Range у Вас указан "Name_sheet", а для Cells нет - то получается, что Вы пытаетесь объединить в одном Range ячейки разных листов, что и вызывает ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование в диапазон, Excel / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 441ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2173097]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 65ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 286ms
total:  441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]