请问如何把工作表中符合条件的记录填写到VBA listbox中?
7条回答 默认 最新
- 阳光宅男xxb 2023-01-03 14:37关注
Private Sub CommandButton1_Click() ' Purpose: fill listbox with range values after clicking on CommandButton1 ' (code could be applied to UserForm_Initialize(), too) ' Note: based on @Siddharth-Rout 's proposal at https://stackoverflow.com/questions/10763310/how-to-populate-data-from-a-range-multiple-rows-and-columns-to-listbox-with-vb ' but creating a variant data field array directly from range in a one liner ' (instead of filling a redimensioned array with range values in a loop) Dim ws As Worksheet Dim rng As Range Dim MyArray ' variant, receives one based 2-dim data field array '~~> Change your sheetname here Set ws = Sheets("Sheet1") '~~> Set you relevant range here Set rng = ws.Range("A1:C" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row) With Me.ListBox1 .Clear .ColumnHeads = False .ColumnCount = rng.Columns.Count '~~> create a one based 2-dim datafield array MyArray = rng '~~> fill listbox with array values .List = MyArray '~~> Set the widths of the column here. Ex: For 5 Columns '~~> Change as Applicable .ColumnWidths = "50;50;50" .TopIndex = 0 End With End Sub ```bash
```
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 关于#matlab#的问题:在模糊控制器中选出线路信息,在simulink中根据线路信息生成速度时间目标曲线(初速度为20m/s,15秒后减为0的速度时间图像)我想问线路信息是什么
- ¥15 banner广告展示设置多少时间不怎么会消耗用户价值
- ¥16 mybatis的代理对象无法通过@Autowired装填
- ¥15 可见光定位matlab仿真
- ¥15 arduino 四自由度机械臂
- ¥15 wordpress 产品图片 GIF 没法显示
- ¥15 求三国群英传pl国战时间的修改方法
- ¥15 matlab代码代写,需写出详细代码,代价私
- ¥15 ROS系统搭建请教(跨境电商用途)
- ¥15 AIC3204的示例代码有吗,想用AIC3204测量血氧,找不到相关的代码。