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

Вход

Регистрация

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

 

= Мир MS Excel/определить привязку к ячейке CheckBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » определить привязку к ячейке CheckBox (Макросы/Sub)
определить привязку к ячейке CheckBox
Яков Дата: Четверг, 20.11.2014, 16:15 | Сообщение № 1
Группа: Гости
Всем доброго...
Искал по форуму, но...
Офис 2007

Проблема в следующем - найти адрес привязанной ячейки при срабатывании флажка в CheckBox.
закавыка такая - если CheckBox выделен как внедренный, то
[vba]
Код
r = Selection.LinkedCell
[/vba] срабатывает, а при простой установки флажка - нет...
Помогите, плз, 2007 осваиваю недавно, и перестроиться с 2003 никак не могу.
Спасибо
 
Ответить
СообщениеВсем доброго...
Искал по форуму, но...
Офис 2007

Проблема в следующем - найти адрес привязанной ячейки при срабатывании флажка в CheckBox.
закавыка такая - если CheckBox выделен как внедренный, то
[vba]
Код
r = Selection.LinkedCell
[/vba] срабатывает, а при простой установки флажка - нет...
Помогите, плз, 2007 осваиваю недавно, и перестроиться с 2003 никак не могу.
Спасибо

Автор - Яков
Дата добавления - 20.11.2014 в 16:15
doober Дата: Четверг, 20.11.2014, 17:49 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Если правильно понял суть вопроса,то можно так
[vba]
Код
Sub GeT_LinkedCell()
     Dim Shap As Shape
     For Each Shap In ActiveSheet.Shapes
         If Shap.Name Like "Check*" Then
             MsgBox Shap.Name & " " & Shap.DrawingObject.LinkedCell
         End If
     Next

End Sub
[/vba]


 
Ответить
СообщениеЕсли правильно понял суть вопроса,то можно так
[vba]
Код
Sub GeT_LinkedCell()
     Dim Shap As Shape
     For Each Shap In ActiveSheet.Shapes
         If Shap.Name Like "Check*" Then
             MsgBox Shap.Name & " " & Shap.DrawingObject.LinkedCell
         End If
     Next

End Sub
[/vba]

Автор - doober
Дата добавления - 20.11.2014 в 17:49
Stepler Дата: Пятница, 21.11.2014, 09:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
doober,
Спасибо большой - то, что надо...


P.S.Чтобы наступила смерть - необходима жизненная сила !!!
 
Ответить
Сообщениеdoober,
Спасибо большой - то, что надо...

Автор - Stepler
Дата добавления - 21.11.2014 в 09:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » определить привязку к ячейке CheckBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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