[已解决]总是报type mismatch的错误

pccling

请教下大家，　我在textbox3输入的值在表格列中能匹配到的时候不会报这个错，但是一旦输入的找不到，就会报错，
Private Sub CommandButton5_Click()

Dim a1 As Integer

If Left(TextBox3.Text, 10) = "10.186.147" Then
   
    ComboBox1.Value = "Non-SVO ERNCSim"
   
For a1 = 3 To 200 Step 1
   
    If Sheets("Non-SVO ERNCSim").Cells(a1, 10) = TextBox3.Text Then
           
    ComboBox2.Value = Workbooks("Network Plan PB3.xls").Sheets("Non-SVO ERNCSim").Cells(a1, 2)

    Exit For
   
    Else
   
    End If

    Next

            
Else
                     
End If


End Sub

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-9-26 16:57

1. Private Sub CommandButton5_Click()
   
2. On Error Resume Next
   
3. Dim a1 As Integer
   
4. If Left(TextBox3.Text, 10) = "10.186.147" Then
   
5.        ComboBox1.Value = "Non-SVO ERNCSim"
   
6.    For a1 = 3 To 200
   
7.        If Sheets("Non-SVO ERNCSim").Cells(a1, 10) = TextBox3.Text Then
   
8.                ComboBox2.Value = Workbooks("Network Plan PB3.xls").Sheets("Non-SVO ERNCSim").Cells(a1, 2)
   
9.     Exit For
   
10.     End If
    
11.     Next
    
12. End If
    
13. End Sub

复制代码

跳转到最佳答案楼层

美斯特邦威

1. Private Sub CommandButton5_Click()
   
2. On Error Resume Next
   
3. Dim a1 As Integer
   
4. If Left(TextBox3.Text, 10) = "10.186.147" Then
   
5.        ComboBox1.Value = "Non-SVO ERNCSim"
   
6.    For a1 = 3 To 200
   
7.        If Sheets("Non-SVO ERNCSim").Cells(a1, 10) = TextBox3.Text Then
   
8.                ComboBox2.Value = Workbooks("Network Plan PB3.xls").Sheets("Non-SVO ERNCSim").Cells(a1, 2)
   
9.     Exit For
   
10.     End If
    
11.     Next
    
12. End If
    
13. End Sub

复制代码

pccling

可以了,实在太感谢了