作者：绿色风
分类：
时间：2022-08-17
浏览：118
楼主
biaotiger1 |
Q：多列列表框如何向单元格赋值？
A：
步骤一、在sheet1工作表中插入一个ActiveX控件的列表框控件，并设置ColumnCount值为4。
步骤二、右键单击sheet1工作表标签，弹出快捷菜单→“查看代码”，在代码窗口输入代码如下
- Private Sub ListBox1_Click()
- With ListBox1
- For n = .ListCount - 1 To 0 Step -1
- If .Selected(n) Then
- ActiveCell = .List(n, 0)
- ActiveCell(, 2) = .List(n, 1)
- ActiveCell(, 3) = .List(n, 2)
- ActiveCell(, 4) = .List(n, 3)
- .Selected(n) = False
- End If
- Next n
- .Visible = False
- End With
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Count > 1 Or Target.Column <> 6 Then
- ListBox1.Visible = False: End
- End If
- If Target.Column = 6 Then
- With ListBox1
- .Column = Application.Transpose([A1:D11])
- .Top = Target.Top
- .Left = Target(, 2).Left
- .Visible = True
- End With
- End If
- End Sub
在sheet1工作表中单击F列单元格，则在活动单元格右侧弹出列表框，鼠标单击列表框对应行后，则该行信息显示在F:I列对应单元格中。
 多列列表框向单元格赋值.rar
|
2楼
wise |
标哥，这个帖子都还没有说明，就采编了，有点不太正确 |
3楼
wise |
个人觉得还是ｅ问ｅ答原创较好，楼主都没有给出其他东西，采编好像不好 |
4楼
0Mouse |
这一段- For n = .ListCount - 1 To 0 Step -1
- If .Selected(n) Then
- ActiveCell = .List(n, 0)
- ActiveCell(, 2) = .List(n, 1)
- ActiveCell(, 3) = .List(n, 2)
- ActiveCell(, 4) = .List(n, 3)
- .Selected(n) = False
- End If
- Next n
不用循环貌似也能实现预期效果，只是略有区别。- n = .ListIndex
- ActiveCell = .List(n, 0)
- ActiveCell(, 2) = .List(n, 1)
- ActiveCell(, 3) = .List(n, 2)
- ActiveCell(, 4) = .List(n, 3)
附件：
多列列表框向单元格赋值xq.rar
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一