Tag: out

VBA Excel：奇数下标超出范围错误（9）

我遇到了一个奇怪的VBA下标超出范围错误在这个简单的子： Sub writeTypes(ByVal rowNb As Long, ByVal colNb, ws As Worksheet) On Error GoTo ErrorHandler_ObjMethod Const METHOD_NAME = "writeTypes (CCase)" With ws If Not isArrayEmpty(pTypes) Then For i = LBound(pTypes) To UBound(pTypes) If pTypes(i) <> "" Then .Cells(rowNb, colNb).Value = .Cells(rowNb, colNb).Value & pTypes(i) & ";" ElseIf i = UBound(pTypes) Then .Cells(rowNb, colNb).Value = Left(.Cells(rowNb, […]