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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос ФЕНИКС - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос ФЕНИКС (Удаление макроса макросом или самоликвидирование)
Макрос ФЕНИКС
Fireman13 Дата: Вторник, 23.04.2013, 12:12 | Сообщение № 1
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

Добрый день что то в глобальной сети я ответа не нашел. Friends hellp me. Дело вот такое я создал макрос который при закрытие текущего файла отправлял его в определеное место с определеным именим, но дело в том что при открытие фала он копирует и макрос с тем же путем что и приводит к ошибке. Вот как его ликвидировать?
 
Ответить
СообщениеДобрый день что то в глобальной сети я ответа не нашел. Friends hellp me. Дело вот такое я создал макрос который при закрытие текущего файла отправлял его в определеное место с определеным именим, но дело в том что при открытие фала он копирует и макрос с тем же путем что и приводит к ошибке. Вот как его ликвидировать?
Автор - Fireman13
Дата добавления - 23.04.2013 в 12:12
Fireman13 Дата: Вторник, 23.04.2013, 12:26 | Сообщение № 2
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

ВОт посмотрите.
К сообщению приложен файл: Microsoft_Excel.xlsm (13.2 Kb)
 
Ответить
СообщениеВОт посмотрите.
Автор - Fireman13
Дата добавления - 23.04.2013 в 12:26
Матраскин Дата: Вторник, 23.04.2013, 12:32 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
[vba]
Код
Sub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
[/vba]
это макрос для удаления макросов о_О
ВНИМАНИЕ!!! сделайте копию файла biggrin

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Вторник, 23.04.2013, 12:47
 
Ответить
Сообщение[vba]
Код
Sub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
[/vba]
это макрос для удаления макросов о_О
ВНИМАНИЕ!!! сделайте копию файла biggrin
Автор - Матраскин
Дата добавления - 23.04.2013 в 12:32
Матраскин Дата: Вторник, 23.04.2013, 12:46 | Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
если надо менять что то... то скорей всего выкручивайте через функции. Для примера:
[vba]
Код
Sub change()
Dim i As Integer
     i = 99
     i = path(i)
     MsgBox i
End Sub
Function path(k As Integer)
     path = Cells(1, 1).Value
End Function
[/vba]
идея в том чтобы менять этот путь к файлу...чтобы всё верно работало)) думаю должно получиться

в интернете опять кто-то не прав
 
Ответить
Сообщениеесли надо менять что то... то скорей всего выкручивайте через функции. Для примера:
[vba]
Код
Sub change()
Dim i As Integer
     i = 99
     i = path(i)
     MsgBox i
End Sub
Function path(k As Integer)
     path = Cells(1, 1).Value
End Function
[/vba]
идея в том чтобы менять этот путь к файлу...чтобы всё верно работало)) думаю должно получиться
Автор - Матраскин
Дата добавления - 23.04.2013 в 12:46
Fireman13 Дата: Вторник, 23.04.2013, 13:10 | Сообщение № 5
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

Благодарю. А у вас тут темы как закрываються?

Эдуард Конторин Игоревич
 
Ответить
СообщениеБлагодарю. А у вас тут темы как закрываються?
Автор - Fireman13
Дата добавления - 23.04.2013 в 13:10
Serge_007 Дата: Вторник, 23.04.2013, 13:12 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
http://www.excelworld.ru/faq/theme_delete_close/1-0-2

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеhttp://www.excelworld.ru/faq/theme_delete_close/1-0-2
Автор - Serge_007
Дата добавления - 23.04.2013 в 13:12
Fireman13 Дата: Вторник, 23.04.2013, 13:19 | Сообщение № 7
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

Благодарю

Эдуард Конторин Игоревич
 
Ответить
СообщениеБлагодарю
Автор - Fireman13
Дата добавления - 23.04.2013 в 13:19
Fireman13 Дата: Вторник, 23.04.2013, 13:49 | Сообщение № 8
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

А как удалить весь код не в Модуле1 а например в Книга?
[vba]
Код
Sub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
[/vba]
[admin]
Используйте теги при оформлении кода![/admin]
 
Ответить
СообщениеА как удалить весь код не в Модуле1 а например в Книга?
[vba]
Код
Sub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
[/vba]
[admin]
Используйте теги при оформлении кода![/admin]
Автор - Fireman13
Дата добавления - 23.04.2013 в 13:49
Serge_007 Дата: Вторник, 23.04.2013, 13:52 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
http://www.excelworld.ru/forum/7-3562-1

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/7-3562-1
Автор - Serge_007
Дата добавления - 23.04.2013 в 13:52
Fireman13 Дата: Среда, 24.04.2013, 10:23 | Сообщение № 10
Группа: Заблокированные
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 20% ±

Спасибо за ответ!!! Очень помогло!!!
 
Ответить
СообщениеСпасибо за ответ!!! Очень помогло!!!
Автор - Fireman13
Дата добавления - 24.04.2013 в 10:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос ФЕНИКС (Удаление макроса макросом или самоликвидирование)
  • Страница 1 из 1
  • 1
Поиск:

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