Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление фигур по их номеру
 
#1
14.11.2018 19:24:42
Приветствую всех форумчан.
Имеется код, который по таблице - рисует фигуры.

Подскажите - как по щелчку макроса - удалить с листа - фигуры, номера которых вписаны в диапазон C4:C15 ?
(ориентировка должна быть только на номера)
 
 
 
#2
14.11.2018 19:29:15
Megamen2, против ничего не имею, но интересно что вы с форума на форум скачете?
Тут, там, снова тут
По вопросам из тем форума, личку не читаю.
 
 
 
#3
14.11.2018 19:33:04
БМВ, так вопрос-то новый.

Один вопрос - одна тема.
Таковы вроде бы - правила этого форума.
Или я ошибаюсь ?
 
 
 
#4
14.11.2018 19:58:27
Цитата
БМВ написал:
что вы с форума на форум скачете?
Миш, а что ты хочешь?
Megamen2
Надо оправдывать ник.
 
 
 
#5
14.11.2018 20:08:24
Нарушений нет, любопытно просто. Темы все разные, но почему такое непостоянство в выборе форума? Если боитесь что скажут что "опять он" , так или все равно скажут или не скажут вовсе.

off
Андрей, я так понял шутка осталась незамеченной :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#6
14.11.2018 20:28:06
Почему? Очень даже заценил.  :)
Но кот в кепке, это не кошка, а уж ведмедик клишеногий с косарем в пасти - тем паче.

PS Для не сведующих - "Ведмедик клишеногий", это конфеты "Мишка косолапый" производства Киев
 
 
 
#7
14.11.2018 20:31:27
off
Ну я не стал менять оригинал, оставил кошку без замены на кота :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#8
14.11.2018 20:34:11
БМВ, почему такое непостоянство в выборе форума....

Ну вот представьте себе - все желающие пойдут - только на форум planetaexcel.ru.
На этом форуме - будут очень интересные, оживленные дискуссии на разные темы.
А остальные форумы - зачахнут, и им с такой низкой посещаемостью не хватит денег - даже чтобы оплатить свой хостинг.
(Не о себе думаю... а о благе народном)
 
 
 
#9
14.11.2018 20:40:32
Миш, тогда отбрасываем последний дурацкий вопрос.
Я согласен!
 
 
 
#10
14.11.2018 20:48:05
Megamen2, если так, то ничего против не имею.
По вопросам из тем форума, личку не читаю.
 
 
 
#11
14.11.2018 21:02:19
Цитата
Megamen2 написал:
Подскажите
Шаг1 - ищем, как удалить с листа фигуры
Шаг2 - ищем, как из текстовой строки выделить номер
Шаг3 - ищем, как в цикле перебрать ячейки диапазона
Шаг4 - РАДУЕМСЯ, как хорошо все работает!
 
 
 
#12
14.11.2018 21:26:36
Код
Sub Макрос2()
arr = Cells(4, 3).CurrentRegion.Value
Set Dict = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(arr)
 Dict.Add arr(I, 5), arr(I, 5)
Next

For Each Shape In ActiveSheet.Shapes
 If Dict.exists(Shape.DrawingObject.Caption) Then Shape.Delete
Next
End Sub

Наверно погорячился, там про номера было что-то

странно вы делаете составное имя и потом только по второй части хотите удалить.

Код
Sub macros2()
arr = Cells(4, 3).CurrentRegion.Value
Set Dict = CreateObject("Scripting.Dictionary")
For I = 2 To UBound(arr)
 Dict.Add arr(I, 1), arr(I, 1)
Next
For Each Shape In ActiveSheet.Shapes
 If Dict.exists(CInt(Mid(Shape.Name, InStrRev(Shape.Name, " ") + 1))) Then Shape.Delete
Next
End Sub

Изменено: БМВ - 15.11.2018 00:07:59
По вопросам из тем форума, личку не читаю.
 
 
 
#13
14.11.2018 23:37:54
БМВ, понятно.
Оба варианта хороши.

Спасибо за ответ.
 
 
 
Страницы: 1
Наверх