excel表單列印張數,如何製作?

Question

to各位大哥大大: 我想在一張 excel 工作表上, 設定一個<空格>.<空格>內只要輸入數字.,就能直接印出該數字的表......例如 :輸入 5 ,即能印出 5 張,,,,....<我知道從/檔案/列印..選擇張數,,可印出>.....麻煩大哥大大..& 大姐大大....我是出學者...請指導一下...tks.

to vincent:

1. 很感謝您....愛死您...好棒哦...
2. 但是我希望 輸入 " b1 "空格內的數字,,,是否能預設為" 1 ",若要更改
時,再輸入其他數字....
3. 且所輸入的數字不要消失,能顯示出來...測試版..我試過,,是ok的...但數字輸入後按< enter >就不見了...以上麻煩囉...tks.

Answer 1

圖片參考：http://tw.yimg.com/i/tw/blog/rte/smiley_4.gif
假設您設定的空格為B1
請按Alt+F11，開啟VBA編輯視窗
將以下程式碼貼在右邊空白處
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B1") > 0 Then
x = Int(Range("B1"))
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True
Range("B1") = ""
End If
End Sub
關掉VBA編輯視窗
請直接在B1輸入列印份數，即可印出預設列印範圍該份數

圖片參考：http://tw.yimg.com/i/tw/blog/rte/smiley_4.gif
如果要變更設定位置，直接更改程式碼中"B1"為您要設定的位置即可(共3處)
請下載測試檔
http://www.FunP.net/6525268


2007-11-16 20:16:35 補充：
那就改一下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Range("B1")) Then
x = Int(Range("B1"))
ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True
Range("B1") = x & "份"
End If
End Sub

測試檔
http://www.FunP.net/4181519

2007-11-16 20:18:43 補充：
輸入後不能消失，又要預設為1，比較難，恐怕會有衝突~~@@

別預設了，輸入後不消失

Answer 2

應該沒有這個功能！