局域网控制管理软件:下标越界是怎么回事？

来源：百度文库编辑：杭州交通信息网时间：2024/04/27 10:59:26

这是一段VBA程序，运行的时候提示我下标越界，但是本菜鸟找不出原因。。。请大家指点，谢谢。

Sub anly()

Dim i, r, c '定义行/列数目
r = 7
c = 7

Do Until r = 31

Range("E35").Value = Range("C" & r).Value

Do Until c = 13

Select Case c
Case 7
Range("F35").Value = "0%"
Range("G35").Value = "0%"
Case 8
Range("F35").Value = "10%"
Range("G35").Value = "10%"
Case 9
Range("F35").Value = ">10%"
Range("G35").Value = "<50%"
Case 10
Range("F35").Value = ">40%"
Range("G35").Value = "<80%"
Case 11
Range("F35").Value = ">70%"
Range("G35").Value = "<100%"
Case 12
Range("F35").Value = "100%"
Range("G35").Value = "100%"
End Select

Cells(r & c).Value = Application.WorksheetFunction.DSum(Worksheets(Funnel).Range("D3:G300"), _
Worksheets(Analyse).Range("G4"), Worksheets(Analyse).Range("E34:G35"))
c = c + 1
Loop

r = r + 1

Loop

End Sub

下标越界是怎么回事？ MSHFlexGrid1下标越界是什么原因如何处理下标越界什么叫下标越界？ VB 下标越界自己写的ASP 下标越界: '[number: 8]' 运行是错误，下标越界？？怎么解决天正市政跟excel联用为什么总是出现“下标越界”？下面的代码调试的时候提示下标越界? VB编译错误实时错误 "9" 下标越界