การวน loop ของ array

[zxcv]

Code: Select all

Dim CostCenter() As String
Dim n, ccn As Integer


For n = 0 To UBound(CostCenter)
            ccn = ccn + 1
            ReDim Preserve CostCenter(0 To (UBound(CostCenter) + 1))
            CostCenter(UBound(CostCenter)) = ActiveCell.Value
Next

เป็นการเลื่อนเซลลงมาทีละแถวๆ(ไม่ได้แสดง code) แล้วเช็คค่าใน array ว่าซ้ำกับค่าของเซลหรือไม่ หากไม่ซ้ำให้เพิ่มขนาดของ array และนำค่าในเซลมาใส่

แต่เกิด Run time error '6' Overflow ที่ For ... Next โดยขนาดของ array บวมมากๆ
ลองนำ For .... Next ออก ก็ไม่มี error ครับ

ต้องเพิ่ม code อย่างไรครับ ถึงจะแก้ Oveflow ได้ครับ

[bank9597]

หากแนบไฟล์ตัวอย่ามาด้วย จะดีมากเลยครับ เพราะจะได้นำไปทดสอบได้


vba ผมไม่ถนัด ต้องรอให้ท่านอื่นมาช่วยดูอีกทีครับ

[zxcv]

แก้ไขได้แล้วครับ
code ดังกล่าวมีการเพิ่มขนาด array ตลอดเวลา โดยไม่มีการดักค่าที่ถูกต้องครับ

ขอบคุณครับ