Удаление значений из диапазонов ячеек со всех листов - Мир MS Excel

Регистрация

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

= Мир MS Excel/Удаление значений из диапазонов ячеек со всех листов - Мир MS Excel

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

Удаление значений из диапазонов ячеек со всех листов (Макросы/Sub)

Удаление значений из диапазонов ячеек со всех листов

Дата: Четверг, 28.09.2017, 14:31 | Сообщение № 1

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

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

Сообщений: 1002

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

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

Excel 2010

Добрый день многоуважаемые форумчане!
Возможно ли как то улучшить макрос, потому как данный макрос записывал McroRecorder.
[vba]

Код

Sub Макрос1()
' Макрос1 Макрос
    Range("B15:I49,K2:K10,P2:P10").Select
    Range("P2").Activate
    Selection.ClearContents
    Sheets("2").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("B15:I49,K2:K10,P2:P10").Select
    Range("P2").Activate
    Selection.ClearContents
    Sheets("3").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B15:I49,K2:K10,P2:P10").Select
    Range("P2").Activate
    Selection.ClearContents
End Sub

[/vba]
В файле имеется 31 лист (по типу это даты месяца) и хотелось чтоб именно с этих листов удалялись значения из диапазонов: B15:I49,K2:K10,P2:P10
Помогите пожалуйста, заранее спасибо...
То что это как то так:
[vba]

Код

Sub Макрос1()
Range("B15:I49,K2:K10,P2:P10").ClearContents
End Sub

[/vba]
Но как быть с листами

:'(

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 28.09.2017, 14:34

Ответить

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

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

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

Сообщений: 496

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

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

Excel 2007

Цитата lebensvoll, 28.09.2017 в 14:31, в сообщении № 1 ()

улучшить макрос

без файла как то так
[vba]

Код

        Sheets(Array("Лист1", "Лист2", "Лист3")).Select
    Range("B15:I49,K2:K10,P2:P10").Select
    Selection.ClearContents

[/vba]

Сообщение отредактировал and_evg - Четверг, 28.09.2017, 14:47

Ответить

Дата: Четверг, 28.09.2017, 14:43 | Сообщение № 3

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

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

Сообщений: 2566

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

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

Excel 2010

lebensvoll, надо цикл по листам сделать. Кроме 1,2,...,30 есть еще листы в файле?

Яндекс: 410016850021169

Ответить

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

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

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

Сообщений: 1002

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

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

Excel 2010

and_evg, спасибо за ответ...
И прошу прощение за то что файл не приложил (((( думал возможно это и без него
Но у меня не получается ели я применяю ваш макрос
[vba]

Код

Range("B15:I49,K2:K10,P2:P10").ClearContents
Sheets("2").Range("B15:I49,K2:K10,P2:P10").ClearContents
Sheets("3").Range("B15:I49,K2:K10,P2:P10").ClearContents

[/vba]

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

Кто бы ты ни был, мир в твоих руках

Ответить

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

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

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

Сообщений: 1002

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

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

Excel 2010

sboy, да конечно имеется еще один лист (((( скорее всего поэтому и не получилось если я применил другой код
Может быть так вот:
[vba]

Код

    For iList = 1 To 30
        Worksheets(iList).Activate
Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("2").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("3").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Next
End Sub

[/vba]

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 28.09.2017, 15:03

Ответить

Дата: Четверг, 28.09.2017, 15:01 | Сообщение № 6

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

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

Сообщений: 496

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

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

Excel 2007

[vba]

Код

Sub Очистить_Записи()
    Range("B15").Activate
    Sheets(Array("1", "2", "3", "4")).Select
    Range("K2:K10,P2:P10,B15:I48").Select
    Selection.ClearContents
End Sub

[/vba]

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

Ответить

Дата: Четверг, 28.09.2017, 15:04 | Сообщение № 7

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

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

Сообщений: 1002

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

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

Excel 2010

and_evg, попробую сейчас ВАШ.
Просто нашел как этот цикл сделать и применил Ваш КОД до этого

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Четверг, 28.09.2017, 15:10 | Сообщение № 8

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

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

Сообщений: 1002

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

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

Excel 2010

and_evg, ваш код работает на УРА
А вот мой очищает но с ерор:
[vba]

Код

     Sub Очистить_Записи()
    For iList = 1 To 30
        Worksheets(iList).Activate
Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("2").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("3").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("4").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Next
End Sub

[/vba]
АААА возможно что я указал цикл 1 30 а сам прописываю 4-е листа (((((
Спасибо вам

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 28.09.2017, 15:12

Ответить

Дата: Четверг, 28.09.2017, 15:15 | Сообщение № 9

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

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

Сообщений: 496

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

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

Excel 2007

Цитата lebensvoll, 28.09.2017 в 15:10, в сообщении № 8 ()

очищает но с ерор:

Какая ерор? Может из-за того что переменная iList числовая, а наименование листов строковое?
Попробуйте вместо
[vba]

Код

Worksheets(iList).Activate

[/vba]
вот это
[vba]

Код

Worksheets(CStr(iList)).Activate

[/vba]

Ответить

Дата: Четверг, 28.09.2017, 15:16 | Сообщение № 10

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

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

Сообщений: 1002

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

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

Excel 2010

Да точно в этом и ошибка у меня получилась (((((

Цитата

АААА возможно что я указал цикл 1 30 а сам прописываю 4-е листа (((((

Да не все ровно когда делаешь именно вот так вот
[vba]

Код

   Sub Очистить_Записи()
    For iList = 1 To 4
        Worksheets(iList).Activate
Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("2").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("3").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Sheets("4").Range("B15:I49,K2:K10,P2:P10").ClearContents
    Next
End Sub

[/vba]

вот смотрите файл

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

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 28.09.2017, 15:17

Ответить

Дата: Четверг, 28.09.2017, 15:18 | Сообщение № 11

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

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

Сообщений: 2566

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

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

Excel 2010

Старайтесь без необходимости не использовать Select и Activate...
[vba]

Код

Sub Очистить_Записи()
    For Each sh In ThisWorkbook.Sheets
    If Val(sh.Name) > 0 Then sh.Range("B15:I49,K2:K10,P2:P10").ClearContents
    Next
End Sub

[/vba]

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

Яндекс: 410016850021169

Сообщение отредактировал sboy - Четверг, 28.09.2017, 15:19

Ответить

Дата: Четверг, 28.09.2017, 15:19 | Сообщение № 12

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

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

Сообщений: 496

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

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

Excel 2007

Цитата lebensvoll, 28.09.2017 в 15:10, в сообщении № 8 ()

Worksheets(iList)

Это обращение к листу по его индексу, а вы подразумеваете что обращаетесь по имени. Учтите это! Иначе постираете не на тех листах которых нужно!

Ответить

Дата: Четверг, 28.09.2017, 15:35 | Сообщение № 13

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

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

Сообщений: 1002

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

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

Excel 2010

and_evg, я просто нашел на другом форуме My WebPage вот это

Цитата

так можно перебрать нужные листы
Код:

Sub proverka_ovd()
For iList = 3 To 48
Worksheets(iList).Activate
'Необходимые действия
Next
End Sub

скорее всего, можно обойтись и без Activate, не вникал в работу кода проверки

Я просто применил данный код + использовал ваш и получилось очень даже не плохо
Но код от sboy выглядит очень красиво и кратко ТАЛАНТИЩЕ

И ВАМ ТАКЖЕ ОГРОМНЕЙШЕЕ СПАСИБО

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Четверг, 28.09.2017, 15:36

Ответить

Дата: Пятница, 23.03.2018, 14:45 | Сообщение № 14

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

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

Сообщений: 1002

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

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

Excel 2010

sboy, прошу прощение а как дополнить Ваш макрос!?

Нужно чтоб удалились значения еще с одного листа, но ЛИСТ уже называется: "Списание с завода"
Я конечно же в начале произвел действие записью кода

получается так
[vba]

Код

    Sheets("Списание с завода").Select
    Range("B3:AF3,B5:AF5,B7:AF7,B9:AF9,B11:AF11,B13:AF13").Select
    Selection.ClearContents

[/vba]
Но как дополнить Ваш код более правильно сообразить не могу или же приходится использовать два макроса на одно действие :'(

:'(

:'(

:'(

на разных только листах

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Пятница, 23.03.2018, 14:46

Ответить

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

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
1. В листе "Списание с завода" у Вас другие диапазоны, чем в листах с числами?
2. кроме листов с числами и "Списание с завода" еще листы есть?

Яндекс: 410016850021169

Ответить

Дата: Пятница, 23.03.2018, 15:22 | Сообщение № 16

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

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

Сообщений: 1002

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

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

Excel 2010

sboy, да!!!
Я сижу смотрю, читаю и думаю что нужно объявить переменную (если я все верно понимаю) так еще и не одну. В начале перенс сам код из "модуля" в "Эту книгу", далее немного исправил Ваш код (вроде данные очистились код сработал):
[vba]

Код

Sub Очистить_Записи() 'Макрос очистки записей

'отключаем обновление экрана
Application.ScreenUpdating = False

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Sheets
    If Val(sh.Name) > 0 Then sh.Range("B15:I52,D2:D11,H2:H11").ClearContents
    Next

'Возвращаем обновление экрана
Application.ScreenUpdating = True

   MsgBox "Запись очищена"
End Sub

[/vba]
А сейчас сижу и ДУМАЮ "с ГУГЛОМ" как же мне указать еще одну переменную в этом же коде но на действие (того же самого "очистить диапазон" но на другом листе)

[vba]

Код

    Sheets("Списание с завода").Select
    Range("B3:AF3,B5:AF5,B7:AF7,B9:AF9,B11:AF11,B13:AF13").Select
    Selection.ClearContents

[/vba]
Думал так но увы
[vba]

Код

If Val(sh.Name) Like "Списание с завода" Then sh.Range("B3:AF3,B5:AF5,B7:AF7,B9:AF9,B11:AF11,B13:AF13").ClearContents

[/vba]

:'(

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Пятница, 23.03.2018, 15:39

Ответить

Дата: Пятница, 23.03.2018, 15:31 | Сообщение № 17

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

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

Сообщений: 2566

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

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

Excel 2010

да необязательно много переменных
вот попробуйте изменить
[vba]

Код

    For Each sh In ThisWorkbook.Sheets
    If Val(sh.Name) > 0 Then sh.Range("B15:I52,D2:D11,H2:H11").ClearContents
    if sh.Name = "Списание с завода" then sh.Range("B3:AF3,B5:AF5,B7:AF7,B9:AF9,B11:AF11,B13:AF13").ClearContents
    Next

[/vba]

Яндекс: 410016850021169

Ответить

Дата: Пятница, 23.03.2018, 15:55 | Сообщение № 18

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

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

Сообщений: 1002

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

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

Excel 2010

sboy, СПАСИБО огромеееееенное
Но я все же был близок ((((( хоть и с ошибкой совершил обращение. Но главное что малость до меня дошло как (и самое что главное можно было и без объявления второй переменной а просто продолжить процедуру)
ПОНЯЛ, хоть и частично, СПАСИБО!!!

Кто бы ты ни был, мир в твоих руках

Ответить

Удаление значений из диапазонов ячеек со всех листов (Макросы/Sub)

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

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