[發問] VBA 儲存格放多筆資料

fantersy

各位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) 能夠顯示多資料呢?

PKKO

回復 1# fantersy

試試看

把Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)  換成


if Cells(X1, 15) ="" then
    Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6)  '如果此儲存格是空白的
else
    Cells(X1, 15) = Cells(X1, 15) &  Chr(10)   & MO(X2, 3) & ">>" & MO(X2, 6)  '如果不是空白
end if

fantersy

回復 2# PKKO


    哇~可以了:'(
太感謝 Bob大大了:D