Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » tsap
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Передача в другой модуль ссылки на объект
 
#
04.11.2018 22:30:02
Раз у вас после каждого изменения поля запускается процедура отлавливающая изменения, то в данной процедуре и присваивайте объекту ссылку на поле, которое изменилось. К примеру, у Вас есть событие TextBox1_Change() в котором отслеживается изменение данных в текстовом поле. В нем у Вас будет что-то наподобие

Код
Sub TextBox1_Change()
Dim perem as object
Set perem = UserForm1.TextBox1
Call Chang (perem)
End Sub


Я правильно Вас понял?
Изменено: tsap - 04.11.2018 22:32:58
 
Перейти    
Передача в другой модуль ссылки на объект
 
#
04.11.2018 20:08:59
Цитата
Вопрос - Какого типа нужно объявить переменную "perem", что бы в ней можно было хранить ссылку на объект?
Объявляйте тип Object

Цитата
А как передать ссылку на активное поле?
Сначала определите какое поле у вас активное в данный момент, а потом передавайте ссылку на это поле (опять же предварительно объявив его как Object)
 
Перейти    
Как назначить ряду однотипных счетчиков ряд подконтрольных ячеек (LinkedCell)
 
#
07.05.2014 09:56:10
akapitanov, все верно - не используется. Удалите ее - это из другого кода затесалось  :)
 
Перейти    
Как назначить ряду однотипных счетчиков ряд подконтрольных ячеек (LinkedCell)
 
#
07.05.2014 02:30:10
Код
Sub AssignIt()
Dim obj As Object
Dim i As Integer, j As Byte

For i = 1 To Worksheets("Primary").OLEObjects.Count
    With Worksheets("Primary")
    If .OLEObjects(i).Name Like "Dexterity_#_spin" Then
    j = j + 1
    .OLEObjects(i).LinkedCell = "D" & (cm_p1_x2_b + j * 4)
'    Debug.Print .OLEObjects(i).Name & " - " & .OLEObjects(i).LinkedCell
    End If
    End With
Next

End Sub
 
Перейти    
Страницы: 1
Наверх