как получить текстовое поле для отображения результатов

Question

пытается получить результаты в текстовом поле18, но без результатов.Что-то не так с этим кодом?

Private Sub CommandButton4_Click()

Dim id As String
Dim finalrow As Integer
Dim i As Integer

id = Me.ComboBox17.Text
finalrow = Sheets("Sheet2").Range("B27").End(xlUp).Row

For i = 7 To finalrow
    If Sheets("Sheet2").Cells(i, 2).Text = id Then
        Me.TextBox18 = Sheets("Sheet2").Cells(i, 9).Text

        End If

    Next i


End Sub

Answer 1

Помните, что само текстовое поле является объектом, в котором Text является полем. Поэтому, если вы хотите изменить значение этого поля, попробуйте:

Me.TextBox18.Text = Sheets("Sheet2").Cells(i, 9).Text