連續列印
在最前面新增一張活頁命名 LIST，填上日期後，應用上述的巨集公式，套到日報表列印
巨集大概就這樣
Sub PrintVBA()
'**********************************************
'在Sheets("List")中滑鼠選擇要印列的『列』 ,執行此程式
'**********************************************
Dim E As Range
Sheets("LIST").Activate '切換Sheet
For Each E In Selection.EntireRow 'For loop
If E.Row > 1 And E.Range("a1") <> "" Then '例外排除，第一列不處理、第一格有資料
With Sheets("日報表")
.[AG4]=E.Range("C1")'日期
.PrintOut '印列
End With
End If
Next
End Sub
內文搜尋
從 APP 打開
X