[VBA ] 下拉式選單 複選 於同一欄輸出
各位先進好，
小弟目前需要於某一欄位，在點選後出現另一個活頁簿的幾個選項，
點選後能順利跳出資料窗體進行選取，
之後於窗體按下執行於同一欄位輸出功能時，
就出現"執行階段錯誤 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
→
08/11 23:02,
4年前
, 1F
08/11 23:02, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
