Автоматическая вставка макроса в тело листа (не в модуль)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Автоматическая вставка макроса в тело листа (не в модуль) (Макросы/Sub)

olegglebovich

Дата: Четверг, 14.01.2021, 12:30 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте.
Подскажите, пожалуйста, как автоматически вставить макрос в тело нового открытого листа?
Подробнее во вложении

К сообщению приложен файл: _8487667-.xlsb (18.0 Kb)

Ответить

Serge_007

Дата: Четверг, 14.01.2021, 14:58 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

А что такое "тело листа"?

Это Ваш препод так говорит?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

olegglebovich

Дата: Четверг, 14.01.2021, 16:07 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Извините за корявый язык. Имелось ввиду: вставить макрос в VBAProject в рабочую книгу не в сам модуль, а модуль листа

Ответить

Апострофф

Дата: Четверг, 14.01.2021, 16:24 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

olegglebovich, уточните -
лист НОВЫЙ создан макросом
или просто вновь открытый макросом?

Ответить

RAN

Дата: Четверг, 14.01.2021, 16:26 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ежели вам шашечки (для препода), то курите deal

а ежели ехать, то смотрите

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

Ответить

olegglebovich

Дата: Четверг, 14.01.2021, 20:47 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Лист новый, создан макросом. И я уже давно не ученик и не студент, но с программированием еще на "ВЫ" (ЧАЙНИК)

Ответить

Апострофф

Дата: Четверг, 14.01.2021, 21:17 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

"как автоматически вставить макрос из тела этого листа (будет храниться в личной книге макросов) в тело каждого вновь открытого макросом листа" - это из Вашего файла цитата.
А не проще ли скопировать лист с макросом? В новом листе будет то что вы хотите - модуль с нужным макросом.

Ответить

olegglebovich

Дата: Четверг, 14.01.2021, 22:09 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

стоит задача создания годового архива. Листы новые, созданные макросом, частота открытий в день от 10 до 20. Делать всё руками муторно

Ответить

Апострофф

Дата: Четверг, 14.01.2021, 23:08 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

Цитата olegglebovich, 14.01.2021 в 22:09, в сообщении № 8 ()

Делать всё руками муторно

Муторно что? Запустить макрос, который скопирует Ваш лист с модулем в новый лист с этим же модулем в другую книгу?

Ответить

olegglebovich

Дата: Пятница, 15.01.2021, 10:37 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Имя листа есть текущая дата и время, и я не знаю как сделать такой макрос

Ответить

RAN

Дата: Пятница, 15.01.2021, 10:49 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата olegglebovich, 15.01.2021 в 10:37, в сообщении № 10 ()

и я не знаю как сделать такой макрос

Вы же не спрашиваете, как сделать то, что вам нужно. Вы спрашиваете, как сочинить нечто, весьма мало подходящее для решения вашей задачи.

Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(Now, "dd_mm_yyyy hh_nn")

PS Теги VBA вообще не вставляются, дабы не делать попугая, не вставил ничего.

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

Сообщение отредактировал RAN - Пятница, 15.01.2021, 10:53

Ответить

Serge_007

Дата: Пятница, 15.01.2021, 11:07 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[offtop]

Цитата RAN, 15.01.2021 в 10:49, в сообщении № 11 ()

Теги VBA вообще не вставляются

Да, что-то сломалось, вчера ещё работало...[/offtop]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Pelena

Дата: Пятница, 15.01.2021, 11:19 | Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант, можно вставить макрос в модуль книги, тогда он будет работать на любом листе, в том числе на вновь созданном
[vba]

Код

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim cell As Range
With Sh
For Each cell In .Range("G28:J28")
cell = cell.Offset(-1)
If cell >= cell.Offset(4) Then
cell.Interior.Color = RGB(255, 0, 0)
ElseIf cell > cell.Offset(3) Then
cell.Interior.Color = RGB(0, 255, 0)
Else
cell.Interior.Color = RGB(255, 242, 204)
End If
Next cell
End With
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

olegglebovich

Дата: Пятница, 15.01.2021, 13:19 | Сообщение № 14

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Я совсем запутался! Этот макрос у меня уже работает. Задача в другом: при создании макроса макрорекордером он не видит модуль самого листа и в итоге в модуле макроса остается только Sub, The Sub и коменты.
Макрос находящийся в модуле листа не копируется. А написать нужный макрос ручками не могу - нет нужных знаний
Цитата: "Как вариант, можно вставить макрос в модуль книги, тогда он будет работать на любом листе, в том числе на вновь созданном"- попробовал, ничего не меняется