Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос смены листов в excel. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос смены листов в excel. (Макросы Sub)
Макрос смены листов в excel.
Alex123 Дата: Четверг, 10.10.2013, 12:45 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!

Нужна помощь по макросу.
На работе есть файл excel с множеством листов в нём. Попросил друга написать макрос для быстрой смены листов. Мне он написал "болванку" этого макроса, я копировал его в свой файл на работе. Всё работает, но время от времени (примерно через минут 40 - час) Excel завершает работу аварийно и, соответственно, теряется часть выполненной работы.

Буду благодарен за помощь! :)
К сообщению приложен файл: Macro.xlsm (23.0 Kb)


Сообщение отредактировал Alex123 - Четверг, 10.10.2013, 19:39
 
Ответить
СообщениеЗдравствуйте!

Нужна помощь по макросу.
На работе есть файл excel с множеством листов в нём. Попросил друга написать макрос для быстрой смены листов. Мне он написал "болванку" этого макроса, я копировал его в свой файл на работе. Всё работает, но время от времени (примерно через минут 40 - час) Excel завершает работу аварийно и, соответственно, теряется часть выполненной работы.

Буду благодарен за помощь! :)
Автор - Alex123
Дата добавления - 10.10.2013 в 12:45
Poltava Дата: Четверг, 10.10.2013, 13:31 | Сообщение № 2
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация: 50 ±
Замечаний: 0% ±

1) Не вижу в макросе ничего критического, нужно более точно знать все условия при которых эксель слетает
2) Макрос можно положить в персоналбук и тогда он будет доступен в любой книге
 
Ответить
Сообщение1) Не вижу в макросе ничего критического, нужно более точно знать все условия при которых эксель слетает
2) Макрос можно положить в персоналбук и тогда он будет доступен в любой книге
Автор - Poltava
Дата добавления - 10.10.2013 в 13:31
SkyPro Дата: Четверг, 10.10.2013, 13:34 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Не берусь утверждать, но думаю, что крит происходит по причине переполнения памяти (пускай сейчас меня запинают программисты). Я бы очищал все переменные после срабатывания макроса.

skypro1111@gmail.com
 
Ответить
СообщениеНе берусь утверждать, но думаю, что крит происходит по причине переполнения памяти (пускай сейчас меня запинают программисты). Я бы очищал все переменные после срабатывания макроса.
Автор - SkyPro
Дата добавления - 10.10.2013 в 13:34
RAN Дата: Четверг, 10.10.2013, 14:23 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Попробуйте заменить закомментированные строки так
[vba]
Код
'Public OriginalSheet As Object
Dim OriginalSheetName As String
' Set OriginalSheet = ActiveSheet
OriginalSheetName = ActiveSheet.Name
' OriginalSheet.Activate
Sheets(OriginalSheetName).Activate
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 10.10.2013, 14:24
 
Ответить
СообщениеПопробуйте заменить закомментированные строки так
[vba]
Код
'Public OriginalSheet As Object
Dim OriginalSheetName As String
' Set OriginalSheet = ActiveSheet
OriginalSheetName = ActiveSheet.Name
' OriginalSheet.Activate
Sheets(OriginalSheetName).Activate
[/vba]
Автор - RAN
Дата добавления - 10.10.2013 в 14:23
Alex123 Дата: Пятница, 18.10.2013, 12:11 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо всем :) hands
 
Ответить
СообщениеСпасибо всем :) hands
Автор - Alex123
Дата добавления - 18.10.2013 в 12:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос смены листов в excel. (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!