大神，VBA请教下。控件代码无法显示！！！

shenmingqq

各位大神，调空间输入正确的信息后，无法显示出来，求正确的代码。叩谢！

Private Sub ComboBox2_Change() '查询
If Application.CountIf(Sheet1.Range("D:D"), ComboBox2.Text) = 1 Then
a = Sheet1.Range("D:D").Find(ComboBox2).Row
For i = 1 To 15
Me.Controls("textbox" & i) = Sheet1.Cells(a, i + 1)
Next i
ComboBox1.Text = Sheet1.Cells(a, 1)

ComboBox3.Text = Sheet1.Cells(a, 2)

ComboBox4.Text = Sheet1.Cells(a, 10)

ComboBox5.Text = Sheet1.Cells(a, 12)

ComboBox6.Text = Sheet1.Cells(a, 13)

ComboBox7.Text = Sheet1.Cells(a, 9)

Else
MsgBox ComboBox2 & "  不存在"
End If
End Sub

y1983y

最好将附件发上来，这样方便修改和测试

shenmingqq

y1983y 发表于 2018-3-11 15:16
最好将附件发上来，这样方便修改和测试

感谢
我已经测试好了，谢谢哈