作者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/cn.aspx?n=bbs/Visual_Basic/M.1597155573.A.AE0.html
1F：→ fumizuki: 猜猜看 错误的时候 i 值是多少？Sheet3是否存在？ 08/11 23:02