麻辣家族討論版版 » Excel程式區 » 於同一工作表中，只列印某儲存格中有數值的頁數?

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

[發問] 於同一工作表中，只列印某儲存格中有數值的頁數?

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-5-10 09:10 | 只看該作者

[發問] 於同一工作表中，只列印某儲存格中有數值的頁數?

如上圖所示，於同一工作列表中，如第一頁中B(2、9、16)其中之一有數值就列印第一頁!
如第一頁中B(2、9、16)其中之一&第二頁中B(24、31、38)其中之一也有數值，就列印1~2頁......以此類推!請問此巨集要如何設定!

樓主熱帖

收藏

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

8^#

發表於 2011-5-11 05:43 | 只看該作者

回復 7# Hsieh

感謝大大的回覆~我去試試看!

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-5-10 22:19 | 只看該作者

依照圖片的欄列位來判斷

Sub ex()
Dim Ar(), A As Range
Set A = [B1]: i = 1
Do
Do
If Application.CountA(A.Offset(1), A.Offset(8), A.Offset(15)) > 0 Then
ReDim Preserve Ar(s)
Ar(s) = i
s = s + 1
End If
Set A = A.Offset(22, k)
i = i + 1
Loop Until A.Row > UsedRange.Rows.Count
k = k + 8
Loop Until A.Column > UsedRange.Columns.Count
If s > 0 Then
For i = 0 To UBound(Ar)
ActiveSheet.PrintOut From:=Ar(i), To:=Ar(i)
Next
End If
End Sub

複製代碼

學海無涯_不恥下問

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

6^#

發表於 2011-5-10 21:31 | 只看該作者

看你每頁要依哪些儲存格作判斷是否列印
做個單循環
把要印的頁複製到另一工作表，再對該表列印

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

5^#

發表於 2011-5-10 21:22 | 只看該作者

回復 4# chin15

因為我的檔案中每頁都有文字，因為是設計好的表格，資料是自動帶入的，所以有的頁數沒數值，但有其他的文字，那種就會多印，變成廢紙= =

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2011-5-10 21:16 | 只看該作者

EXCEL本就如此設定的
沒資料的就不會印了
你會印出空白頁嗎？

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

3^#

發表於 2011-5-10 20:57 | 只看該作者

回復 2# GBKEE

意思就是!在圖中(1~3頁)有打1、2、3的儲存格中，如果有數值(3個儲存格只要有一個儲存格有數值即可)就列印當頁，如果都沒有數值那頁就不要印!

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-10 15:53 | 只看該作者

回復 1# 棋語鳥鳴
霧沙沙阿

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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