Question

这是我的第一篇文章，我对Excel中的VBA还是很陌生，所以我希望有人可以提供帮助。

我为所工作的学校创建了一个电子表格，该电子表格会根据下拉框变量生成学生报告，我希望能够一次打印所有报告。其中有200个奇数，所以我不能一一做到。

我找到了这段代码，我想除了实际的打印部分以外，它还可以工作。我不知道在此添加一些“在此打印页面代码”是什么意思

任何人都可以帮助！？！

 Sub Iterate_Through_data_Validation()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range


'Which cell has data validation
   Set dvCell = Worksheets("Sheet1").Range("B1")
'Determine where validation comes from
   Set inputRange = Evaluate(dvCell.Validation.Formula1)

For Each c In inputRange
    dvCell = c.Value
    'add some print page code here
Next c

End Sub

Answer 1

如果您阅读此书，我想我已经解决了

这就是我现在正在使用的！

Sub Iterate_Through_data_Validation()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range


'Which cell has data validation
   Set dvCell = Worksheets("Comb Student Report").Range("B4")
'Determine where validation comes from
   Set inputRange = Evaluate(dvCell.Validation.Formula1)

For Each c In inputRange
    dvCell = c.Value
    'add some print page code here
    ActiveSheet.PrintOut
Next c

End Sub

如何下拉框变量打印？

1 个答案: