[已解决]1032446692 老师请进，这个宏按钮为什么提示类型不匹配？

stockding111

如题，相同的宏按钮，在第一个文件里是可用的，在第二个文件里为什么提示类型错误呢？
第二个文件（错误提示）.zip (317.2 KB, 下载次数: 8)

2013-6-8 12:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-8 13:23

Sub 历史对照_按钮53_Click()
Dim n, arr, i
n = 1
arr = [bv4].Resize([bv60000].End(xlUp).Row - 1)
For i = 1 To UBound(arr)
    If IsNumeric(arr(i, 1)) Then
        Do
        If (arr(i, 1) / 6 - n * (n - 1) / 2) / n > 0 And (arr(i, 1) / 6 - n * (n - 1) / 2) / n < 1 Or n > 100 Then Exit Do
        n = n + 1
        Loop
        If n <= 100 Then arr(i, 1) = n Else arr(i, 1) = "无"
        n = 1
    Else
        arr(i, 1) = "非数值型数据"
    End If
Next i
[ca4].Resize(UBound(arr)) = arr
End Sub

跳转到最佳答案楼层

1032446692

因为你FH列后面有很多错误值  进而导致前面有部分引用该区域数据的单元格出现错误   代码执行的时候就会出错

stockding111

谢谢，我明白了！

1032446692

这段代码中参与计算的必须是数值型数据   不是的话  就会报错  最好调整为数值型   有错误值的如果你能够改掉就改掉   不能够改掉的话   就设置方法跳过

stockding111

1032446692 发表于 2013-6-8 12:08
这段代码中参与计算的必须是数值型数据   不是的话  就会报错  最好调整为数值型   有错误值的如果你能够改 ...

老师，遇到错误值就跳过怎么设置？

1032446692

Sub 历史对照_按钮53_Click()
Dim n, arr, i
n = 1
arr = [bv4].Resize([bv60000].End(xlUp).Row - 1)
For i = 1 To UBound(arr)
    If IsNumeric(arr(i, 1)) Then
        Do
        If (arr(i, 1) / 6 - n * (n - 1) / 2) / n > 0 And (arr(i, 1) / 6 - n * (n - 1) / 2) / n < 1 Or n > 100 Then Exit Do
        n = n + 1
        Loop
        If n <= 100 Then arr(i, 1) = n Else arr(i, 1) = "无"
        n = 1
    Else
        arr(i, 1) = "非数值型数据"
    End If
Next i
[ca4].Resize(UBound(arr)) = arr
End Sub

1032446692

你看这样行不行   

可以就设个最佳

stockding111

1032446692 发表于 2013-6-8 13:23
Sub 历史对照_按钮53_Click()
Dim n, arr, i
n = 1

太棒了，问题解决了！！