sub t() application.displayalerts = false for each w in thisworkbook.sheets if instr(w.name, "добавлено") = 0 then w.visible = -1: w.delete next application.displayalerts = true end sub
[/vba]
[vba]
Код
sub t() application.displayalerts = false for each w in thisworkbook.sheets if instr(w.name, "добавлено") = 0 then w.visible = -1: w.delete next application.displayalerts = true end sub
Когда к вопросу прикладывается файл, об этом в правилах написано, то и ответ, как правило с файлом, кодом или формулой. На компактный вопрос - компактный ответ.
Цитата (ikki)
я так писал?
Видно глюк. Исправил
Цитата (Ros)
Здорово! Спасибо за ответ!
Когда к вопросу прикладывается файл, об этом в правилах написано, то и ответ, как правило с файлом, кодом или формулой. На компактный вопрос - компактный ответ.
в первом посте вы писали одно, по факту - другое. а потом у вас появляются "ксожаления". но мысли, что вы таки были неправы, проигнорировав правила форума и рекомендации и не приложив файл - опять же не возникает. я уже не удивляюсь, что у вас не возникает мысли извиниться.
в этом макросе регистр символов имеет значение. либо пишите "Добавлено", либо добавьте в самое начало модуля (не макроса! а именно модуля) строку [vba]
Код
Option Compare Text
[/vba]
и ещё. пожалуйста. постарайтесь не менять свой ник. а я обещаю запомнить этот.
Цитата (Ros)
К сожалению, макрос удаляет все листы в книге
в первом посте вы писали одно, по факту - другое. а потом у вас появляются "ксожаления". но мысли, что вы таки были неправы, проигнорировав правила форума и рекомендации и не приложив файл - опять же не возникает. я уже не удивляюсь, что у вас не возникает мысли извиниться.
в этом макросе регистр символов имеет значение. либо пишите "Добавлено", либо добавьте в самое начало модуля (не макроса! а именно модуля) строку [vba]
Код
Option Compare Text
[/vba]
и ещё. пожалуйста. постарайтесь не менять свой ник. а я обещаю запомнить этот.ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Вторник, 05.02.2013, 18:58
в первом посте вы писали одно, по факту - другое. а потом у вас появляются "ксожаления".
Именно поэтому я, как правило, не даю решения, если нет файла. Чаще всего не угадаешь, а потом еще и виноват окажешься. До файла мой ответ был бы аналогичен ответам AlexM, и RAN,.
Цитата (ikki)
в первом посте вы писали одно, по факту - другое. а потом у вас появляются "ксожаления".
Именно поэтому я, как правило, не даю решения, если нет файла. Чаще всего не угадаешь, а потом еще и виноват окажешься. До файла мой ответ был бы аналогичен ответам AlexM, и RAN,.Michael_S
ikki, Какие мысли? В чем неправ то? Проигнорировал правила форума? Да, не приложил файл, но из вопроса вполне ясно, что хотелось сделать. [b][b]В первом посте полностью совпадает мысль с последним (регистр символов имеет значение, только в этом первый пост не совпадает, но я бы и сам разобрался в вопросе). Если же хочется найти изъяны в сообщении и посоревноваться в красноязычии, это конечно Вам в +. Совершенно ясно, что хотелось не узнать что это вообще можно сделать, а как это сделать. Ведь так? (Ведь Вы же сразу написали решение, а все остальное бесполезный флуд и показ своего величия) А дальше начались попытки найти изъяны в сообщении. Так? Или это желание показать свое преимущество в данном вопросе? Вы очень вежливо себя вели. У Вас же не возникает желание извиниться за корректность беседы? Спасибо за ответ, но наверное в свете нашей беседы мне не совсем правильно пользоваться плодами Вашего труда (нашел аналогичную тему на другом форуме - ...etaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=21854. - буду пользоваться.
P/S/ Я ник не меняю. Вы с какой целью собираетесь запомнить? Я не скрываюсь. Вы хотите встретится или на форуме реагировать? Я обещаю Вас запомнить.
ikki, Какие мысли? В чем неправ то? Проигнорировал правила форума? Да, не приложил файл, но из вопроса вполне ясно, что хотелось сделать. [b][b]В первом посте полностью совпадает мысль с последним (регистр символов имеет значение, только в этом первый пост не совпадает, но я бы и сам разобрался в вопросе). Если же хочется найти изъяны в сообщении и посоревноваться в красноязычии, это конечно Вам в +. Совершенно ясно, что хотелось не узнать что это вообще можно сделать, а как это сделать. Ведь так? (Ведь Вы же сразу написали решение, а все остальное бесполезный флуд и показ своего величия) А дальше начались попытки найти изъяны в сообщении. Так? Или это желание показать свое преимущество в данном вопросе? Вы очень вежливо себя вели. У Вас же не возникает желание извиниться за корректность беседы? Спасибо за ответ, но наверное в свете нашей беседы мне не совсем правильно пользоваться плодами Вашего труда (нашел аналогичную тему на другом форуме - ...etaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=21854. - буду пользоваться.
P/S/ Я ник не меняю. Вы с какой целью собираетесь запомнить? Я не скрываюсь. Вы хотите встретится или на форуме реагировать? Я обещаю Вас запомнить.Ros
Сообщение отредактировал Ros - Среда, 06.02.2013, 10:26
Ок, обязуюсь прикладывать файл с примером (только из-за правил форума). Но прошу Вас никогда не реагировать на мои сообщения! Это будет обоюднополезно! Спасибо!
Ок, обязуюсь прикладывать файл с примером (только из-за правил форума). Но прошу Вас никогда не реагировать на мои сообщения! Это будет обоюднополезно! Спасибо!Ros
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
