- 帖子
- 16
- 主題
- 5
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- WINDOS 7
- 軟體版本
- office 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-3
- 最後登錄
- 2019-3-19
|
本帖最後由 zero20209 於 2016-4-21 18:23 編輯
我有一份資料，公式都已經設定完成，在工作表 A1 的位置是一個日期
而這個日期每一天下面的儲存格都已經跟其他公式連動，所以只要更改日期就可以印出我要的東西
重點來了，我想要連續列印一個禮拜，或者是一個月，但是目前只能每按一個日期然後再按一次列印
請問有辦法設定一個按鈕，寫出巨集，讓此工作表可以設定要列印的份數，然後每列印一份，日期會自動+1嗎?
例如:目前4月1號，按了按鈕，出現要列印份數的提示，我選了7，他就會列印4月1號道4月7號的工作表出來
我有設定一個按鈕並填寫了巨集
以下是我找出來的，但沒辦法達到我要的功能，因為巨集還不完善
請問各位前輩們能幫我完善此巨集，或者是提供更好的方式嗎?
先在此說聲感謝
Sub 列印自動跳號()
Dim myPrintNum As Integer
Dim myPrompt, myTitle As String
myPrompt = "請輸入要列印的份數"
myPrintNum = Application.InputBox(myPrompt, myTitle, 4, , , , , 1)
ActiveSheet.PrintOut
Range("A1") = Range("A1") + 1
End Sub |
|
發表於 2016-4-21 18:21
| 
發表於 2016-4-22 09:59
| 