怎么把listbox窗口的数据复制到工作表sheet1里？

深秋的黎明 · 发表于 2023-7-1 23:17

模糊查询.zip (33.5 KB, 下载次数: 9) 求助.jpg

附件
论坛里关于listbox窗口取值、设置的贴子很多，但没有提及模糊查询后怎么把数据复制（导出）到工作表的案例。
请教大师出手解惑啊

shiruiqiang · 发表于 2023-7-2 08:56

自己抄一下试试

深秋的黎明 · 发表于 2023-7-2 11:20

模糊查询（已解决）.zip (26.93 KB, 下载次数: 25) 测试成功，非常感谢
Private Sub CommandButton1_Click()
Dim i, arr(1 To 100000, 1 To 8)
Sheet2.Range("a2:h1000") = ""
For i = 0 To UBound(ListBox1.List)
For Y = 0 To 7
arr(i + 1, Y + 1) = ListBox1.List(i, Y)
Next
Next
Sheet2.Range("a2").Resize(i + 1, 8) = arr
MsgBox "数据已导出！"
End Sub

深秋的黎明 · 发表于 2024-2-16 16:42

Private Sub CommandButton2_Click()
With Sheet1
.Range("B3") = "分类汇总 (关键词：" & ComboBox1.Text & " " & ComboBox2.Text & ")"
.Range("B5:G60") = ""
For H = 5 To 60
.Range("B" & H) = ListBox1.List(H - 4, 0)
.Range("C" & H) = ListBox1.List(H - 4, 1)
.Range("D" & H) = ListBox1.List(H - 4, 2)
.Range("E" & H) = ListBox1.List(H - 4, 3)
.Range("F" & H) = ListBox1.List(H - 4, 4)
.Range("G" & H) = ListBox1.List(H - 4, 5)
Next H
End With
Sheet1.Activate
Unload Me
End Sub

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

[求助] 怎么把listbox窗口的数据复制到工作表sheet1里？