Question

我需要一个代码，该代码会将ListBox2中的第一个值复制到名为“健身房每周模板”（即Sheet1）的工作表中的单元格C8中，打印工作表，然后循环至下一个值并重复相同的过程，重复直到ListBox2中的所有值都已复制并打印，在此之前，我希望工作表将其重置为运行代码之前的样子。

有人可以帮助吗？

谢谢！

杰克逊

我目前编写了以下代码来选择第一个值

Dim i As Long
    For i = ListBox1.ListCount - 1 To 0 Step -1
        ListBox2.ListIndex = I
    Next i

Answer 1

以下代码将遍历列表框中的每个项目。对于每个项目，在C8中输入值并打印工作表...

Dim vOrigVal As Variant
Dim ws As Worksheet
Dim i As Long

Set ws = ThisWorkbook.Worksheets("Gym Weekly Template")

vOrigVal = ws.Range("C8").Value

With Me.ListBox1
    For i = 0 To .ListCount - 1
        ws.Range("C8").Value = .List(i)
        ws.PrintOut
    Next i
End With

ws.Range("C8").Value = vOrigVal

VBA代码循环显示列表框值，复制到单元格并打印？

1 个答案: