返回列表 上一主題 發帖

[發問] 多工作表指定條件列印尋問!多麻煩各位高手大大了!

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-4-14 18:19 | 只看該作者

[發問] 多工作表指定條件列印尋問!多麻煩各位高手大大了!

321.JPG
請問如果當我EXCEL中有多個工作表例如40個好了!
我要如果讓第3~38個工作表中!其B3儲存格中有數值(數字)，就列印那張工作表出來!
例如:B3有數值的有(Sheet2、4、7、8、10、32)這6個工作表!
我如何指按一個鍵(我想把此巨集貼在圖片或按鈕上)，他就列印(Sheet4、7、8、10、32)，這5個工作表出來，因為Sheet2不在我選擇的範圍中，所以他B3有數值其工作表也不會列印!
請問此巨集要如何寫阿!PS.因小弟權限還不夠!所以請不要用夾帶檔案的方式讓我下載!Thanks.
收藏 分享

Hsieh

帖子
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兔年全勤獎章
3#
發表於 2011-4-16 22:52 | 只看該作者
  1. Sub nn()
  2. Dim Sht()
  3. For Each sh In Sheets
  4.    If IsNumeric(sh.[B3].Text) Then
  5.       ReDim Preserve Sht(s)
  6.       Sht(s) = sh.Name
  7.       s = s + 1
  8.    End If
  9. Next
  10. If s > 0 Then Sheets(Sht).PrintOut
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-4-15 15:51 | 只看該作者
回復 1# 棋語鳥鳴
  1. Sub Ex()
  2.     Dim i As Integer
  3.     For i = 3 To 40
  4.         If IsNumeric(Sheets(i).Range("B3")) And Sheets(i).Range("B3") <> "" Then  Sheets(i).PrintOut
  5.     Next
  6. End Sub
複製代碼

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題