|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
12.05.2008, 12:46 | #31 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А чем вариант с гиперссылками не устроил?
Чем шире угол зрения, тем он тупее.
|
12.05.2008, 12:47 | #32 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
ес-с-с--ссс!!!!!
вот так: Dim myshape As Shape Range(Rows(1), Rows(50)).Select For Each myshape In ActiveSheet.Shapes If Intersect(myshape.TopLeftCell, _ Selection) Is Nothing Then 'do nothing Else myshape.Delete End If Next myshape End Sub |
12.05.2008, 12:50 | #33 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
та класно все, тока курсор на гиперссылку западает .. когда надо десять-двадцвть добавлений сделать 100% западет и перестанет работать - надо выбрать ячейку рядом и опять клацать на ссылку чтобы запустить макрос ..
а кнопка такого недостатка лишена полностью |
12.05.2008, 13:23 | #34 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
блин .. опять че-то не то.
сам по себе работает: Dim myshape As Shape Range(Rows(r), Rows(i + 1)).Select For Each myshape In ActiveSheet.Shapes If Intersect(myshape.TopLeftCell, _ Selection) Is Nothing Then 'do nothing Else myshape.Delete End If Next myshape End Sub вставляю в блок в которм он должен рыботать - выдает ошибку: Код:
If Intersect(myshape.TopLeftCell, _ Selection) Is Nothing Then при этом таки удаляет кнопки в области ! и потом выдает ошику( ошибка 1004) |
12.05.2008, 13:25 | #35 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
вообще бред какой-то .. то выдает ошибку сразу, то удаляет все как надо (один раз было! ) .. то удаляет кнопки и потом выдает ошибку ... ..
засек когда собирлся прикрепить файл - сделал примечание к кнопке - код начал работать !! ... удалилась таблица с примечанием -вставил через кнопку новую - уже выдает ошибку при автоматическом удалении ... шоза?? |
12.05.2008, 13:51 | #36 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
короче пытался сделать два файла где б удаляло а где не удаляло .. но при сохраннии фала первый раз нажимаеш - тоже код срабатывает нормально .. второй раз - ошибка ..
вобщем вот файл. |
13.05.2008, 10:47 | #37 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
если кому интерсно разобратьсся ради интересу - можете попробовать, но лично я ужу все порешал .. преписал код на удаление заново - работает .. хотя по сути никаких изменнеий особых там нет .. в чем проблема так и не понял но ну и фиг на него .. удаление работает
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объеденение 2-х таблиц | Stanislav | БД в Delphi | 3 | 28.07.2008 09:44 |
Сведение таблиц | Funky_man | Microsoft Office Excel | 1 | 09.01.2008 07:20 |
Сведение таблиц | Funky_man | Microsoft Office Excel | 1 | 08.01.2008 03:36 |
Копирование таблиц из одной базы в другую | KuH | БД в Delphi | 7 | 27.09.2007 15:18 |