Удаление диапазона данных на каждом листе

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

Удаление диапазона данных на каждом листе (Макросы/Sub)

korsak78

Дата: Четверг, 25.02.2016, 16:38 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2003

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

[vba]

Код

Sub удаление_формулы_ИНН()

Dim wSheet As Worksheet
For Each wSheet In ThisWorkbook.Worksheets
Range("AL1:BU2").Select
Selection.ClearContents
Next
End Sub

[/vba]
[moder]Код макроса нужно сувать вовонутря спецтегов - кнопка #. Поправил за Вас

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

Сообщение отредактировал _Boroda_ - Четверг, 25.02.2016, 16:40

Ответить

_Boroda_

Дата: Четверг, 25.02.2016, 16:45 | Сообщение № 2

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub удаление_формулы_ИНН()
    Dim wSheet As Worksheet
    For Each wSheet In ThisWorkbook.Worksheets
        wSheet.Range("AL1:BU2").ClearContents
    Next
End Sub

[/vba]
Вы в цикле по листам к листу не обращаетесь

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

Ответить

korsak78

Дата: Четверг, 25.02.2016, 17:02 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2003

Не, не помогает.
Даже на текущем листе перестал удалять.

Ответить

_Boroda_

Дата: Четверг, 25.02.2016, 17:09 | Сообщение № 4

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата korsak78, 25.02.2016 в 17:02, в сообщении № 3

Даже на текущем листе перестал удалять.

Да ладно! Вы из какой книги его запускаете? Смотрите файл, жмите кнопку.

К сообщению приложен файл: -2014_1.zip (34.5 Kb)

Ответить

Kuzmich

Дата: Четверг, 25.02.2016, 17:10 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 715

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

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

Excel 2003

А куда вы вставляете свой код?

Ответить

korsak78

Дата: Четверг, 25.02.2016, 17:50 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2003

В вашем примере все работает.
Ваш код я скопировал - в моем файле не работает.
Возможно ли это из-за того, что мой макрос находится в Personal.XLS?

Ответить

_Boroda_

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

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата korsak78, 25.02.2016 в 17:50, в сообщении № 6

Возможно ли это из-за того, что мой макрос находится в Personal.XLS?

А как Вы думаете, вот это - ThisWorkbook - это обращение к какой книге? Это обращение к той книге, в которой сам макрос сидит. Замените на ActiveWorkbook и будет Вам счастье.

Ответить

korsak78

Дата: Четверг, 25.02.2016, 18:03 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2003

Спасибо.

Ответить

Удаление диапазона данных на каждом листе (Макросы/Sub)

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