Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
x
x
Закрыть


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