標題: 關於vlookup的列印問題 [打印本頁]

---

作者: e91010029    時間: 2016-3-9 17:50     標題: 關於vlookup的列印問題

在製作成績單的時候，使用vlookup的公式，但每次都需要改一次編號印一次，有辦法可以直接一次印完嗎？

---

作者: yifan2599    時間: 2016-3-11 07:59

回復 1# e91010029


    請參考附加檔。

---

作者: lpk187    時間: 2016-3-11 09:18

本帖最後由 lpk187 於 2016-3-11 09:21 編輯

1. Option Explicit
   
2. 
   
3. Sub 按鈕1_Click()
   
4. Dim s%, e%, p%
   
5. s = [i1] '從n號，放在"i1"欄位
   
6. e = [k1]'到n號，放在"k1"欄位
   
7. For p = s To e
   
8.     [b1] = p
   
9.     'ActiveWindow.SelectedSheets.PrintOut Preview:=True'預攬
   
10.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    
11.     IgnorePrintAreas:=False'列印
    
12. Next
    
13. End Sub

複製代碼

回復 1# e91010029

---

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