Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Вопрос по Worksheet_SelectionChange
 
#1
23.12.2010 09:32:27
Добрый день, Уважаемые.    
Вопрос касательно написания кода надстройки. Например нам надо чтобы вызывалась продцедура test() при изменении ячейки А1 на текущем листе. Для этого вставляю в модуль листа:  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Target.Address = "$A$1" Then Call test  
End Sub  
Вроде работает!    
Внимание вопрос. Что нужно дописать что бы при использовании этого файла как надстройки продцедура test запускалась при изменении ячейки А1 на любом листе текущей ВоркКниги ?
Редко но метко ...
 
 
 
#2
23.12.2010 09:39:35
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Спасибо
 
 
 
#3
23.12.2010 09:44:02
{quote}{login=R Dmitry}{date=23.12.2010 09:39}{thema=}{post}Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range){/post}{/quote}  
 
Эту продцедуру вставить в надстройку вместо Worksheet_SelectionChange ?  
Я правильно понял?
Редко но метко ...
 
 
 
#4
23.12.2010 09:48:11
Дык продцедура Workbook_SheetChange будет отлавливать изменение листа в самой надстройке а не в любой другой книге, или я что то не допонимаю ?
Редко но метко ...
 
 
 
#5
23.12.2010 09:52:52
{quote}{login=GIG_ant}{date=23.12.2010 09:48}{thema=}{post}Дык продцедура Workbook_SheetChange будет отлавливать изменение листа в самой надстройке а не в любой другой книге, или я что то не допонимаю ?{/post}{/quote}  
так попробуйте :)  
в модуле книга, событие которое отвечает за все листы Workbook_SheetChange
Спасибо
 
 
 
#6
23.12.2010 09:53:56
а надстройка что загружается не во все книги?
Спасибо
 
 
 
#7
23.12.2010 10:01:37
Тогда подскажите что я не правильно делаю.  
Беру пустой файл.  
Вставляю в модуль книги продцедуру:  
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
   MsgBox Sh.Parent.Name  
End Sub  
Сохраняю как надстройку.  
Подключаю.  
Открываю новую книгу, изменяю значения, и ниче не происходит ((. Похоже где то я чего то не доделал. В чем загвоздка ?
Редко но метко ...
 
 
 
#8
23.12.2010 10:29:02
Знатоки VBA. Подскажите как же все таки из надстройки отловить изменение которое происходит на листе другой книги. Застрял я на этом вопросе.
Редко но метко ...
 
 
 
#9
23.12.2010 10:39:03
так
Живи и дай жить..
 
 
 
#10
23.12.2010 10:54:27
{quote}{login=слэн}{date=23.12.2010 10:39}{thema=}{post}так{/post}{/quote}  
Спасибо Слэн. Похоже на то. Буду разбираться.
Редко но метко ...
 
 
 
#11
23.12.2010 11:08:34
Я для подобной ситуации создавал пользовательский класс.  
 
Объявял так  
Public wshEvent As clsSheetEventValues  
 
В обычных модулях  
Set wshEvent = New clsSheetEventValues  
 
 
В Class Modules  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If frmControlValue.Visible Then Call FormulaToolGo  
   If frmContVal.Visible Then Call ControlValuesGo  
End Sub  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If frmControlValue.Visible Then Call FormulaToolGo  
   If frmContVal.Visible Then Call ControlValuesGo  
End Sub  
 
 
 
 
Private Sub Class_Terminate()  
   Set Worksheet = Nothing  
End Sub  
 
Вообщем смотрите в мторону пользовательских классов
 
 
 
#12
23.12.2010 11:12:54
{quote}{login=слэн}{date=23.12.2010 10:39}{thema=}{post}так{/post}{/quote}  
Слэн, если не трудно, как заменить продцедуру что бы отлавливала не изменение ячейки, а клик по ячейке?
Редко но метко ...
 
 
 
#13
23.12.2010 11:16:22
просто клик - нет.  
есть двойной клик.  
 
или selectionchange - тоже сопровождается кликом
Живи и дай жить..
 
 
 
#14
23.12.2010 11:19:18
{quote}{login=слэн}{date=23.12.2010 11:16}{thema=}{post}просто клик - нет.  
есть двойной клик.  
 
или selectionchange - тоже сопровождается кликом{/post}{/quote}  
 
именно selectionchange
Редко но метко ...
 
 
 
#15
23.12.2010 11:21:33
Konstantin_ с наскоку разобраться не удалось, не пойму что в вашем примере обозначает rmControlValue, frmContVal.Visible и что за продцедуры FormulaToolGo  
и ControlValuesGo, наверное это что то из серии встроенных, но в справке не показывает.
Редко но метко ...
 
 
 
#16
23.12.2010 12:11:37
{quote}{login=GIG_ant}{date=23.12.2010 11:21}{thema=}{post}Konstantin_ с наскоку разобраться не удалось, не пойму что в вашем примере обозначает rmControlValue, frmContVal.Visible и что за продцедуры FormulaToolGo  
и ControlValuesGo, наверное это что то из серии встроенных, но в справке не показывает.{/post}{/quote}  
Private Sub Worksheet_Change(ByVal Target As Range)  
If frmControlValue.Visible Then Call FormulaToolGo  
If frmContVal.Visible Then Call ControlValuesGo  
End Sub  
- это просто процедуры, которые вызываются на эти события  
 
Поидее вам нужно:  
 
 
1) Создать новый Class Module  
 
Option Explicit  
 
Public WithEvents Worksheet As Worksheet  
Public wshEvent As clsSheetEventValues  
 
Private Sub Worksheet_Calculate()  
'Событие на пересчет  
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
'Событие на лист чанге  
End Sub  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
'Событие на селектион Change  
End Sub  
 
2)Объявить переменную (у меня это делается в отельном моудуле, по другому вроде не работало)  
 
Public wshEvent As clsSheetEventValues  
 
3) В ваших модулях исаользовать следующее (возможно в вашем случае это нужно прописать на событие на    
Private Sub Workbook_SheetActivate(ByVal Sh As Object)  
Set wshEvent = New clsSheetEventValues  
   Set wshEvent1.Worksheet = ActiveSheet  
End Sub  
 
т.е. класс модуля присваивается активному листу  
 
4) Наверное аолезно добавить и это на событие деактивации листа  
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)  
Set wshEvent = Nothing  
End Sub  
 
P.s к сожалению принцип работы модулей класса мне не настолько понятин, что бы достойно объяснить как это работает. Но думаю немного погуглив и ориентируясь на мое описание вы справитесь
 
 
 
#17
23.12.2010 12:32:38
Вот собрал пример - ксласс модуля на событие worksheet_change  
 
1) В модуле эта книга подсовываем class module активный лист  
Private Sub Workbook_SheetActivate(ByVal Sh As Object)  
Set wshEvent = New clsWrkEvents  
Set wshEvent.userWrksh = ActiveSheet  
End Sub  
 
2) В classmodule (clsWrkEvents)  
Обрабатываем событие изменения листа и в случае если адресс Target = A1 то делаем некое действие
 
 
 
#18
23.12.2010 12:39:55
Konstantin_  
Спасибо большое. Буду разбираться.
Редко но метко ...
 
 
 
Страницы: 1
Читают тему
Наверх