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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> History recovery, Excel 
:(
    Опции темы
December
Дата 6.11.2003, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


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

Репутация: нет
Всего: 57
Greetings All!
После исполнения макроса в Ексцеле дохнет история отмены - вся. Как сделать так, чтобы после прогона макроса можно было вернуть данные взад?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Vach
Дата 8.11.2003, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 8
Всего: 18
Сохраняй весь файл самим макросом.
Напиши что-то типа авто бэкапа, пусть хранит пяток версий
(критические изменения вносимые макросом)
+ ini для настроек, или в регистри.
PM MAIL ICQ   Вверх
December
Дата 8.11.2003, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


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

Репутация: нет
Всего: 57
А нет встроенных функций сохранения истории?
Цитата
Сохраняй весь файл самим макросом.
Это я и сам догадался, но делать долго.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Alles
Дата 10.11.2003, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
Хм... если все операции на одном листе !!! копируй лист , а при отмене восстанавливай smile.gif))
PM MAIL ICQ   Вверх
~FoX~
Дата 10.11.2003, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Alles
Хех......а если опирация не одна а скажем 200, и отменить надо только 50 последних?
Что 200 копий листа делать?


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
December
Дата 10.11.2003, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


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

Репутация: нет
Всего: 57
Цитата(Alles @ 10.11.2003, 14:44)
Хм... если все операции на одном листе !!! копируй лист , а при отмене восстанавливай smile.gif))

О! Это уже интереснее! Спасибо.
Цитата

а если операция не одна а скажем 200, и отменить надо только 50 последних

На безрыбье... У меня хоть фатальные последствия макроса пережить и вернуть всё в зад...


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Alles
Дата 11.11.2003, 05:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
FoX ... да тут вариантов много !!! можно и полы покрасить в желтый цвет !

December кинь подробней что надо то , на мыло [email protected] , сегодня весь вечер свободный посижу
PM MAIL ICQ   Вверх
~FoX~
Дата 11.11.2003, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Alles
Согласен, только не в желтый, а полы только зеленый, но с желтыми пятнами ))


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
December
Дата 12.11.2003, 01:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


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

Репутация: нет
Всего: 57
Цитата(Alles @ 10.11.2003, 14:44)
Хм... если все операции на одном листе !!! копируй лист , а при отмене восстанавливай smile.gif))

Джентльмены, покажите, плз, как это сделать. Чувствую, если сделаю сам, будет глюкаво, а ошибки здесь непозволительны.
Хочется, чтобы код искал лист с именем, скажем, "Backup", и, если его нет, создавал, после чего копировал в него текущий лист.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Alles
Дата 12.11.2003, 05:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Private Sub Backup()
s = 0
m = ActiveSheet.Name
For n = 1 To Sheets.Count
If Sheets(n).Name = "Backup" Then s = 1
Next
If s = 0 Then Sheets.Add: ActiveSheet.Name = "Backup"
 Sheets(m).Select
 Cells.Select
 Selection.Copy
 Sheets("Backup").Select
 Cells.Select
 ActiveSheet.Paste
If s = 0 Then Sheets("Backup").Select: Sheets("Backup").Move After:=Sheets(n)

End Sub


Все по твоему вопросу! Если нет листа с именем Backup.... такой создается затем копируются данные с активного листа и Backup перемещается в конец списка листов
PM MAIL ICQ   Вверх
Alles
Дата 12.11.2003, 05:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
Fox может малярами пойдем на полставки..... smile.gif)) у меня тоже куча идей smile.gif))))))))))))))))))))
PM MAIL ICQ   Вверх
December
Дата 12.11.2003, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


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

Репутация: нет
Всего: 57
Alles Thank you very much!


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
~FoX~
Дата 14.11.2003, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
AllesФлейм конечно, но почему бы и нет wink.gif

А чо у тя код такой замороченный?

Sheets("Лист1").Select
Sheets("Лист1").Copy Before:=Sheets(1)

И все wink.gif



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Alles
Дата 14.11.2003, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
Так идей то куча !
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

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


 




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


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

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