如何获取文本框以显示结果

Question

试图在textbox18中获得结果，但没有结果。这段代码有什么问题吗？

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