標題: [發問] 程式執行錯誤,代碼 [打印本頁]

---

作者: 佩玄    時間: 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

---

作者: oobird    時間: 2011-1-20 08:55

resize(列數，欄數)
這兩個參數都必須是數字
你可以用
[A4].Resize(uboud(bb), 50) = arr

---

作者: 佩玄    時間: 2011-1-20 17:19

感恩!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)