作者tnts (点点点)
看板Visual_Basic
标题Re: [VBA ] Excel下拉式清单-多选的小问题
时间Sun May 27 00:29:10 2012
把 .ListFillRange = "A1:A5" 换成下面那行
.ListFillRange = Range("A1", Range("A1").End(xlDown)).Address
把A栏全部填到ListBox
※ 引述《nonaidsman (My Love)》之铭言：
: 可以请教各位前辈
: 正在学习怎麽在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: 220.141.53.109