多工作表指定條件列印尋問!多麻煩各位高手大大了! - Excel程式區

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

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

1^# 跳轉到 »

發表於 2011-4-15 15:51 | 顯示全部帖子

回復 1# 棋語鳥鳴

Sub Ex()
Dim i As Integer
For i = 3 To 40
If IsNumeric(Sheets(i).Range("B3")) And Sheets(i).Range("B3") <> "" Then Sheets(i).PrintOut
Next
End Sub

複製代碼

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -