Макрос для добавления кода в исходный код страницы

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

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

Макрос для добавления кода в исходный код страницы (Макросы/Sub)

Zagit12

Дата: Четверг, 17.01.2019, 13:44 | Сообщение № 1

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

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

Сообщений: 31

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

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

Excel 2016

Добрый день!
Есть код для добавления страницы с датой завтрашнего дня, но при этом еще требуется вставлять исходный код в страницу, можно как то дополнить код чтобы было автоматизировано а не правой клавишей добавлять?
[vba]

Код

Sub Ìàêðîñ_ïåðåíîñà()
'
' Ìàêðîñ_ïåðåíîñà Ìàêðîñ
'

'
    Cells.Select
    Selection.Copy
    Dim sname As String
sname = CStr(Format(1 + Now, "dd.mm.yyyy"))
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = sname
    ActiveSheet.Paste
        For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
        If Len(Cells(i, 4)) Then Rows(i).Delete
    Next
End Sub

[/vba]

Сообщение отредактировал Zagit12 - Четверг, 17.01.2019, 13:45

Ответить

_Boroda_

Дата: Четверг, 17.01.2019, 13:49 | Сообщение № 2

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Сделайте заранее лист с нужным кодом (можно скрыть, чтобы не мешался) и его уже копируйте/размножайте

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Zagit12

Дата: Четверг, 17.01.2019, 13:59 | Сообщение № 3

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

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

Сообщений: 31

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

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

Excel 2016

Цитата _Boroda_, 17.01.2019 в 13:49, в сообщении № 2 ()

Сделайте заранее лист с нужным кодом (можно скрыть, чтобы не мешался) и его уже копируйте/размножайте

я просто хочу автоматизировать всё это дело

Ответить

китин

Дата: Четверг, 17.01.2019, 14:06 | Сообщение № 4

Группа: Модераторы

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

Сообщений: 7029

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

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

Excel 2007;2010;2016

[vba]

Код

Sub Ìàêðîñ2()


   Dim sname As String
   sname = CStr(Format(1 + Now, "dd.mm.yyyy"))

    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = sname


End Sub

[/vba]
в файле кнопочку нажмите

К сообщению приложен файл: ghj-f.xls (36.5 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Четверг, 17.01.2019, 14:11 | Сообщение № 5

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Я догадался. И что? Я Вам предлагаю самый простой вариант. Было бы еще проще копировать лист с текущей (последней имеющейся в файле) датой, но Вы ж пример не приложили, а по коду непонятна принадлежность ячеек cells

** Вот, как раз именно это Игорь и сделал (я про копирование последнего листа)