　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-1-12 13:25 | 只看該作者

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

本帖最後由 starry1314 於 2016-1-12 13:27 編輯

共有數十張,範圍與條件都一樣但往右有空一間隔欄,往下則一間隔列

1.列印範圍-紅框內
2.列印方式-選擇範圍&所有列放入
3.判斷方式-日期底下(第一列第一格),內容只要包含文字>>【空白】<<文字則不列印

自動列印.rar (91.75 KB)

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

2^#

發表於 2016-1-12 14:41 | 只看該作者

回復 1# starry1314

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

Option Explicit
Sub 列印()
Dim I%, J%, X%, Y%, ades
For I = 1 To 9
For J = 1 To 6
X = I * 20 - 19: Y = J * 6 - 5
If 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

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

3^#

發表於 2016-1-12 15:27 | 只看該作者

回復 2# lpk187

Option Explicit
Sub 列印()
Dim I%, J%, X%, Y%, ades
For I = 1 To 9
      For J = 1 To 6
         X = I * 20 - 19: Y = J * 6 - 5
         If 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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

4^#

發表於 2016-1-12 15:56 | 只看該作者

回復 2# lpk187

改為這樣但遇到沒有空白兩字但是空白儲存格的話還是照印
有辦法兩個條件並存嗎?
出現空白兩字或是單純空白儲存格都不印

Sub 列印()
Dim I%, J%, X%, Y%, ades
For I = 1 To 9 '往下張數
For J = 1 To 6 '每張欄數
X = I * 20 - 19: Y = J * 6 - 5 '20=列數-19 扣除標題 6=欄數-5扣除間隔欄
If InStr(Cells(X, Y).Offset(2).Value, 空白) = 0 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

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

5^#

發表於 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

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

6^#

發表於 2016-1-12 16:27 | 只看該作者

回復 5# lpk187

謝謝....腦袋真的打結了,沒想到AND
只想到多寫一行

TOP