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

Вход

Регистрация

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

 

= Мир MS Excel/Выборочное удаление примечаний "данных". - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборочное удаление примечаний "данных". (Макросы/Sub)
Выборочное удаление примечаний "данных".
SergVrn Дата: Четверг, 08.02.2018, 14:58 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
День добрый.
Есть вопрос.

На листе у меня две гиперссылочные фигуры.
Кнопки управления ими - находятся в районе ячейки А1
При переходе по гиперссылочным фигурам - макрос вставляет в примечание "данных" - текст из ячеек E1 - E2
Но если фигуру переместить в другое место, то старое примечание "данных" - не удалится, а останется на предыдущем месте.
Таким образом если двигать фигуру по листу - это будем множить число подобных ячеек.

Как удалять предыдущие примечания "данных", при перемещении фигур ?
К сообщению приложен файл: 6530519.xlsm(21.5 Kb)
 
Ответить
СообщениеДень добрый.
Есть вопрос.

На листе у меня две гиперссылочные фигуры.
Кнопки управления ими - находятся в районе ячейки А1
При переходе по гиперссылочным фигурам - макрос вставляет в примечание "данных" - текст из ячеек E1 - E2
Но если фигуру переместить в другое место, то старое примечание "данных" - не удалится, а останется на предыдущем месте.
Таким образом если двигать фигуру по листу - это будем множить число подобных ячеек.

Как удалять предыдущие примечания "данных", при перемещении фигур ?

Автор - SergVrn
Дата добавления - 08.02.2018 в 14:58
Апострофф Дата: Четверг, 08.02.2018, 16:04 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 154
Репутация: 56 ±
Замечаний: 0% ±

Excel 2003
SergVrn, добавьте по три строчки в начало обеих процедуры
[vba]
Код
Static r As Range
If Not r Is Nothing Then r.Validation.Delete
Set r = ActiveSheet.Shapes("Прямоугольник 3").TopLeftCell.Offset(1, 1)
'Set r = ActiveSheet.Shapes("Прямоугольник 4").TopLeftCell.Offset(1, 1)
[/vba]


Сообщение отредактировал Апострофф - Четверг, 08.02.2018, 16:05
 
Ответить
СообщениеSergVrn, добавьте по три строчки в начало обеих процедуры
[vba]
Код
Static r As Range
If Not r Is Nothing Then r.Validation.Delete
Set r = ActiveSheet.Shapes("Прямоугольник 3").TopLeftCell.Offset(1, 1)
'Set r = ActiveSheet.Shapes("Прямоугольник 4").TopLeftCell.Offset(1, 1)
[/vba]

Автор - Апострофф
Дата добавления - 08.02.2018 в 16:04
SergVrn Дата: Четверг, 08.02.2018, 16:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, добавил по три строчки в начало обеих процедур.

Макрос по-прежнему оставляет предыдущие примечания данных - на своих местах.
К сообщению приложен файл: 2836942.xlsm(21.4 Kb)


Сообщение отредактировал SergVrn - Четверг, 08.02.2018, 16:20
 
Ответить
СообщениеАпострофф, добавил по три строчки в начало обеих процедур.

Макрос по-прежнему оставляет предыдущие примечания данных - на своих местах.

Автор - SergVrn
Дата добавления - 08.02.2018 в 16:20
Апострофф Дата: Четверг, 08.02.2018, 18:00 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 154
Репутация: 56 ±
Замечаний: 0% ±

Excel 2003
SergVrn, причем тут Макрос1?
Вставляйте в Лист1 - в макросы Giperlink1 и Giperlink2
 
Ответить
СообщениеSergVrn, причем тут Макрос1?
Вставляйте в Лист1 - в макросы Giperlink1 и Giperlink2

Автор - Апострофф
Дата добавления - 08.02.2018 в 18:00
SergVrn Дата: Четверг, 08.02.2018, 18:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, теперь все прояснилось.
Спасибо за дельный совет.
 
Ответить
СообщениеАпострофф, теперь все прояснилось.
Спасибо за дельный совет.

Автор - SergVrn
Дата добавления - 08.02.2018 в 18:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборочное удаление примечаний "данных". (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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