返回列表下一主題上一主題發帖

[發問] 程式執行錯誤,代碼

佩玄

中學生 Rank: 2

帖子: 12
主題: 6
精華: 0
積分: 65
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 桃園
註冊時間: 2010-5-12
最後登錄: 2014-5-29

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-19 16:58 | 只看該作者

[發問] 程式執行錯誤,代碼

安安~~

使用陣列方式，比對二份資料，．．．主要程式如下：
執行時，會出現錯誤，錯誤停在　[A4].Resize(bb, 50) = arr
勞請大師幫幫忙解惑～解惑～是那一段出錯?

ReDim arr(1 To UBound(bb), 1 To 50)  '預定計劃版本

For it = 1 To UBound(aa)
　 If aa(it, 1) = inx Then
         For i = 1 To UBound(bb) 　'執行計劃為主
　　　　 If aa(it, 4) & aa(it, 5) & aa(it, 6) & lc = bb(i, 2) & bb(i, 3) & bb(i, 4) & bb(i, 13) Or bb(i, 13) = "L1B" Then
   　　　　 If bb(i, 1) = " 繳庫" And bb(i, 13) = "L1A" Then
   　　　　　 For t = 1 To 14
      　　　　  　 arr(i, t) = bb(i, t)
      　　　　　 Next
         　　　　　z = 8
         　　　　　 For z = 8 To col
         　　　　　 arr(i, 7 + z) = aa(it, z)
      　　　　　  Next
      　　　　 it = UBound(aa)
                  Else
         　　　　For tt = 1 To coll
         　　　　　  arr(i, tt) = bb(i, tt)
      　　　　 Next
      　　　　　    it = UBound(aa)
   　　　　  End If
   　　 End If
  　　　 Next
  　　End If
　Next

　Worksheets("L1 排產計劃").Select
　[A4].Resize(bb, 50) = arr