Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Удаление фигур в выделенной области - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление фигур в выделенной области (Макросы/Sub)
Удаление фигур в выделенной области
ilyxa1234 Дата: Среда, 06.10.2021, 19:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте. Имеется эксель файл с хаотично расположенными фигурами, так же есть макрос который удаляет фигуры в прописанной области: [vba]
Код
Dim shp As Shape, rng As Range
Set rng = Range("A1:GI743")
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column <= rng.Columns.Count Then
shp.Delete
End If
Next shp
End Sub
[/vba]
Необходимо записать его так чтоб удаление происходило не в прописанном диапазоне, а в выделенном.
Если прописать
[vba]
Код
Set rng = Selection
[/vba] то удаление происходит не в выделенной области, либо вообще не происходит.
Помогите пожалуйста сделать так, чтобы удаление происходило именно в выделенной зоне.
К сообщению приложен файл: 5950929.xls(458.5 Kb)
 
Ответить
СообщениеЗдравствуйте. Имеется эксель файл с хаотично расположенными фигурами, так же есть макрос который удаляет фигуры в прописанной области: [vba]
Код
Dim shp As Shape, rng As Range
Set rng = Range("A1:GI743")
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column <= rng.Columns.Count Then
shp.Delete
End If
Next shp
End Sub
[/vba]
Необходимо записать его так чтоб удаление происходило не в прописанном диапазоне, а в выделенном.
Если прописать
[vba]
Код
Set rng = Selection
[/vba] то удаление происходит не в выделенной области, либо вообще не происходит.
Помогите пожалуйста сделать так, чтобы удаление происходило именно в выделенной зоне.

Автор - ilyxa1234
Дата добавления - 06.10.2021 в 19:44
Pelena Дата: Среда, 06.10.2021, 20:01 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17943
Репутация: 3997 ±
Замечаний: ±

Excel 2016 & Mac Excel
удаление происходит не в выделенной области

Пропишите условие для столбцов по аналогии со строками
[vba]
Код
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column >= rng.Column And shp.TopLeftCell.Column <= rng.Column + rng.Columns.Count Then
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
удаление происходит не в выделенной области

Пропишите условие для столбцов по аналогии со строками
[vba]
Код
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column >= rng.Column And shp.TopLeftCell.Column <= rng.Column + rng.Columns.Count Then
[/vba]

Автор - Pelena
Дата добавления - 06.10.2021 в 20:01
ilyxa1234 Дата: Среда, 06.10.2021, 20:16 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - ilyxa1234
Дата добавления - 06.10.2021 в 20:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление фигур в выделенной области (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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