b = 1: a = 1
Range("data").value = ""
Do While value(b, 2) <> Empty
If doone(b, 13) + doone(b, 23) - doone(b, 33) <> 0 Then
sheet_yl.Cells(a + 2, inone(1)).value = a '序號
sheet_yl.Cells(a + 2, inone(2)).value = value(b, 2) '產品批號
sheet_yl.Cells(a + 2, inone(3)).value = value(b, 3) '產品代號
sheet_yl.Cells(a + 2, inone(4)).value = date_st(b, 4) '入庫日期
If value(b, 5) = "" Then value(b, 5) = "生產入庫"
sheet_yl.Cells(a + 2, inone(5)).value = value(b, 5) '入庫類別
sheet_yl.Cells(a + 2, inone(6)).value = value(b, 6) '成品名稱
sheet_yl.Cells(a + 2, inone(7)).value = value(b, 7) '客戶
sheet_yl.Cells(a + 2, inone(8)).value = value(b, 8) '客戶代號
sheet_yl.Cells(a + 2, inone(9)).value = value(b, 9) '訂單號
sheet_yl.Cells(a + 2, inone(10)).value = value(b, 10) '基布
sheet_yl.Cells(a + 2, inone(11)).value = value(b, 11) '后加工
sheet_yl.Cells(a + 2, inone(12)).value = doone(b, 12) '厚度
sheet_yl.Cells(a + 2, inone(13)).value = doone(b, 13) + doone(b, 23) - doone(b, 33) '數量
sheet_yl.Cells(a + 2, inone(14)).value = doone(b, 14) '件數
sheet_yl.Cells(a + 2, inone(15)).value = value(b, 15) '庫位
sheet_yl.Cells(a + 2, inone(16)).value = value(b, 16) '備注(有發貨人插入，故位置有所調整，以下同）
sheet_yl.Cells(a + 2, inone(17)).value = value(b, 17) '代號備注
sheet_yl.Cells(a + 2, inone(18)).value = value(b, 18) '基布代號備注
a = a + 1
End If
b = b + 1
Loop
提示錯誤 運行時錯誤‘1004’方法‘Range’作用于物件‘_Global...
uj5u.com熱心網友回復：
Range("data").value = "" 這里怎么修改uj5u.com熱心網友回復：
代碼并沒有錯。
錯誤在于：你“當前的活動作業表”中，沒有被命名為“data”的單元格區域！！！
uj5u.com熱心網友回復：
另外，僅從你貼出來的這段代碼來看，后面一大堆的 含有value(b, x) 的 （這兒x是指任意的數值）代碼恐怕都是錯的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/72123.html
標籤：VBA