Как написать класс для обработки ScrollBar-ов на листе

= Мир MS Excel/Как написать класс для обработки ScrollBar-ов на листе - Мир MS Excel

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

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

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Коллеги, приветствую!
Чего-то у меня конец недели рано наступил. Есть вот такой код класса для обработки событий ScrollBar-ов на UserForm: [vba]

Код

Public WithEvents scr As MSForms.ScrollBar
Private Sub scr_Change()
MsgBox scr.Name
End Sub

Private Sub scr_Scroll()
MsgBox scr.Name
End Sub

[/vba] Вопрос - как это переписать, чтобы обратиться к ScrollBar-ам на листе?

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

Дата: Четверг, 21.09.2017, 14:48 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Блин, сам разобрался - в модуль листа: [vba]

Код

Private Sub Worksheet_Activate()
    For i = 1 To 3
        Set a(i).scr = Me.OLEObjects("ScrollBar" & i).Object
    Next
End Sub

[/vba]

[p.s.]с ростом опыта временной промежуток между "какого хрена?" и "ну я дебил!" сокращается

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

Сообщение отредактировал buchlotnik - Четверг, 21.09.2017, 15:01