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

Вход

Регистрация

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

 

= Мир MS Excel/Как удалить кнопку? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как удалить кнопку?
skov Дата: Суббота, 18.04.2015, 21:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите удалить кнопку, которая осталась после использования функции "Проверка данных".При удалении ячейки нарушаются формулы всей книги, хочу удалить более цивилизованным способом.
К сообщению приложен файл: 555.xls (37.5 Kb)
 
Ответить
СообщениеПомогите удалить кнопку, которая осталась после использования функции "Проверка данных".При удалении ячейки нарушаются формулы всей книги, хочу удалить более цивилизованным способом.

Автор - skov
Дата добавления - 18.04.2015 в 21:45
buchlotnik Дата: Суббота, 18.04.2015, 22:01 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
а поподробнее можно? от ячейки в примере не зависит ни одна ячейка
 
Ответить
Сообщениеа поподробнее можно? от ячейки в примере не зависит ни одна ячейка

Автор - buchlotnik
Дата добавления - 18.04.2015 в 22:01
skov Дата: Суббота, 18.04.2015, 22:07 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Я оставил фрагмент только с этой кнопкой. Нужно ее удалить не удаляя саму ячейку. Никак не получается это сделать, может это глюк программы?
 
Ответить
СообщениеЯ оставил фрагмент только с этой кнопкой. Нужно ее удалить не удаляя саму ячейку. Никак не получается это сделать, может это глюк программы?

Автор - skov
Дата добавления - 18.04.2015 в 22:07
excelhelprus Дата: Воскресенье, 19.04.2015, 06:51 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 5 ±
Замечаний: 20% ±

2015
[vba]
Код
Sub YDALIT()
10
For i = 1 To ActiveSheet.Shapes.Count
     If LCase(ActiveSheet.Shapes.Item(i).Name) Like "*drop*down*" Then
         ActiveSheet.Shapes.Item(i).Delete
         GoTo 10
     End If
Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub YDALIT()
10
For i = 1 To ActiveSheet.Shapes.Count
     If LCase(ActiveSheet.Shapes.Item(i).Name) Like "*drop*down*" Then
         ActiveSheet.Shapes.Item(i).Delete
         GoTo 10
     End If
Next
End Sub
[/vba]

Автор - excelhelprus
Дата добавления - 19.04.2015 в 06:51
excelhelprus Дата: Воскресенье, 19.04.2015, 06:53 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 5 ±
Замечаний: 20% ±

2015
этим кодом все раскр.списки удалит с листа. Если все не надо то тут [vba]
Код
Like "*drop*down*"
[/vba] указывайте номер списка, который над удалить
Например [vba]
Код
"*drop*down*2"
[/vba]


Сообщение отредактировал excelhelprus - Воскресенье, 19.04.2015, 06:54
 
Ответить
Сообщениеэтим кодом все раскр.списки удалит с листа. Если все не надо то тут [vba]
Код
Like "*drop*down*"
[/vba] указывайте номер списка, который над удалить
Например [vba]
Код
"*drop*down*2"
[/vba]

Автор - excelhelprus
Дата добавления - 19.04.2015 в 06:53
  • Страница 1 из 1
  • 1
Поиск:

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