Удалить объекты.
RAN
Дата: Вторник, 15.10.2013, 21:32 |
Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Приветствую. Имеется файл с 100 объектов. Что то видно, что то нет. Требуется удалить все, кроме 2. Как это сделать одним махом? Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как.
Приветствую. Имеется файл с 100 объектов. Что то видно, что то нет. Требуется удалить все, кроме 2. Как это сделать одним махом? Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как. RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Вторник, 15.10.2013, 21:32
Ответить
Сообщение Приветствую. Имеется файл с 100 объектов. Что то видно, что то нет. Требуется удалить все, кроме 2. Как это сделать одним махом? Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как. Автор - RAN Дата добавления - 15.10.2013 в 21:32
KuklP
Дата: Вторник, 15.10.2013, 21:50 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Как это сделать одним махом?
Что это значит? Без цикла? Это вряд ли. А в цикле за один проход, проверяя имя.
Как это сделать одним махом?
Что это значит? Без цикла? Это вряд ли. А в цикле за один проход, проверяя имя.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Как это сделать одним махом?
Что это значит? Без цикла? Это вряд ли. А в цикле за один проход, проверяя имя.Автор - KuklP Дата добавления - 15.10.2013 в 21:50
RAN
Дата: Вторник, 15.10.2013, 21:51 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Какой такой цикл! Мышкой!
Какой такой цикл! Мышкой! RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Какой такой цикл! Мышкой! Автор - RAN Дата добавления - 15.10.2013 в 21:51
KuklP
Дата: Вторник, 15.10.2013, 21:55 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Тебе вручную? Выделил все, с контролом убрал из выделения нужные. Del.
Тебе вручную? Выделил все, с контролом убрал из выделения нужные. Del. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Тебе вручную? Выделил все, с контролом убрал из выделения нужные. Del. Автор - KuklP Дата добавления - 15.10.2013 в 21:55
_Boroda_
Дата: Вторник, 15.10.2013, 21:56 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16709
Репутация:
6501
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Главная - Найти и выделить - Выделение группы ячеек - Объекты Потом, держа Контрл, топнуть мышой на те, которые не нужно удалять и нажать Делит Блин, а я макрос рисую, как все, кроме 2-х грохнуть. предупреждать надо, что А "тыкать мышкой" будет несколько затруднительно, ибо Что то видно, что то нет.
Главная - Найти и выделить - Выделение группы ячеек - Объекты Потом, держа Контрл, топнуть мышой на те, которые не нужно удалять и нажать Делит Блин, а я макрос рисую, как все, кроме 2-х грохнуть. предупреждать надо, что А "тыкать мышкой" будет несколько затруднительно, ибо Что то видно, что то нет.
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Главная - Найти и выделить - Выделение группы ячеек - Объекты Потом, держа Контрл, топнуть мышой на те, которые не нужно удалять и нажать Делит Блин, а я макрос рисую, как все, кроме 2-х грохнуть. предупреждать надо, что А "тыкать мышкой" будет несколько затруднительно, ибо Что то видно, что то нет.
Автор - _Boroda_ Дата добавления - 15.10.2013 в 21:56
AndreTM
Дата: Вторник, 15.10.2013, 21:56 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация:
501
±
Замечаний:
0% ±
2003 & 2010
Выбор объектов. Ctrl+A Ctrl+<потыкать в нужные> Del
Выбор объектов. Ctrl+A Ctrl+<потыкать в нужные> Del AndreTM
Skype: andre.tm.007 Donate: Q iwi: 9517375010
Ответить
Сообщение Выбор объектов. Ctrl+A Ctrl+<потыкать в нужные> Del Автор - AndreTM Дата добавления - 15.10.2013 в 21:56
RAN
Дата: Вторник, 15.10.2013, 21:58 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Воистину так!
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Воистину так! Автор - RAN Дата добавления - 15.10.2013 в 21:58
RAN
Дата: Вторник, 15.10.2013, 22:00 |
Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Блин, а я макрос рисую, как все, кроме 2-х грохнуть.
:D Думаешь сам не смогу? Чай не формула. PS звиняюсь, что в заблуждение ввел, думал отсюда Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как.
все понятно.
Блин, а я макрос рисую, как все, кроме 2-х грохнуть.
:D Думаешь сам не смогу? Чай не формула. PS звиняюсь, что в заблуждение ввел, думал отсюда Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как.
все понятно.RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Вторник, 15.10.2013, 22:03
Ответить
Сообщение Блин, а я макрос рисую, как все, кроме 2-х грохнуть.
:D Думаешь сам не смогу? Чай не формула. PS звиняюсь, что в заблуждение ввел, думал отсюда Через область выделения они удаляются только поштучно, через выбор объектов, если и можно, не соображу как.
все понятно.Автор - RAN Дата добавления - 15.10.2013 в 22:00
_Boroda_
Дата: Вторник, 15.10.2013, 22:02 |
Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16709
Репутация:
6501
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Думаешь сам не смогу?
Чай не формула. ;)
Сможешь, конечно. Только я хотел без цикла, сразу.
Думаешь сам не смогу?
Чай не формула. ;)
Сможешь, конечно. Только я хотел без цикла, сразу._Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Думаешь сам не смогу?
Чай не формула. ;)
Сможешь, конечно. Только я хотел без цикла, сразу.Автор - _Boroda_ Дата добавления - 15.10.2013 в 22:02
RAN
Дата: Вторник, 15.10.2013, 22:05 |
Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Только я хотел без цикла, сразу.
А вот это любопытно. Даже не код, алгоритм.
Только я хотел без цикла, сразу.
А вот это любопытно. Даже не код, алгоритм.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Только я хотел без цикла, сразу.
А вот это любопытно. Даже не код, алгоритм.Автор - RAN Дата добавления - 15.10.2013 в 22:05
RAN
Дата: Вторник, 15.10.2013, 22:08 |
Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
А "тыкать мышкой" будет несколько затруднительно
Тыкать мышкой можно и в область выделения, оказывается. Там все видно.
А "тыкать мышкой" будет несколько затруднительно
Тыкать мышкой можно и в область выделения, оказывается. Там все видно.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение А "тыкать мышкой" будет несколько затруднительно
Тыкать мышкой можно и в область выделения, оказывается. Там все видно.Автор - RAN Дата добавления - 15.10.2013 в 22:08
_Boroda_
Дата: Вторник, 15.10.2013, 22:12 |
Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16709
Репутация:
6501
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
[vba]Код
Sub tt() ActiveSheet.Shapes.Range(Array("Rectangle 32", "Rectangle 33")).Select Selection.Copy ActiveSheet.DrawingObjects.Select Selection.Delete ActiveSheet.Paste End Sub
[/vba] осталось перед копированием закинуть в переменную месторасположение первого объекта и при вставке указать, куда его вставлять (второй должен вставиться автоматически)
[vba]Код
Sub tt() ActiveSheet.Shapes.Range(Array("Rectangle 32", "Rectangle 33")).Select Selection.Copy ActiveSheet.DrawingObjects.Select Selection.Delete ActiveSheet.Paste End Sub
[/vba] осталось перед копированием закинуть в переменную месторасположение первого объекта и при вставке указать, куда его вставлять (второй должен вставиться автоматически) _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение [vba]Код
Sub tt() ActiveSheet.Shapes.Range(Array("Rectangle 32", "Rectangle 33")).Select Selection.Copy ActiveSheet.DrawingObjects.Select Selection.Delete ActiveSheet.Paste End Sub
[/vba] осталось перед копированием закинуть в переменную месторасположение первого объекта и при вставке указать, куда его вставлять (второй должен вставиться автоматически) Автор - _Boroda_ Дата добавления - 15.10.2013 в 22:12
RAN
Дата: Вторник, 15.10.2013, 22:30 |
Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
На хвост намотал. Мяу.
На хвост намотал. Мяу. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение На хвост намотал. Мяу. Автор - RAN Дата добавления - 15.10.2013 в 22:30
Saff
Дата: Пятница, 23.01.2015, 07:37 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
а как удалить объекты как то ещё? если при попытке выделить через f5 все объекты excel, зависает на вечно. ) файл должен весить около 300кб, а весит 4.5 мб [moder]Вопрос не по теме топика. Создайте свою тему. Тема закрыта. Причина: нарушение Правил форума п.п. 4, 5q[/moder]
а как удалить объекты как то ещё? если при попытке выделить через f5 все объекты excel, зависает на вечно. ) файл должен весить около 300кб, а весит 4.5 мб [moder]Вопрос не по теме топика. Создайте свою тему. Тема закрыта. Причина: нарушение Правил форума п.п. 4, 5q[/moder] Saff
Сообщение отредактировал Saff - Пятница, 23.01.2015, 07:38
Ответить
Сообщение а как удалить объекты как то ещё? если при попытке выделить через f5 все объекты excel, зависает на вечно. ) файл должен весить около 300кб, а весит 4.5 мб [moder]Вопрос не по теме топика. Создайте свою тему. Тема закрыта. Причина: нарушение Правил форума п.п. 4, 5q[/moder] Автор - Saff Дата добавления - 23.01.2015 в 07:37