Item: 竹間精緻鍋物
Rating: 4
Author: 錦子老師

2770

Excel VBA 依分數列印不同日期空白表格

齊秀瑛：「晚安，錦子老師，如果我要將一份每日都會用到的空白報表，輸入幾份後會依份數自動跳日期後列印，但我沒有任何連結只需要改日期的儲存格就好。請問我應該要怎麼修改才能達到我想要的效果？」

Sub 列印自動跳號()

Dim myPrintNum As Integer

myPrintNum = Application.InputBox("請輸入要列印的份數", , 1)

For i = 1 To myPrintNum

ActiveSheet.PrintOut

If i < myPrintNum Then [A1] = [A1] + 1

Next

End Sub

錦子老師：「其實你程序並沒有問題，只是思考方向錯誤，只需將[A1]改成[B3]即可解決。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

部落格相關範例

2021.12.12	2740Excel有條件的最大值及最小值-MAX(DMAX)、MIN(DMIN)
2021.12.11	2741Excel依關鍵字統計數值欄位計-SUMIF、SUMIFS
2021.12.10	2739將日期轉變為月份-MONTH、TEXT、CHOOSE
2021.12.09	2737文字內的數字加總但遇到空格會出錯
2021.12.08	2738Excel算出借頭巾跟帽子的人數
2021.12.07	2736統計同一時間同一時間的資料筆數-SUMPRODUC、TEXT
2021.12.06	2727資料輸入對話方塊並計算總和
2021.12.05	2724資料輸入對話方塊
2021.12.04	2723判斷使用者未輸入取消輸入資料
2021.12.03	2722自訂對話方塊
2021.12.02	2721InputBox資料輸入對話方塊
2021.12.01	2718Excel計算絕對值-ABS
2021.11.30	2714筆數統計-SUMPRODUCT
2021.11.29	2713搜尋比對填入值-SUMPRODUCT
2021.11.28	2711Execl雙日期的星期標示
2021.11.27	2710Execl儲存格擷取資料問題
2021.11.26	2705Excel如何在一個欄位同時滿足2個欄位在自動標色？