listbox自动输入代码怎么写

chenjj007 · 发表于 2024-1-16 08:45

本帖最后由 chenjj007 于 2024-1-16 11:43 编辑

要求：1.点击“全套输出”，将listbox2里面的内容按顺序全部输出，不需要手动输出
2.其他的设置已经设置完毕，只需要完成CommandButton3的代码

laterite · 发表于 2024-1-16 08:48

附件都没有一个，说毛都是空的

剑指E · 发表于 2024-1-16 09:08

既然会做单件输出，就应该会全套输出，不就是加个循环吗？

qline302 · 发表于 2024-1-16 09:11

  '参考使用.
  With ListBox1
.Clear    '这句要加上，不然会累加
.AddItem '这句一定要加上
For i = 1 To BOM_Lines
   .List(iRow, iCol) = Cells(iRow, iCol)  '根据需要调整数据范围
Next i
  End With

chenjj007 · 发表于 2024-1-16 09:52

laterite 发表于 2024-1-16 08:48
附件都没有一个，说毛都是空的

我的附件代码太多，发出来更会绕晕了，这样还简洁点

chenjj007 · 发表于 2024-1-16 09:53

剑指E 发表于 2024-1-16 09:08
既然会做单件输出，就应该会全套输出，不就是加个循环吗？

lisobox我不太会。

chenjj007 · 发表于 2024-1-16 09:54

qline302 发表于 2024-1-16 09:11
'参考使用.
With ListBox1
.Clear '这句要加上，不然会累加

没看懂，能发全吗

chenjj007 · 发表于 2024-1-16 11:42

弄好了
Dim i As Long
For i = 0 To Me.ListBox2.ListCount - 1
If i < ListBox2.ListCount Then
Me.ListBox2.Selected(i) = True
Call CommandButton2_Click
End If
Next i

		自动登录	找回密码
密码			免费注册

[已解决] listbox自动输入代码怎么写