我有一个工作簿,其中包含需要打印到 Excel 中单独工作表的信息行。我正在尝试使用一个复选框来指示需要打印哪些项目以及需要跳过哪些项目。该复选框位于“A”列中,一旦选中并且宏运行,我希望它获取该特定行的每个单元格中的数据,将其传输到单独的工作表(表单),提示并将工作表保存为 pdf,清除表单,然后返回主工作表继续,直到检查完所有行。然而,现在,我的代码只是循环通过第一个“TRUE”语句,而不是继续到其余部分。这是代码:
Private Sub CommandButton1_Click()
On Error GoTo ErrHandler:
Dim i As Integer
For i = 1 To 10
If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = False Then
Else
If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = True Then
Call PrintWO
Else
End If
Do Until ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = 10
MsgBox "Nothing Selected to Print"
Exit Do
Exit Sub
Loop
End If
Next i
ErrHandler:
End Sub