å©ç¨å®ç¼åä¸æ®µä»£ç ï¼ææå°åä¿åçæä½ä¸åå®æã
çè³å¯ä»¥ææ°æ®ä¿åå¨åå°ï¼å³éèçè¡¨æ ¼å½ä¸ã
å¦æä¼æVBAï¼é£ä¹å¾ç®åãæå
¥ä¸ä¸ªæé®ï¼ä¸é¢ç代ç åä¸å³å¯ã
Private Sub CommandButton1_Click()
Me.PrintOut
ActiveWorkbook.Save
End Sub
å¦æä¸ä¼ï¼é£ä¹æ²¡é®é¢ï¼ç¹å»å·¦ä¸è§çå½å¶å®
ç¶åæä½ä¸æ¬¡ä¿ååæå°ï¼åæ¢å½å¶ã
é便æå
¥ä¸ä¸ªå¾å½¢ï¼å³é®ç¹å»å¾å½¢ï¼æå®å®ï¼éæ©å¯¹åºçå®å³å¯ã
è¿æ ·å°±å¯ä»¥å¨æå°åæ¶ä¿åã
追é®ä¸æ¯ä¿åEXCEL表ï¼æ¯æè¾å
¥çè®°å½ä½ä¿åãä¹å°±æ¯å¨sheet1ä¸è¾å
¥æå°çå
容ï¼æå°åè®°å½è½èªå¨ä¿åå°sheet2ä¸ãæå¯ä»¥æç®ååç表åæ¨ççï¼è°¢è°¢æ¨ï¼