![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 1 Всего: 60 |
Как скопировать (другими словами - размножить) данные на листе в Excel? Т.е. выделить уже готовую область, вместе с размером ячеек, линиями, формулами, и пр. и скопировать ее на эту же страницу вниз под первую область.
Если приведете пример - буду благодарен, причем не важно на каком языке он будет, думаю разберусь. -------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
remax |
|
|||
![]() Доцент ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 686 Регистрация: 7.4.2002 Где: Украина, Харьков Репутация: нет Всего: 5 |
А в чем проблема с обычным выделить->copy->paste? Или весь прикол в том, чтобы сделать это не руками а программой?
-------------------- Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку |
|||
|
||||
Darksquall |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 326 Регистрация: 22.1.2004 Где: Москва Репутация: нет Всего: 4 |
угу Копировать> Вставить
или public data as variant sub a() data=range("A1:E10") range("A51:E60")=data end sub во как :-) |
|||
|
||||
Cashey |
|
||||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 1 Всего: 60 |
А ты догадливый ![]()
что-то я сомневаюсь.... но проверю -------------------- библия учит любить ближнего, а камасутра обучает как именно |
||||
|
|||||
Darksquall |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 326 Регистрация: 22.1.2004 Где: Москва Репутация: нет Всего: 4 |
а че тут сомневаться variant excel сам обработает. :-)
|
|||
|
||||
mr.DUDA |
|
|||
![]() 3D-маньяк ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 8244 Регистрация: 27.7.2003 Где: город-герой Минск Репутация: нет Всего: 232 |
Всё работает.
А если хочется именно через Copy/Paste, то:
(только после этого остаётся рамка и выделение) -------------------- ![]() |
|||
|
||||
Darksquall |
|
||||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 326 Регистрация: 22.1.2004 Где: Москва Репутация: нет Всего: 4 |
а для того что бы убрать рамку.Просто выделяем какую нибудь ячейку. Sub a() Range("A1:E10").Select Cells(1, 10).Select End Sub |
||||
|
|||||
Cashey |
|
||||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 1 Всего: 60 |
Выдает ошибку: Невозможно получить свойство Select класса Range А делаю я так:
Вероятно наследую не правильно, но вот как правильно, вот в чем вопрос ![]() ![]() -------------------- библия учит любить ближнего, а камасутра обучает как именно |
||||
|
|||||
Darksquall |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 326 Регистрация: 22.1.2004 Где: Москва Репутация: нет Всего: 4 |
Ну правильно.
Set sheet1 = ActiveSheet sheet1.Range("A1:B2").Select Range входит в Activesheet и в другие классы не помня какие. А просто range не бывает! Это сообщение отредактировал(а) Darksquall - 29.3.2004, 15:13 |
|||
|
||||
Cashey |
|
|||
![]() Бессмертный ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 1 Всего: 60 |
Так у меня он не просто сам по себе, а как подкласс Sheet[1]. Правда когда я заменил на ActiveSheet ошибка перестала генерится, но область не скопировалась.
-------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
Darksquall |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 326 Регистрация: 22.1.2004 Где: Москва Репутация: нет Всего: 4 |
а почему не хочешь просто через переменную
data=range("A1:E10")? какой у тебя офис? |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Программирование, связанное с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |