Excel VBA: การให้ค่าอาร์เรย์เป็นขีดจำกัด 'for loop'

แก้ไขโค้ดดังนี้:

For L = 0 To j

    For K= c_bound_h(L) To c_bound_h(L+1)-1
    Next K

Next L

ใช้สำหรับ L = 1 ถึง J-1....

เนื่องจาก c_bound_h(L+1) มิฉะนั้นจะอยู่นอกขอบเขต

คุณกำลังประกาศ c_bound_h เป็นจำนวนเต็มหรือไม่?

ฉันใส่รหัสนี้ลงในสมุดงานและมันทำงานได้ดีสำหรับฉัน: -

Sub test()

j = 3

Dim c_bound_h(4) As Integer

c_bound_h(0) = 2
c_bound_h(1) = 1508
c_bound_h(2) = 3014
c_bound_h(3) = 4519


For L = 0 To j

    For k = c_bound_h(L) To c_bound_h(L + 1) - 1
        MsgBox ("pass")
    Next k

Next L



End Sub

จำเป็นต้องป้องกันการวนซ้ำที่ไม่จำเป็นโดยการเปรียบเทียบ 2 ค่าในแต่ละครั้ง แต่ต้องไม่เกินขีดจำกัดของอาร์เรย์ สิ่งนี้อิงตามโค้ด 'Don Relentless' แต่มีการแก้ไขเล็กน้อย

Sub test()

j = 3

Dim c_bound_h(0 to 3) As Integer

c_bound_h(0) = 2
c_bound_h(1) = 1508
c_bound_h(2) = 3014
c_bound_h(3) = 4519

For L = 1 To j

    For k = c_bound_h(L-1) To c_bound_h(L) - 1
        debug.print "pass row " & k
    Next k

Next L

End Sub