Макрос по очистке ячеек по заданному списку! - Microsoft Office Excel

masterenergy · 22.02.2010, 17:59

Добрый день!
Есть такая вот проблема, существует таблица которая вставяется в Excel, так вот в чём собственно проблема: Нужно чтобы в этой таблице автоматически очищались ячейки, по заданному критерию или как это назвать, по определлённому списку.
Например:
А1=Вася
А2=Петя

А Вася находится в списке имён которые недопустипы для ввода в таблицу Excel, и ячейка А1="" (становилась пустой).

Dophin · 22.02.2010, 19:13

пример выкладывайте

в общем случае так
Sub pp()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell = "Вася" Then cell.Clear
Next cell
End Sub

masterenergy · 23.02.2010, 11:06

Вот пример. Существует два листа Лист1 и список. Так вот как сделать так, чтобы ячейки в Лист1 очищались если их значение равно значениям ячеек из листа "список"?
P.S макрос что то не работает (Type mismatch)

в нужном файле а в том который я сюда выложил, работает. В чём может быть причина?

Dophin · 23.02.2010, 13:24

вот попробуйте

masterenergy · 23.02.2010, 14:05

Спасибо попробую! Только вот такой вопрос, я в этом покаместь только разбираюсь, как запустить выполнение кода?

Dophin · 23.02.2010, 14:14

а зачем? он сейчас выполняется при изменении любой ячейки на листе.

masterenergy · 23.02.2010, 14:51

Цитата:

Сообщение от Dophin

а зачем? он сейчас выполняется при изменении любой ячейки на листе.

Спасибо! Вроде бы разобрался!

masterenergy · 24.02.2010, 12:53

Только что то после вставки таблицы, оно ничего не удаляет?

Вот если вводит вручную, либо одно значение тогда да, всё отлично, а вот когда вставляеш несколько значений оно не чистится

Dophin · 24.02.2010, 13:09

пробуйте так

masterenergy · 24.02.2010, 13:33

Цитата:

Сообщение от Dophin

пробуйте так

Примного благодарствую!

22.02.2010, 17:59	#1
masterenergy Пользователь Регистрация: 28.08.2009 Сообщений: 34	Макрос по очистке ячеек по заданному списку! Добрый день! Есть такая вот проблема, существует таблица которая вставяется в Excel, так вот в чём собственно проблема: Нужно чтобы в этой таблице автоматически очищались ячейки, по заданному критерию или как это назвать, по определлённому списку. Например: А1=Вася А2=Петя А Вася находится в списке имён которые недопустипы для ввода в таблицу Excel, и ячейка А1="" (становилась пустой).

22.02.2010, 19:13	#2
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	пример выкладывайте в общем случае так Sub pp() Dim cell As Range For Each cell In ActiveSheet.UsedRange If cell = "Вася" Then cell.Clear Next cell End Sub Последний раз редактировалось Dophin; 22.02.2010 в 19:15.

23.02.2010, 14:05	#5
masterenergy Пользователь Регистрация: 28.08.2009 Сообщений: 34	Спасибо попробую! Только вот такой вопрос, я в этом покаместь только разбираюсь, как запустить выполнение кода? Последний раз редактировалось masterenergy; 23.02.2010 в 14:11.

24.02.2010, 12:53	#8
masterenergy Пользователь Регистрация: 28.08.2009 Сообщений: 34	Только что то после вставки таблицы, оно ничего не удаляет? Вот если вводит вручную, либо одно значение тогда да, всё отлично, а вот когда вставляеш несколько значений оно не чистится Последний раз редактировалось masterenergy; 24.02.2010 в 12:55.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос для объединения ячеек Excel	wadzik	Microsoft Office Excel	12	24.10.2017 21:32
Макрос для объединения одинаковых ячеек	Internal2	Microsoft Office Excel	2	05.11.2009 14:00
Макрос печати по списку	Feniks18	Microsoft Office Excel	2	03.11.2009 07:20
макрос - подсчитать для каждой строки кол-во ячеек с «+», кол-во ячеек с «-»	Vadim_abs	Microsoft Office Excel	36	14.07.2009 12:08
макрос VBA EXCEL - деление ряда чисел по заданному критерию	Обыватель	Microsoft Office Excel	10	30.01.2008 14:36

23.02.2010, 14:14	#6
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	а зачем? он сейчас выполняется при изменении любой ячейки на листе.