Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> макрос по перемещению по листам EXCEL 
:(
    Опции темы
leonov2006
Дата 22.5.2006, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.5.2006

Репутация: нет
Всего: нет
Добрый день.
помогите составить макрос Excel
т.е. есть Excel файл многостраничный мне нужно запуская макрос каждый зар перемешаться на следующую страницу
Как это можно реализовать. smile   
PM MAIL   Вверх
Artiom
Дата 22.5.2006, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1031
Регистрация: 11.3.2003
Где: Минск\Баку

Репутация: 1
Всего: 17
Sheets("nameOfSheet").Activate  
это имелось в виду? 


--------------------
Если тебя жизнь трахает, значит, ты ещё живой
PM MAIL ICQ   Вверх
leonov2006
Дата 22.5.2006, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.5.2006

Репутация: нет
Всего: нет
мне нужно при запуске макроса помнить предыущую страницу и открывать для вставкаи значения новую, т.к лист+1 
PM MAIL   Вверх
Artiom
Дата 22.5.2006, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1031
Регистрация: 11.3.2003
Где: Минск\Баку

Репутация: 1
Всего: 17
Вот так проходишь по всем страницам
Код

For ls = 1 To Sheets.Count
 Sheets("Лист" & ls).Activate
 ' обновить данные
 ' запомнить данные для вставки
Next 

 


--------------------
Если тебя жизнь трахает, значит, ты ещё живой
PM MAIL ICQ   Вверх
likhobory
Дата 22.5.2006, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 10
Всего: 20
Код

Sheets(ActiveSheet.Next.Name).Activate
 

Это сообщение отредактировал(а) Staruha - 23.5.2006, 21:27


--------------------
TSC! Russia 
PM MAIL   Вверх
Staruha
Дата 22.5.2006, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Код

Лист1.Range("A1").Value = ActiveSheet.Next.Name
A = Лист1.Range("A1").Value
Sheets(A).Activate
  

Это сообщение отредактировал(а) Staruha - 22.5.2006, 21:16


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0665 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.