Автоматическое создание макроса

[lavrentiyy]

Приветствую, коллеги!
Столкнулся с проблемой -
Я автоматически при щелчке на ячейку создаю(!) .xls файл.
Возможно ли в этот файл запихнуть макрос, т.е. чтоб файл создавался УЖЕ с макросом?
Вот такая у меня беда.
Если такое возможно, выложу xls-файл.

[doober]

Проблем нет.Выполните код.Для другой книги замените ThisWorkbook на нужную книгу

Sub SAM()
Set tt = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
 tt.CodeModule.InsertLines 1, " Sub MY_MACRO() " & vbCrLf & "  msgbox 123" & vbCrLf & "End Sub"

End Sub

[doober]

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

[EducatedFool]

Возможно ли в этот файл запихнуть макрос, т.е. чтоб файл создавался УЖЕ с макросом?

Как вам уже сказали, это возможно, но нежелательно.

Я так понял, что вы намереваетесь создать МНОГО таких файлов, и в каждом будет один и тот же макрос.
Через неделю-другую поймёте, что в макросе надо поменять пару строк - и что будете делать?
Писать ещё один макрос на замену тех макросов?

Поместите свои макросы в надстройку - и проблем не будет.

Сложно посоветовать что-то более конкретное, не зная, что за макрос вы используете, и для чего.

Сообщение от doober

Удобно текст макроса сохранить в текстовие

Ещё удобнее текст макроса хранить в модуле листа.
Копируем лист в новую книгу - и код копируется автоматически.
В этом случае совсем необязательно, чтобы в настройках Excel был разрешён доступ к VB Project

[lavrentiyy]

Итак, господа программисты, вновь прошу Вашей квалифицированной помощи. В общем, проблема:
Создаю по методике doober"а модуль, в нем че-то там записываю, это не сильно важно.
Беда в том, что не выполняется функция, записанная в этом модуле, какие бы события я не пробовал обрабатывать.
Мож надо че-то в настройках экселя поменять?

[EducatedFool]

Мож надо че-то в настройках экселя поменять?

Мож результаты своих творений выложите в виде файла?

[doober]

Не знаю.у меня макрос выполняется в сохраненной книге.
Можете проверить.Создается книга Пример

[lavrentiyy]

Не понятно
Короче, при щелчке на любом товаре в прайс-листе, создается файл, в который я и помещаю модуль.

[doober]

Конкретно по теме-макрос записи работает нормально.
Но то что он пишет работать не будет.
Вы попробуйте выполнить сам код в книге,которую создали.
Этот Код в событие листа ставить не надо.
Ме не используйте.если не знаете как использовать.
Посмотрите диапазон формул.В формулу не вникал.
Замените так

Sub Wo_Calculate()
    'сколько на мотке
    'номер строки
    i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    j = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
     
    'i - от будем идти, j - до чего
    Worksheets(1).[H5].Value = "Использовано"
    Worksheets(1).[I5].FormulaLocal = "=СУММ(B" & i & ":B" & j & ")"
    
   Worksheets(1).[H6].Value = "На барабане"
   Worksheets(1).[I6].FormulaLocal = "=A" & i & "-I5"

End Sub

В событие книги добавте код,как в моем примере,на запуск .Только в модуль книги

Private Sub Workbook_Open()
Wo_Calculate
End Sub

[lavrentiyy]

Ну формула это не важно и сам макрос это не важно.
Это я так образно написал, чтоб потом мысль не потерять
Пробовал

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    MsgBox "!!!"
End Sub

все равно не запускается