返回列表下一主題上一主題發帖

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

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 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)

樓主熱帖

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

2^#

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