Передача ссылки на объект в Visual Basic (VBA)

Question

Как передать объект TextBox формы методу?

Следующий код выдает исключение.

Private Sub DoSmthWithTextBox(ByRef txtBox as TextBox)
    txtBox.BackColor = vbRed
End Sub

Private Sub TextBox1_Change()
    DoSmthWithTextBox Me.TextBox1
End Sub

Проблема возникает, когда DoSmthWithTextBox Me.TextBox1 передает String из TextBox1 вместо ссылки на объект.

Как передать объект TextBox методу DoSmthWithTextBox?

Answer 1

Переписать для Excel:

Private Sub DoSmthWithTextBox(txtBox As MSForms.TextBox)
    txtBox.BackColor = vbRed
End Sub

Насколько я знаю, это связано с тем, что в Excel есть текстовое поле объекта, представляющее собой форму, а пользовательские формы используют текстовое поле элемента управления ActiveX, поэтому вам нужна явная ссылка на библиотеку MSForms.