作者nonaidsman (My Love)
看板Visual_Basic
标题[VBA ] Excel下拉式清单-多选的小问题
时间Thu May 24 22:30:06 2012
可以请教各位前辈
正在学习怎麽在Excel内打上下拉多选清单，利用listbox
但参考网路上的语言可以成功实现，如下
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
Dim arr(), s%, i%
If KeyCode = 13 Then
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ReDim Preserve arr(s)
arr(s) = ListBox1.List(i)
s = s + 1
End If
Next
[B1] = Join(arr, ",")
ListBox1.Visible = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ListBox1
If Target.Address = "$B$1" Then
.Top = Range("B1").Top + Range("B1").Height
.Left = Range("B1").Left
.ListFillRange = "A1:A5"
.MultiSelect = fmMultiSelectMulti
.Visible = True
Else
ListBox1.Visible = False
End If
End With
End Sub
------------------------------------------------------
但後来我需要是一整栏(例如B栏)都可以套用到这各下拉选单
请问我该怎麽修改这各语言阿，先跟各位前辈感谢了！
试了好多次，查了好久都没办法解决@@
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.166.196.209