Sub Go()
Dim v1 As ComboBox, v2 As ComboBox
Set v1 = ActiveSheet.ComboBox1
Set v2 = ActiveSheet.ComboBox2
Call GG(v1)
Call GG(v2)
End Sub
Sub GG(v As ComboBox)
MsgBox v.Top
End Sub
передача объектов в процедуру
Подскажите пож-та каким образом в Visual Basic For Application передать ссылку на какой либо объект в процедуру.
Существует много combobox-ов, при их изменении должна срабатывать одна и та же процедура.
если так:
call ProcedureName(combobox1)
- то он не воспринемает combobox как объект, а воспринемает текст, который записан в нем.
Существует много combobox-ов, при их изменении должна срабатывать одна и та же процедура.
если так:
call ProcedureName(combobox1)
- то он не воспринемает combobox как объект, а воспринемает текст, который записан в нем.
Цитата:
Originally posted by stalwart
Подскажите пож-та каким образом в Visual Basic For Application передать ссылку на какой либо объект в процедуру.
Существует много combobox-ов, при их изменении должна срабатывать одна и та же процедура.
если так:
call ProcedureName(combobox1)
- то он не воспринемает combobox как объект, а воспринемает текст, который записан в нем.
Подскажите пож-та каким образом в Visual Basic For Application передать ссылку на какой либо объект в процедуру.
Существует много combobox-ов, при их изменении должна срабатывать одна и та же процедура.
если так:
call ProcedureName(combobox1)
- то он не воспринемает combobox как объект, а воспринемает текст, который записан в нем.
Код:
Цитата:
Originally posted by Cutty Sark
Код:
Sub Go()
Dim v1 As ComboBox, v2 As ComboBox
Set v1 = ActiveSheet.ComboBox1
Set v2 = ActiveSheet.ComboBox2
Call GG(v1)
Call GG(v2)
End Sub
Sub GG(v As ComboBox)
MsgBox v.Top
End Sub
Dim v1 As ComboBox, v2 As ComboBox
Set v1 = ActiveSheet.ComboBox1
Set v2 = ActiveSheet.ComboBox2
Call GG(v1)
Call GG(v2)
End Sub
Sub GG(v As ComboBox)
MsgBox v.Top
End Sub
спасибо