如何判斷內容是否所需以及是否自動列印 - Excel程式區

[發問] 如何判斷內容是否所需以及是否自動列印

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2016-1-12 14:41 | 顯示全部帖子

回復 1# starry1314

檔案內容排列有誤，請自行更正！！(多了2列)
"兩送(菜組)-1"的第一格為空白，所以這張不會列印
"早餐(自備組)-1"、"午餐(自備組)-1"、"晚餐(自備組)-1"這裡頁則第一格有文字，會列印

複製代碼

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-1-12 16:25 | 顯示全部帖子

回復 4# starry1314

Sub 列印()
Dim I%, J%, X%, Y%, ades, kk
For I = 1 To 9 '往下張數
For J = 1 To 6 '每張欄數
X = I * 20 - 19: Y = J * 6 - 5 '20=列數-19 扣除標題 6=欄數-5扣除間隔欄
kk = InStr(Cells(X, Y).Offset(2).Value, "空白")
If InStr(Cells(X, Y).Offset(2).Value, "空白") = 0 And Cells(X, Y).Offset(2).Value <> "" Then
ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
'ActiveSheet.PageSetup.PrintArea = ades
Range(ades).PrintOut Copies:=1, Collate:=True
End If
Next
Next
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。