| Вопрос: SelectionChange | Добавлено: 15.03.07 09:50 |
Автор вопроса:  Cover Story
|
|
Еще раз всем доброго!
Вопрос на сей раз такой! Как событию SelectionChange присваивать разные подпрограммы? Например событию onAction я могу присвоить подпрограмму: Worksheets("sheet1").Buttons.OnAction = "Кнопка3_Щелкнуть" А как сделать тоже самое только с SelectionChange? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 15.03.07 10:10 |
|
мб в этой самой SelectionChange
Call Кнопка3_Щелкнуть () |
||
|
Номер ответа: 2 Автор ответа: Cover Story Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 15.03.07 11:17 |
| Может я неправильно выразился, в общем мне необходимо задать один и тот же SelectionChange для разных листов (точнее для одного), например я вставил лист и хочу программно для него задать SelectionChange. Как такое сделать? | ||
|
Номер ответа: 3 Автор ответа: ADSemenov.ru Вопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #3 | Добавлено: 15.03.07 12:11 |
|
____ А что мешает задать событие для всех листов в самой книге?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
____ А там уже разбираться, что за лист и с чем его едят. |
||
|
Номер ответа: 4 Автор ответа: Cover StoryВопросов: 2 Ответов: 3 |
Профиль | | #4 | Добавлено: 15.03.07 14:37 |
|
У меня такая процедура, я ее хочу применить к конкретному листу. Как это сделать?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With ActiveCell If .Column = 1 Then If .Interior.Pattern = xlPatternNone Then .Interior.Pattern = xlPatternGray25 Else .Interior.Pattern = xlPatternNone End If Cancel = True End If End With End Sub |
||
|
Номер ответа: 5 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #5 | Добавлено: 15.03.07 15:02 |
|
____ Подозреваю, что Cancel ошибочно использован. Или это Public переменная?
____ Чтобы применять к конкретному листу, надо его "узнать" в начале процедуры. ____ Будет проще понять, если Вы словами выразите условия задачи (или просто — последовательность необходимых действий в Excel-книге). |
||
Страница: 1 |