Выборочное удаление примечаний "данных".

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выборочное удаление примечаний "данных". (Макросы/Sub)

SergVrn

Дата: Четверг, 08.02.2018, 14:58 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

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

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

К сообщению приложен файл: 6530519.xlsm (21.5 Kb)

Ответить

Апострофф

Дата: Четверг, 08.02.2018, 16:04 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 468

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

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]