[已解决]加一个条件后，复制代码出溢。

hwc2ycy

最后的输出这里我没有做判断。

1.     If iRcd > 0 Then
   
2.         Sheet1.Range("a4").Resize(iRcd, 7).Value = Ar
   
3.     Else
   
4.         MsgBox "无符合条件的数据"
   
5.     End If

复制代码

应该得这样，否则当没有记录时就得报错了。

If iRcd > 0 Then 也可以这样   If iRcd  Then

hwc2ycy

If arr(i, 1) = ComboBox1.Value And arr(i, 2) = ComboBox2.Value And CStr(arr(i, 3)) = ComboBox3.Value Then    '增加ComboBox3.Value条件

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim arr, i As Long, Ar()
   
3.     Dim iRcd As Long
   
4.     Dim lLastRow As Long
   
5.     arr = Sheet3.Range("a1").CurrentRegion.Value
   
6.     ReDim Ar(1 To UBound(arr), 1 To 7)
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 1) = ComboBox1.Value And arr(i, 2) = ComboBox2.Value And CStr(arr(i, 3)) = ComboBox3.Value Then    '增加ComboBox3.Value条件
   
9.             iRcd = iRcd + 1
   
10.             Ar(iRcd, 1) = arr(i, 4)
    
11.             Ar(iRcd, 2) = arr(i, 5)
    
12.             Ar(iRcd, 3) = arr(i, 6)
    
13.             Ar(iRcd, 4) = arr(i, 7)
    
14.             Ar(iRcd, 5) = arr(i, 8)
    
15.             Ar(iRcd, 6) = arr(i, 11)
    
16.             Ar(iRcd, 7) = arr(i, 10) & arr(i, 12)
    
17.         End If
    
18.     Next i
    
19.     With Sheet1
    
20.         .[a1].Value = "竞赛报表"
    
21.         .[b2].Value = ComboBox1.Value
    
22.         .[d2].Value = ComboBox2.Value
    
23.         .[f2].Value = ComboBox3.Value
    
24. 
    
25. 
    
26.         lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    
27.         If lLastRow > 3 Then .Range("a4:g" & lLastRow).ClearContents
    
28. 
    
29.         If iRcd > 0 Then
    
30.             Sheet1.Range("a4").Resize(iRcd, 7).Value = Ar
    
31.             MsgBox "完成"
    
32.         Else
    
33.             MsgBox "无符合条件的数据"
    
34.         End If
    
35.     End With
    
36. End Sub

复制代码

没事

hwc2ycy 发表于 2013-6-18 10:11
If arr(i, 1) = ComboBox1.Value And arr(i, 2) = ComboBox2.Value And CStr(arr(i, 3)) = ComboBox3.Val ...

是这样，谢谢老师！