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

---

作者: 棋語鳥鳴    時間: 2011-4-14 18:19     標題: 多工作表指定條件列印尋問!多麻煩各位高手大大了!

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

---

作者: GBKEE    時間: 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

複製代碼

---

作者: Hsieh    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)