各位VBA高手大家好
小弟有一事想請教
小弟寫的VBA程式如下
Sub 交期()
Dim MO(100, 12)
Sheets("MO").Select
X = 2
Do While Cells(X, 1) <> ""
X = X + 1
Loop
For X1 = 2 To X
For Y1 = 1 To 12
MO(X1, Y1) = Cells(X1, Y1)
Next
Next
Cells(1, 15) = "希望交期"
For X1 = 2 To X - 1
If MO(X1, 12) > 0 Then
Cells(X1, 15) = ""
Else
For X2 = 2 To X - 1
Do While MO(X1, 12) + MO(X2, 10) < 0
If MO(X2, 4) = "進貨" Then
Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)
End If
X2 = X2 + 1
Loop
Exit For
Next
End If
Next
End Sub
小弟想要在
Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)
同一儲存格能夠顯示出有計算過的 日期跟數量
但怎麼改都只有最後一筆
請問該如何修改才能讓
Cells(X1, 15) 能夠顯示多資料呢? |
發表於 2015-1-7 13:31
| 
