удаление листа, на котором сам макрос - Мир MS Excel

Регистрация

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

= Мир MS Excel/удаление листа, на котором сам макрос - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление листа, на котором сам макрос (Макросы/Sub)

удаление листа, на котором сам макрос

Дата: Воскресенье, 20.03.2016, 21:49 | Сообщение № 1

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

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

Сообщений: 27

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

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

Excel 2003

есть макрос. запускается кнопкой. трудится, старается. чистит соседние листы от формул. но нужно чтоб после отработки он удалял тот лист, на котором находится сам.
[vba]

Код

Workbooks("файл.xls").Sheets("лист").Application.DisplayAlerts = False
End Sub

[/vba]
такая штука в конце вызывает ошибку. да, и желательно без запроса на подтверждение удаления.

подсобите =)

а, да, эксель 2003

Сообщение отредактировал Manyasha - Понедельник, 21.03.2016, 10:11

Ответить

Дата: Воскресенье, 20.03.2016, 21:58 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 2519

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

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

2010

Это разовая процедура? Написали макрос на листе -- запустили -- очистили все --удалил себя вместе с листом. Второй чистки не будет, а если будет вновь пишем макрос .... Для чего это так? Нельзя макрос в обычном модуле записать? И пусть он остается для многоразового использования.

ЯД-41001506838083

Сообщение отредактировал gling - Воскресенье, 20.03.2016, 21:59

Ответить

Дата: Воскресенье, 20.03.2016, 22:01 | Сообщение № 3

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

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

Сообщений: 27

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

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

Excel 2003

gling, база копируется перед отправкой куда нить начем отдела (рабочий стол), удаляются все формулы, и лист, на котором помимо кнопы запуска макроса куча промежуточной лабуды и база, откуда выбирается ниспадающем меню значения. через кнопу им понятнее всего

удалить на живой базе все формулы - это ппц мне головняк потом, 15 минут трудиться восстанавливать) а там еще форматы, и прочие радости жизни, и док в общем доступе)

Сообщение отредактировал lordua - Воскресенье, 20.03.2016, 22:03

Ответить

Дата: Воскресенье, 20.03.2016, 22:03 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Макрос не может удалить сам себя. В принципе. по той же причине, по которой нельзя вытащить себя из болота за волосы. Пропишите
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets(<Имя_или_идекс_листа_с_макросом>).Delete

End Sub

[/vba]
в модуль книги, а
[vba]

Код

ThisWorkbook.Save

[/vba]
в конец макроса.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Воскресенье, 20.03.2016, 22:04 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

lordua, так сделайте "кнопу" в отдельном файле.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Воскресенье, 20.03.2016, 22:07 | Сообщение № 6

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

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

Сообщений: 27

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

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

Excel 2003

StoTisteg, ThisWorkbook.Save chfpe сразу желтым бьет

Ответить

Дата: Воскресенье, 20.03.2016, 22:07 | Сообщение № 7

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

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

Сообщений: 27

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

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

Excel 2003

StoTisteg, вариант... но хотелось бы все в одном) не получится - так и сделаю

а встречный вопрос. в рабочем файле можно сделать, чтоб отработал макрос через кнопу, и что получилось одним листом скопировалось бы на с:/ к примеру? так ваще идеально было б

точнее, как сделать) такой вариант нуваще идеален был бы

Сообщение отредактировал lordua - Воскресенье, 20.03.2016, 22:10

Ответить

Дата: Воскресенье, 20.03.2016, 22:32 | Сообщение № 8

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Да ради Бога.
[vba]

Код

Sub Копирование()

    Dim Имя As String
    i As Integer

    Имя = ThisWorkbook.Name
    Workbooks.Add
    Do While Err.Number = 0
        On Error Resume Next
        Worksheets(1).Delete
    Loop
    For i = 1 To Workbooks(Имя).Sheets.Count
        With Workbooks(Имя).Worksheets(i)
            If .Worksheets(i).Name <> "Лист с макросом" Then
                Worksheets.Add after:=Worksheet(Sheets.Count)
                .Cells.Copy Destination:=Cells
            End If
        End With
    Next i
    Worksheets(1).Delete
    ActiveWorkbook.SaveAs Filename:="C:\Копия.xlsx"

End Sub

[/vba]
Естественно, вместо "Лист с макросом" и "C:\Копия.xlsx" пропишите реально нужные данные.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Воскресенье, 20.03.2016, 22:34

Ответить

Дата: Воскресенье, 20.03.2016, 22:42 | Сообщение № 9

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

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

Сообщений: 27

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

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

Excel 2003

StoTisteg, вот неудобно понимать, что ты дибил, и не шаришь. а иногда нужно. я - дибил в программировании.

код макроса (удаляет формулы)
[vba]

Код

Private Sub CommandButton1_Click()
Application.ScreenUpdating = 0
With Sheets("111")
With .Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell))
.Copy
.PasteSpecial (xlPasteValues)
End With
End With
End Sub

[/vba]
где 111 - лист, откуда убираются формулы. его же желательно отдельным файлом сохранить. после обработки

как туда добавить ваш код?( прошу прощения за дибильный вопрос

и да, офис 2003. *.xlsx не подходит

Сообщение отредактировал Manyasha - Понедельник, 21.03.2016, 10:11

Ответить

Дата: Воскресенье, 20.03.2016, 22:45 | Сообщение № 10

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

В конец Вашего макроса
[vba]

Код

Call Копирование

[/vba]
мой макрос — в Модуль1.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Воскресенье, 20.03.2016, 22:48 | Сообщение № 11

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

И вообще просто копируйте сразу:
[vba]

Код

Sub Копирование()

     Dim Имя As String
     i As Integer

     Имя = ThisWorkbook.Name
     Workbooks.Add
     Do While Err.Number = 0
         On Error Resume Next
         Worksheets(1).Delete
     Loop
     For i = 1 To Workbooks(Имя).Sheets.Count
         With Workbooks(Имя).Worksheets(i)
                 Worksheets.Add after:=Worksheet(Sheets.Count)
                 .Cells.Copy
                 Cells.PasteSpecial (xlPasteValues)
                 Cells.PasteSpecial (xlPasteFormats)
         End With
     Next i
     Worksheets(1).Delete
     ActiveWorkbook.SaveAs Filename:="C:\Копия.xlsx"

End Sub

[/vba]
А лист с макросом выбросьте совсем.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Воскресенье, 20.03.2016, 22:52

Ответить

Дата: Воскресенье, 20.03.2016, 22:53 | Сообщение № 12

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

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

Сообщений: 27

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

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

Excel 2003

Цитата StoTisteg, 20.03.2016 в 22:45, в сообщении № 10

В конец Вашего макроса
Call Копирование

мой макрос — в Модуль1.

вот такое

К сообщению приложен файл: 0418338.jpg (9.3 Kb) · 2720534.jpg (7.4 Kb)

Сообщение отредактировал lordua - Воскресенье, 20.03.2016, 22:54

Ответить

Дата: Воскресенье, 20.03.2016, 22:56 | Сообщение № 13

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

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

Сообщений: 27

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

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

Excel 2003

Цитата StoTisteg, 20.03.2016 в 22:48, в сообщении № 11

А лист с макросом выбросьте совсем.

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

и там вспомогательных листов штуки 3, если не ошибаюсь. "так надо", как мне сказали. а нужен лист с базой и без формул и ссылок

Сообщение отредактировал lordua - Воскресенье, 20.03.2016, 22:59

Ответить

Дата: Воскресенье, 20.03.2016, 23:01 | Сообщение № 14

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Цитата lordua, 20.03.2016 в 22:56, в сообщении № 13

выбросить совсем его нельзя

Тогда просто верните тот if, что был в первом варианте. Где-то так.

К сообщению приложен файл: Macros.xlsm (14.0 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Воскресенье, 20.03.2016, 23:53 | Сообщение № 15

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Цитата StoTisteg, 20.03.2016 в 22:03, в сообщении № 4

Макрос не может удалить сам себя

Не совсем так.

В модуль листа:
[vba]

Код

Public Sub www()
Me.Move
ActiveWorkbook.Close 0
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Дата: Понедельник, 21.03.2016, 01:51 | Сообщение № 16

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата lordua, 20.03.2016 в 22:07, в сообщении № 7

что получилось одним листом скопировалось бы на с:/
так ваще идеально было б

Смотрите здесь
http://www.excelworld.ru/forum/3-6954-1

Сообщение отредактировал Wasilich - Понедельник, 21.03.2016, 01:52

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление листа, на котором сам макрос (Макросы/Sub)

Страница 1 из 1
1

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