麻辣家族討論版版 » Excelㄧ般區 » [發問]請問如何設定不列印部份cell

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

[發問]請問如何設定不列印部份cell

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: Vista
軟體版本: 2013
閱讀權限: 10
註冊時間: 2013-11-4
最後登錄: 2013-11-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-5 21:03 | 只看該作者

[發問]請問如何設定不列印部份cell

比如A1 cell, 我想在worksheet內可以看到，但打印時會隱藏起來，謝謝

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2013-11-6 09:39 | 只看該作者

回復 1# CyberKeith

設定列印範圍

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

3^#

發表於 2013-11-6 13:10 | 只看該作者

回復 2# ML089

另一個post抄來

Sub print123() ' 選取列印
Dim RNG As Range, address As String
Set RNG = Application.InputBox("請輸入列印範圍", "範圍", address, , , , , 8)
ActiveSheet.PageSetup.PrintArea = RNG.address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-11-6 15:26 | 只看該作者

回復 1# CyberKeith

或是列印前將 A1格的文字顏色改成白色，就列印不出A1內容

此段可以錄成巨集，每次列印按巨集就能自動改A1文字顏色為白色 - 列印 - 改A1文字顏色為黑色

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2013-11-6 15:29 | 只看該作者

回復 3# genes

可否將4樓的方式寫成代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

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