Question

我需要从工作表中获取需要在未知长度的特定星期内完成的仪器读数列表，其中包含ID，位置代码和有关要使用的正确仪器的信息的列表，然后生成表格在该列表中的所有项目旁边都有一个空白框，供现场技术人员手写仪器读数。此外，它的一个角落的X页面应为Y。一旦创建了一系列空白表格，它应该（最好）从这些表格生成一个pdf。更难的是，最后一页需要有空间容纳几个签名行。

我创建了一个原型，该原型可以一次生成一个表单，并作为单独的PDF文件，但是由于有时列表可能长达数百个条目，因此变得很麻烦。

我附上了格式的一般概念样本。不幸的是，我无法上载实际的电子表格，但是我希望这可以提供一个适当的起点。任何帮助将不胜感激。

文件：https://drive.google.com/open?id=1p8RLGtG_xdoLdyUmWJKJqb980zXjr2qC

Answer 1

您没有确切说出您要寻找的内容，但这也许会有所帮助。它将对一组数据逐行运行代码。如果使用下面的宏，它将使用当前行的数据触发代码，向下移动一行并重复。它将继续直到找到空白单元格。将代码插入指定的位置。在光标始终位于具有数据的字段的第一行数据中启动宏。

Sub WhileNotBlank()
' Start with cursor in the first row with the data you want
Dim Counter as Integer
Counter = 0
Application.ScreenUpdating = False
While Counter = 0  ' Test value of Counter.
    ' Insert your code here (or call your function)
    '
    '
    ActiveCell.Offset(1, 0).Range("A1").Select 
    ' It is faster if you do this without selecting cells, but this is simple and works.
    If IsEmpty(Application.ActiveCell.Value) Then
        Counter = 1
    End If
Wend
Application.ScreenUpdating = True
End Sub

从一张纸创建多页PDF

1 个答案: