[已解决]VBA，下标越界

h200797080

预测分析.rar (8.47 KB, 下载次数: 10)

2012-7-3 09:51 上传

点击文件名下载附件
就是这个附件 Sub 预测分析()
Dim ar As Range
Dim i, x As Integer
For x = 1 To Sheets.Count
For i = 2 To Sheets("phase " & x & " 分析").Range("a1").End(xlDown).Row
For Each ar In Sheets("phase " & x & " 分析").UsedRange
If IsNumeric(ar) & ar.Value > 0 Then ar.Interior.ColorIndex = 8
Next
Sheets("phase " & x & " 分析").Range("a" & i).End(xlLeft).Offset(0, 1) = "=sum(a" & i & ":a" & Range("a" & i).End(xlRight).Row & ")"
Sheets("phase " & x & " 分析").Range("a" & i).End(xlLeft).Offset(0, 1).Font.ColorIndex = 13
Sheets("phase " & x & " 分析").Range("a" & i).End(xlLeft).Offset(0, 1) = "=average(a" & i & ":a" & Range("a" & i).End(xlRight).Row & ")"
Sheets("phase " & x & " 分析").Range("a" & i).End(xlLeft).Offset(0, 1).Font.ColorIndex = 13
Next
Next
End Sub

最佳答案

月排行榜 / 总排行榜

long826121

2012-7-3 10:46

h200797080 发表于 2012-7-3 10:39
If IsNumeric(ar) And ar.Value > 0 Then ar.Font.ColorIndex = 8
& 改成  And  这个数字处理就没有问题 但 ...

Sub 预测分析()
Dim a As Range
Dim i, x As Integer
For x = 1 To Sheets.Count
For i = 2 To Sheets("phase" & x & "分析").Range("A:A").End(xlDown).Row
For Each ar In Sheets("phase" & x & "分析").UsedRange
If IsNumeric(a) > 0 Then a.Interior.ColorIndex = 8
Next
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1) = "=SUM(a" & i & ":a" & Range("a" & i).End(xlDown).Row & ")"
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1).Font.ColorIndex = 13
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1) = "=average(a" & i & ":a" & Range("a" & i).End(xlDown).Row & ")"
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1).Font.ColorIndex = 13
Next
Next
End Sub
已经测试没有问题，我有附件上传不了，网络烂

跳转到最佳答案楼层

过儿

测试回复

long826121

并非你说的那个错误，重新测试！

h200797080

long826121 发表于 2012-7-3 10:28
并非你说的那个错误，重新测试！

不会吧 我这上面显示的就是这个错误 当然那个each IN 也有问题 没有做出我想要的结果

h200797080

If IsNumeric(ar) And ar.Value > 0 Then ar.Font.ColorIndex = 8
& 改成  And  这个数字处理就没有问题 但是下面的求和和 求平均还是和以前一样的错误
应用程序定义或对象定义错误

long826121

h200797080 发表于 2012-7-3 10:39
If IsNumeric(ar) And ar.Value > 0 Then ar.Font.ColorIndex = 8
& 改成  And  这个数字处理就没有问题 但 ...

Sub 预测分析()
Dim a As Range
Dim i, x As Integer
For x = 1 To Sheets.Count
For i = 2 To Sheets("phase" & x & "分析").Range("A:A").End(xlDown).Row
For Each ar In Sheets("phase" & x & "分析").UsedRange
If IsNumeric(a) > 0 Then a.Interior.ColorIndex = 8
Next
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1) = "=SUM(a" & i & ":a" & Range("a" & i).End(xlDown).Row & ")"
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1).Font.ColorIndex = 13
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1) = "=average(a" & i & ":a" & Range("a" & i).End(xlDown).Row & ")"
Sheets("phase" & x & "分析").Range("a" & i).End(xlDown).Offset(0, 1).Font.ColorIndex = 13
Next
Next
End Sub
已经测试没有问题，我有附件上传不了，网络烂

h200797080

long826121 发表于 2012-7-3 10:46
Sub 预测分析()
Dim a As Range
Dim i, x As Integer

倒数第二个NEXT 提示 for 循环没有初始化
而且我是想在列中进行求和 和平均 不是最下行