想要获取数组mon中最近6个月的名称列表，但由于下标超出范围而在行中出现错误
mon(X) = val
任何想法我错了，输出应该像
mon = ("DecWK1","DecWK2","DecWK3","DecWK4","Dec","JanWK1","JanWK2","JanWK3","JanWK4","Jan",.......)
主要代号
Sub ColorRows()
Dim mon() As Variant, MonthName() As Variant, X As Long
Dim val As String
X = 0
ReDim Preserve mon(X)
MonthName = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
Dim monName As String
For i = -6 To 0
' MsgBox i
monName = Format(DateAdd("M", i, Now), "MMMM")
' MsgBox sMonth_Name
For Each element In MonthName
ReDim Preserve mon(0 To X)
If InStr(monName, element) Then
For j = 1 To 4
val = element & "WK" & j
mon(X) = val
X = X + 1
Next j
mon(X) = element
X = X + 1
End If
Next element
Next i
End Sub
当ReDim您使用数组时，您无需考虑要添加的新元素。
写：
ReDim Preserve mon(0 To X + 4)
代替。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句