- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
樓主~ 因為我不知道妳是要key in sheet2中 "A"欄位資料後才出現"B"欄位的資料
還是說直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
下面是我依設一個按鍵的方式~
直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
但是執行後~ 因樓主sheet1中第148列以後的資料是有問題的~ 所以~ 程式碼執行後會產生錯誤
Private Sub CommandButton1_Click()
Do Until Sheet2.Range("A" & 2 + I) = ""
Sheet1.Range("A" & 2 + N) = Sheet2.Range("A" & 2 + I)
Sheet1.Range("B" & 2 + N) = "材料預估需求量(a)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "MIS需求(a')"
N = N + 1
Sheet1.Range("B" & 2 + N) = "庫存量(b)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "在途量(c)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "寄售庫(d)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "最低存量(e)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存(f)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存DOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "建議請購量(g)"
N = N + 1
Sheet1.Range("B" & 2 + N) = "預計請購量"
N = N + 1
Sheet1.Range("B" & 2 + N) = "結存+預計請購DOI"
N = N + 1
Sheet1.Range("B" & 2 + N) = "備註(更新日)"
N = N + 1
I = I + 1
Loop
End Sub |
|
發表於 2011-5-26 15:45
| 