作者steve0910 (沈提夫)
看板Visual_Basic
標題[VBA ] 下拉式選單 複選 於同一欄輸出
時間Tue Aug 11 22:19:31 2020
各位先進好，
小弟目前需要於某一欄位，在點選後出現另一個活頁簿的幾個選項，
點選後能順利跳出資料窗體進行選取，
之後於窗體按下執行於同一欄位輸出功能時，
就出現"執行階段錯誤 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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1597155573.A.AE0.html
1F：→ fumizuki: 猜猜看 錯誤的時候 i 值是多少？Sheet3是否存在？ 08/11 23:02