æAltåF11è¿å
¥å®çé¢ï¼å¨å·¦ä¸çªå£æ¾å°æ¬å·¥ä½ç°¿éçThisWorkbookï¼åå»å®ï¼å¨å³è¾¹ç²è´´å¦ä¸ä»£ç ï¼
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("G3") = ActiveSheet.Range("G3") + 1
End Sub
ç²ä½çG3ä¸ºä½ åå·æå¨åå
æ ¼ï¼è¯·èªå·±æå®é
ä¿®æ¹ãåå°Excelï¼å¯ä»¥å®ç°ï¼ä¸æ¦æå°ï¼åå·èªå¨å 1ï¼å³å 1åæå°ï¼
追é®è¿ä¸ªæ¯ç¼å·èªå¨çæä¸ä¸ä¸ªçï¼ä¸è¿è°¢è°¢ä½ çåçã