[VBA ] 下拉式選單 複選 於同一欄輸出

[steve0910 (沈提夫)]

各位先進好，
小弟目前需要於某一欄位，在點選後出現另一個活頁簿的幾個選項，
點選後能順利跳出資料窗體進行選取，

之後於窗體按下執行於同一欄位輸出功能時，
就出現"執行階段錯誤 424"此處需要物件
程式碼如下:

Private Sub CommandButton1_Click()

Dim Arr(), k&, i&

ReDim Arr(1 To 1)

With ListBox1

For i = 1 To .ListCount - 1

If .Selected(i) Then
k = k + 1

ReDim Preserve Arr(1 To k)


Arr(k) = Sheet3.Range("A" & (i + 1)).Value  <---此處出現問題，但找不出原因
End If

If .Selected(i) = False Then
End If


Next i

End With

UserForm1.Hide

Application.ActiveCell.Value = Join(Arr, ",")

End Sub

弄了一天還無法解決，只好上來麻煩各位先進協助...感恩再感恩




--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 124.9.13.148 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1597155573.A.AE0.html
→ fumizuki: 猜猜看 錯誤的時候 i 值是多少？Sheet3是否存在？