Excel設(shè)置打印一次單元格內(nèi)容變一次的步驟：

　　sheet1中，已經(jīng)設(shè)置好了打印區(qū)域。要求每打印一次，單元格B2中的日期就增加一天。

　　Alt+F11，打開VBE，雙擊sheet1工作表，以確認(rèn)后續(xù)的代碼是在sheet1中執(zhí)行。

　　步驟閱讀

　　復(fù)制如下代碼到右側(cè)的空白區(qū)域，然后按F5執(zhí)行代碼即可實(shí)現(xiàn)每打印一張，B2的日期增加一天。

　　Sub m()

　　For i = 1 To 100

　　ActiveSheet.PrintOut copies:=1

　　Cells(2, 2) = Cells(2, 2) + i

　　Next

　　End Sub

　　代碼詳解：

　　1.Sub m()——這是宏名，無需理會(huì);

　　2.For i = 1 To 100——這是控制打印次數(shù)，后面的100就是打印的頁數(shù)，可以通過更改這個(gè)數(shù)值，來控制打印多少頁;

　　3.ActiveSheet.PrintOut copies:=1——這是打印當(dāng)前頁的代碼，無需理會(huì);

　　4.Cells(2, 2) = Cells(2, 2) + i——這里的Cells(2,2)就是單元格B2，其中第一個(gè)2是行數(shù)，第二個(gè)2是列數(shù)，更改這兩個(gè)數(shù)值，就可以控制讓哪個(gè)單元格的數(shù)值變動(dòng);

　　5.Next——繼續(xù)循環(huán)，無需理會(huì);

　　6.End Sub——結(jié)束宏，無需理會(huì)。