ÓúÃExcelµÄË«Ãæ´òÓ¡
´Ó½ÚÔ¼µÄ½Ç¶È³ö·¢£¬¹«Ë¾µÄ±í¸ñ¶¼ÒªÇóË«Ãæ´òÓ¡£¬
Excelµç×Ó±í¸ñÔõÑùÉèÖÃÆæż´òÓ¡
¡£µ«ExcelƫƫûÓÐÕâÒ»¹¦ÄÜ!Ôõô°ì?×Ô¼º¶¯ÊÖÌí¼ÓÒ»¸ö“Ë«Ãæ´òÓ¡”µÄ°´Å¥°É!±à¼ºê
µÚÒ»²½:Æô¶¯Excel 2003(ÆäËû°æ±¾Çë·ÂÕÕ²Ù×÷)£¬Ö´ÐГ¹¤¾ß→ºê→Visual Basic±à¼Æ÷”ÃüÁ½øÈëVisual Basic±à¼×´Ì¬¡£
µÚ¶þ²½:ÔÚÓÒ²àµÄ“¹¤³Ì×ÊÔ´¹ÜÀíÆ÷”ÇøÓòÖУ¬Ñ¡ÖГVBAProject(PERNOSAL.XLS)”Ñ¡ÏִÐГ²åÈë→Ä£¿é”ÃüÁ²åÈëÒ»¸öÐÂÄ£¿é(Ä£¿é1)¡£
СÌáʾ
µÚÒ»´ÎʹÓú깦ÄÜʱ£¬ÐèÒª½øÈëÏÂÊö²Ù×÷£¬Ìí¼Ó“¸öÈ˺깤×÷²¾”“PERNOSAL.XLS”(½Ð×ö“¸öÈ˺깤×÷²¾”)£¬:ÔÚExcelÖУ¬Ö´ÐГ¹¤¾ß→ºê→ ¼ÖÆкê”ÃüÁ´ò¿ª“¼ÖÆкꔶԻ°¿ò£¬ÊäÈëÒ»¸öÃû³Æ£¬È»ºóÑ¡Ôñ½«Æ䓱£´æÔÚ”“¸öÈ˺깤×÷²¾”ÖУ¬È·¶¨·µ»Ø£¬Ëæ±ã×öһϱ༲Ù×÷£¬È»ºó°´“ֹͣ¼ÖÆ” ¹¤¾ßÀ¸Éϵēֹͣ¼ÖÆ”°´Å¥£¬ÏµÍ³¼´¿É×Ô¶¯Ìí¼Ó“¸öÈ˺깤×÷²¾”¡£
µÚÈý²½:Ë«»÷“Ä£¿é1”½øÈë´úÂëÊäÈëÇøÓò£¬½«ÏÂÊö´úÂëÊäÈëÆäÖÐ:
Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "Ç뽫´òÓ¡³öµÄÖ½ÕÅ·´Ïò×°ÈëÖ½²ÛÖÐ", vbOKOnly, "´òÓ¡ÁíÒ»Ãæ"
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub
µÚËIJ½:ÊäÈëÍê³Éºó£¬¹Ø±ÕVisual Basic±à¼´°¿Ú·µ»Ø£¬
µçÄÔ×ÊÁÏ
¡¶Excelµç×Ó±í¸ñÔõÑùÉèÖÃÆæż´òÓ¡¡·(https://www.unjs.com)¡£Ìí¼Ó°´Å¥
µÚÒ»²½:Ö´ÐГ¹¤¾ß→×Ô¶¨Òå”ÃüÁ´ò¿ª“×Ô¶¨Ò唶Ի°¿ò¡£
µÚ¶þ²½:Çл»µ½“ÃüÁî”±êÇ©Ï£¬ÔÚ“Àà±ð”ÏÂÃæÑ¡ÖГºê”Ñ¡ÏȻºó½«ÓÒ²à“ÃüÁî”ÏÂÃæµÄ“×Ô¶¨Òå°´Å¥”Ñ¡ÏîÍϵ½¹¤¾ßÀ¸ºÏÊÊλÖÃÉÏ£¬Ìí¼ÓÒ»¸ö°´Å¥¡£
µÚÈý²½:µ¥»÷“¸ü¸ÄËùÑ¡ÄÚÈÝ”°´Å¥£¬ÔÚËæºóÕ¹¿ªµÄ¿ì½Ý²Ëµ¥ÖУ¬ÔÚ“ÃüÃû”ÓÒ²àµÄ·½¿òÖÐÊäÈë°´Å¥Ãû³Æ(Èç“Ë«Ãæ´òÓ¡”£¬²¢Ñ¡ÖГ×ÜÊÇÓÃÎÄ×֔ѡÏî¡£
µÚËIJ½:ÔÚ²»¹Ø±Õ“×Ô¶¨Ò唶Ի°¿òµÄÇé¿öÏ£¬ÓÒ»÷¹¤¾ßÀ¸ÉϸղÅÌí¼ÓµÄ“Ë«Ãæ´òÓ¡”°´Å¥£¬ÔÚËæºóµ¯³öµÄ¿ì½Ý²Ëµ¥ÖУ¬Ñ¡Ôñ“Ö¸¶¨ºê”Ñ¡Ï´ò¿ª“Ö¸¶¨ºê”¶Ô»°¿ò¡£
µÚÎå²½:Ñ¡ÖÐÉÏÃæ±à¼µÄºê£¬È·¶¨Í˳ö£¬ÔٹرՓ×Ô¶¨Ò唶Ի°¿ò·µ»ØExcel±à¼×´Ì¬¡£
Ë«Ãæ´òÓ¡
Æô¶¯Excel£¬´ò¿ªÐèҪ˫Ãæ´òÓ¡µÄ¹¤×÷²¾Îļþ£¬µ¥»÷“Ë«Ãæ´òÓ¡”°´Å¥£¬ÏµÍ³ÏȽ«ÆæÊýÒ³´òÓ¡³öÀ´£¬È»ºóµ¯³öÌáʾ¿ò£¬½«´òÓ¡µÄÖ½ÕÅ·´Ïò×°Èë´òÓ¡»úµÄÖ½²ÛÖУ¬°´Ï“ȷ¶¨”°´Å¥£¬¼´¿É½«Å¼ÊýÒ³´òÓ¡µ½ÁíÒ»ÃæÉÏ£¬´ïµ½Ë«Ãæ´òÓ¡µÄÄ¿µÄ¡£
СÌáʾ
Èç¹ûÔÚ´òÓ¡¹ý³ÌÖУ¬³öÏÖ¼ÐÖ½ÏÖÏó£¬ÖÂʹ²¿·ÖÒ³ÃæË𻵣¬¿ÉÒÔͨ¹ýÖ´ÐГÎļþ→´òÓ¡”ÃüÁ´ò¿ª“´òÓ¡”¶Ô»°¿ò£¬ÓÃÊÖ¶¯µÄ·½·¨½«ÉÙÁ¿Ë𻵵ÄÒ³µ¥¶À´òÓ¡³öÀ´¼´¿É¡£