Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление всех полей скопом. / 9 сообщений из 9, страница 1 из 1
17.05.2006, 17:11:00
    #33733380
Tachkin
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
В общемтакая проблема:
Мне принесли Excel файл, в котором находятся поля.... сотни и тысячи полей.
Поля эти собой представляют надпись. Пустую. Проименованных как "поле 1" .... Поле 2 ..... Поле N....
Из-за их кол-ва сильно тормозит файл. В ручную удалять эти области я заманаюсь. Накидайте, плиз, текст в VBA, что бы удалить их скопом.

Только если можно по подробнее, я в VBA не очень....

За ранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2006, 17:23:56
    #33733436
нипонил
нипонил
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
что такое поля? Выложи файл или лист из него чтоб понять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2006, 17:32:41
    #33733471
Tachkin
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
Вот такой файл. В ячейках там разные данные .....
Если поискать, то можно найти уйму пустых полей надписей, вот их мне и надо удалить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2006, 17:40:46
    #33733499
Tachkin
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
Записал сейчас макрос в ручную....
Мне надо что-то типа
Код: plaintext
1.
ActiveSheet.Shapes("Text Box 67").Select
    Selection.Delete
только для всех именованных полей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2006, 17:49:21
    #33733534
нипонил
нипонил
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
если речь об именованных диапазонах, то вот

Код: plaintext
1.
2.
3.
4.
5.
Sub DeletaAllRangeNames()
Dim myname As Name
    For Each myname In ActiveWorkbook.Names
        myname.Delete
    Next myname
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 10:38:13
    #33734679
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
TachkinЗаписал сейчас макрос в ручную....
Мне надо что-то типа
Код: plaintext
1.
ActiveSheet.Shapes("Text Box 67").Select
    Selection.Delete
только для всех именованных полей.
Чуть доработал
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub DelTB()
    Error Resume Next  'отключаем сообщения об ошибках - вдруг указанного поля
                              'не существует

    For i =  1  to  200  ' 200 здесь ~ количество текстовых полей - взято от балды
        ActiveSheet.Shapes("Text Box " & i).Delete
    Next i

End DelTB 'конец:)

Будьте осторожны! На практике не применялось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 10:42:18
    #33734698
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
Щас заметил ошибк. Я там в коде On забыл, т.е.
Код: plaintext
On Error Resume Next

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 13:15:21
    #33735390
Tachkin
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
Еще в конце требует
Код: plaintext
End Sub
И все.

Огромное спасибо. Все работает.

А то я при изменении высоты строки чай успевал попить :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2006, 13:30:16
    #33735459
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление всех полей скопом.
TachkinЕще в конце требует
Код: plaintext
End Sub
И все.

Точно, а я какой-то End DelTB() написал
Вот что значит отсутствие практики. Моментом из башки все вылетает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление всех полей скопом. / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184850]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 230ms
total:  361ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]