 |
|
Модераторы: mihanik |
 
|
|
Копирование области данных, в Excel 
| Cashey |
|
|||
 Бессмертный  Профиль Группа: Завсегдатай Сообщений: 3441 Регистрация: 13.11.2002 Где: в столице Репутация: 1 Всего: 60 |
Как скопировать (другими словами - размножить) данные на листе в Excel? Т.е. выделить уже готовую область, вместе с размером ячеек, линиями, формулами, и пр. и скопировать ее на эту же страницу вниз под первую область.
Если приведете пример - буду благодарен, причем не важно на каком языке он будет, думаю разберусь. -------------------- библия учит любить ближнего, а камасутра обучает как именно |
|||
|
||||
Дата 2.3.2004, 15:13 (
Загрузка ...
| 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 во как :-) |
|||
|
||||
Дата 4.3.2004, 16:07 (
| 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 | Следующая тема » |
[ Время генерации скрипта: 0.0747 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |