±´¿Çµç×ÓÊé > »ù´¡¿Æѧµç×ÓÊé > excel_vba_±à³Ì½Ì³Ì(ÍêÕû°æ) >

µÚ81ÕÂ

excel_vba_±à³Ì½Ì³Ì(ÍêÕû°æ)-µÚ81ÕÂ

С˵£º excel_vba_±à³Ì½Ì³Ì(ÍêÕû°æ) ×ÖÊý£º ÿҳ4000×Ö

°´¼üÅÌÉÏ·½Ïò¼ü ¡û »ò ¡ú ¿É¿ìËÙÉÏÏ·­Ò³£¬°´¼üÅÌÉ쵀 Enter ¼ü¿É»Øµ½±¾ÊéĿ¼ҳ£¬°´¼üÅÌÉÏ·½Ïò¼ü ¡ü ¿É»Øµ½±¾Ò³¶¥²¿£¡
¡ª¡ª¡ª¡ªÎ´ÔĶÁÍꣿ¼ÓÈëÊéÇ©ÒѱãÏ´μÌÐøÔĶÁ£¡



12¡£¡¡°´F5£¨»òÕßÑ¡ÔñÔËÐк꣩À´¼ÌÐøÔËÐиùý³Ì£¬²»±ØÖðÓï¾äÔËÐиùý³Ì¡£µ±ÄãÔËÐÐÍê¸Ã¹ý³Ìºó£¬¡¡
¡¡¡¡¡¡¡¡VB²»»á×Ô¶¯É¾³ý¶Ïµã¡£×¢Òâ´øÓÐVLookupº¯ÊýµÄ´úÂëÐл¹ÊǼÓÁÁµÄ¡£¡¡¡¡
¡¡¡¡¡¡¡¡ÔÚ±¾ÀýÖУ¬ÄãÖ»ÉèÖÃÁËÒ»¸ö¶Ïµã¡£VBÔÊÐíÄãÔÚÒ»¸ö¹ý³ÌÀïÉèÖÃÈÎÒâ¶à¸ö¶Ïµã¡£ÕâÑù£¬Äã¾Í¿ÉÒÔ¡¡
¡¡¡¡¡¡¡¡ËæÐÄËùÓûµØÔÝÍ£ºÍ¼ÌÐøÄã¹ý³ÌµÄÖ´ÐÐÁË¡£Äã¿ÉÒÔ·ÖÎöÄãµÄ³ÌÐò´úÂë¡¢¼ì²éÖ´ÐÐÔÝͣʱ±äÁ¿µÄÖµ¡£¡¡
¡¡¡¡¡¡¡¡ÄãÒ²¿ÉÒÔͨ¹ýÔÚÁ¢¼´´°¿ÚÀïÇÃÈëÓï¾ä½øÐи÷ÖÖ¸÷ÑùµÄ²âÊÔ¡£¡¡¡¡
13¡£¡¡Í¨¹ýÑ¡Ôñµ÷ÊÔ¡­Çå³ýËùÓжϵ㣬»òÕß°´ÏÂCtrl£«Shift£«F9£¬¿ÉÒÔÇå³ý¶Ïµã¡£¡¡¡¡
¡¡¡¡¡¡¡¡ËùÓжϵ㶼±»Çå³ýÁË¡£Èç¹ûÄãÔÚij¸ö¹ý³ÌÀïÃæÉèÖÃÁ˶à¸ö¶Ïµã£¬²¢ÇÒÏëÒªÖ»Çå³ýÆäÖеÄÒ»¸ö»ò¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡252¡¡

¡­¡¡Ò³Ãæ¡¡269¡­

¡¡¡¡¡¡¡¡¼¸¸ö£¬ÄÇô¿ÉÒÔµã»÷ÄãÏëÒªÇå³ý¶ÏµãµÄ´úÂëÐв¢ÇÒ°´ÏÂF9£¨»òÕßÑ¡Ôñµ÷ÊÔ¡­Çл»¶Ïµã£©¡£µ±¶Ïµã¡¡
¡¡¡¡¡¡¡¡²»ÔÙÐèҪʱ£¬ÄãÓ¦¸ÃÇå³ýËüÃÇ¡£µ±Äã¹Ø±ÕÎļþʱ£¬ËùÓжϵ㽫×Ô¶¯±»Çå³ý¡£¡¡¡¡
¼¼ÇÉ13¡­2¡¡Ê²Ã´Ê±ºòʹÓöϵ㡡¡¡
Èç¹ûÄ㻳ÒÉÄãµÄ¹ý³Ì¸ù±¾¾ÍûÓÐÖ´Ðйýij¶Î´úÂë¿éµÄ»°£¬ÄÇôÉèÖöϵ㡣¡¡¡¡

4¡£ÔÚÖжÏģʽÏÂʹÓÃÁ¢¼´´°¿Ú¡¡¡¡

Ò»µ©³ÌÐòÖ´ÐÐÖжϣ¬µ±´úÂë´°¿Ú³öÏÖʱ£¬Äã¿ÉÒÔ¼¤»îÁ¢¼´´°¿Ú²¢ÇÒÊäÈëVBAÖ¸ÁÀýÈ磬À´²éÃ÷ÄÄ¡¡
Ò»¸öµ¥Ôª¸ñÊǵ±Ç°»î¶¯µÄ»òÕ߻¹¤×÷±íÃû³ÆÊÇʲô¡£ÄãÒ²¿ÉÒÔʹÓÃÁ¢¼´´°¿ÚÀ´¸ü¸Ä±äÁ¿µÄÄÚÈÝ£¬¡¡
ÒÔ±ã¸ÄÕý¿ÉÄܵ¼Ö´íÎóµÄÖµ¡£µ½ÏÖÔÚ£¬ÄãÓ¦¸ÃÒѾ­ÊǸöʹÓÃÁ¢¼´´°¿ÚµÄר¼ÒÁË¡£Í¼13¡­6ÏÔʾÁ˸ÃÔÝ¡¡
Í£µÄ¹ý³ÌChangeCode£¬ºÍÔÚÖжÏģʽÏ£¬ÏòVBÎÊÎÊÌâµÄÁ¢¼´´°¿Ú¡£¡¡¡¡
ÔÚÖжÏģʽÏ£¬Äã¿ÉÒԺܿìµØ²éÃ÷´úÂë´°¿ÚÀï±äÁ¿µÄÄÚÈÝ¡£Ö»ÒªÔÚÔËÐеĹý³ÌÖмòµ¥µØ½«¹â±êÒƶ¯¡¡
µ½±äÁ¿ÉÏ£¬¾Í¿ÉÒÔÖªµÀ¸Ã±äÁ¿µÄÄÚÈÝÁË¡£ÀýÈçͼ13¡­7ÀïËùʾµÄVarValue¹ý³Ì£¬¶ÏµãÉèÖÃÔÚµÚ¶þ´Î³ö¡¡
ÏÖµÄWorkbooks¡£AddÓï¾äÉÏ¡£¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­6¡¡µ±´úÂëÖ´Ðб»ÔÝͣʱ£¬Í¨¹ýÊäÈëÊʵ±µÄÓï¾äµ½Á¢¼´´°¿ÚÀÄã¾Í¿ÉÒÔÕÒµ½ºÜ¶àÎÊÌâµÄ´ð°¸¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­7¡¡ÔÚÖжÏģʽÏ£¬Äã¿ÉÒÔ½«Êó±êÖ¸Ïòij¸ö±äÁ¿£¬²éÃ÷¸Ã±äÁ¿µÄÖµ¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡253¡¡

¡­¡¡Ò³Ãæ¡¡270¡­

µ±VBÓöµ½¸ÃÓï¾ä£¬´úÂë´°¿Ú£¨ÖжÏģʽ£©¾Í»á³öÏÖ¡£ÒòΪVBÒѾ­Ö´ÐÐÁËÄÇÌõÓï¾ä£¬½«µ±Ç°»î¶¯¹¤×÷¡¡
²¾Ãû³Æ´¢´æµ½±äÁ¿myName£¨ÒëÕߣºÔ­ÎÄΪmyBook£©£¬ËùÒÔÄ㽫Êó±êÖ¸Ïò¸Ã±äÁ¿Ãû³Æʱ£¬¾Í¿ÉÒÔ²éÃ÷¡¡
¸Ã±äÁ¿µÄÖµ¡£¸Ã±äÁ¿Ãû³Æ¼°Æ䵱ǰֵ³öÏÖÔÚÎÄ×Ö¿òÀïÃ档ҪͬʱÏÔʾ¹ý³ÌÀïʹÓõĶà¸ö±äÁ¿µÄÖµµÄ¡¡
»°£¬Äã¾ÍÓ¦¸ÃʹÓõ±µØ´°¿Ú£¬±¾ÕµĺóÃ潫»áÌÖÂÛµ½¡£¡¡¡¡

5¡£Ê¹Óá¡Stop¡¡Óï¾ä¡¡¡¡

ÓÐʱºò£¬Äã²»ÄÜÂíÉϲâÊÔÄãµÄ³ÌÐò£¬Èç¹ûÄãÉèÖÃÁ˶ϵ㣬Ȼºó¹Ø±Õ¸ÃÎļþ£¬ÄÇôExcel¾Í»áÇå³ýÄã¡¡
µÄ¶Ïµã£¬¶øÏ´ε±Äã×¼±¸²âÊÔ³ÌÐòʱ£¬Ä㽫²»µÃ²»ÔÙ´ÎÉèÖÃÄãµÄ¶Ïµã¡£Èç¹ûÄãÐèÒªÍƳٲâÊÔ¹¤×÷£¬¡¡
ÄÇôÄã¿ÉÒÔʹÓò»Í¬µÄ·½Ê½£¬¼òµ¥µÄÔÚÄãÐèÒªÔÝÍ£³ÌÐòµÄµØ·½²åÈëÒ»¸öStopÓï¾ä¡£Í¼13¡­8ÏÔʾÁË¡¡
For¡­NextÑ­»·Ö®Ç°µÄStopÓï¾ä¡£µ±VBÓöµ½StopÓï¾ä£¬Ëü¾Í»áÔÝÍ£¹ý³ÌStopExampleµÄÖ´ÐУ¬ÆÁÄ»»á¡¡
ÏÔʾÖжÏģʽϵĴúÂë´°¿Ú¡£¾¡¹ÜStopÓï¾äºÍÉèÖöϵã¾ßÓÐÍêÈ«Ò»ÑùµÄЧ¹û£¬µ«ÊÇ£¬ËüÓÐÒ»¸öÈõµã¡¡
¡ª¡ªËùÓÐStopÓï¾ä¶¼ÁôÔÚ³ÌÐòÀֱµ½ÄãÒ»¸öÒ»¸öÇå³ýËüÃÇ¡£µ±Äã²»ÔÙÐèÒªÔÝÍ£³ÌÐòʱ£¬Äã±ØÐ붨¡¡
λ²¢ÇÒÇå³ýËùÓеÄStopÓï¾ä¡£¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­8¡¡Äã¿ÉÒÔÔÚVBA¹ý³Ì´úÂëµÄÈκεط½²åÈëStopÓï¾ä£¬µ±³ÌÐòµ½´ïStopÓï¾äʱ¾Í»áÔÝÍ££¬²¢ÇÒ³ö¡¡
ÏÖ´úÂë´°¿Ú£¬¼ÓÁÁ¸ÃÐС¡¡¡
¼¼ÇÉ13¡­3¡¡ÔÚÖжÏģʽÏÂÔÚ´úÂë´°¿ÚÄÚ²¿¹¤×÷¡¡¡¡
ÔÚÖжÏģʽÏ£¬Äã¿ÉÒԸıä´úÂë¡¢Ìí¼ÓÐÂÓï¾ä¡¢Ã¿´ÎÖ´ÐÐÒ»ÐÐÓï¾ä¡¢Ìø¹ý´úÂëÐС¢ÉèÖÃÏÂÒ»ÌõÓï¾ä¡¢¡¡
ʹÓÃÁ¢¼´´°¿Ú¡¢ÒÔ¼°¸ü¶à¡£µ±VB´¦ÓÚÖжÏģʽʱ£¬µ÷ÊԲ˵¥ÉÏËùÓеÄÑ¡Ï¿ÉÓÃÁË¡£Äã¿ÉÒÔͨ¹ý°´¡¡
ÏÂEsc£¬Ctrl£«Break£¬»òÕßͨ¹ýÉèÖöϵ㣬½øÈëÖжÏģʽ¡£¡¡¡¡
µ±ÄãÔÚÖжÏģʽÏÂʱ£¬Èç¹ûÄã¸ü¸ÄijЩ´úÂ룬VBA½«»áÌáʾÄãÖØÐÂÉèÖù¤³Ì£¬ÏÔʾÈçÏ´íÎóÐÅÏ¢£º¡¡
¡¡¡°¸Ã²Ù×÷½«ÖØÐÂÉèÖù¤³Ì£¬¼ÌÐøÂ𣿡±Äã¿ÉÒÔµã»÷È·¶¨£¬ÖÕÖ¹³ÌÐòÖ´Ðв¢¼ÌÐø±à¼­ÄãµÄ´úÂ룬»òÕß¡¡
µã»÷È¡Ïû£¬É¾³ýб仯²¢´ÓÖжϵã¼ÌÐøÔËÐдúÂë¡£Òª²é¿´¸Ã´íÎóµÄ»°£¬¿ÉÒÔ½«³ÌÐò½øÈëÖжÏģʽ£¬¡¡
È»ºó¸ü¸Ä±äÁ¿µÄÉùÃ÷£¬µ±Äã°´ÏÂF5»Ö¸´´úÂëÖ´ÐеÄʱºò£¬VBA¾Í»áÌáʾÄãÖØÐÂÉèÖÃÄãµÄ¹¤³Ì¡£¡¡¡¡

6¡£Ìí¼Ó¼àÊÓ±í´ïʽ¡¡¡¡

³ÌÐòÖеÄÐí¶à´íÎóÊÇÓɱäÁ¿»ñµÃδԤÆÚµÄÖµµ¼Öµġ£Èç¹ûij¸ö¹ý³ÌʹÓÃÁËÒ»¸ö±äÁ¿£¬ÔÚ²»Í¬µÄµØ·½¡¡
Óв»Í¬µÄÖµ£¬Äã¿ÉÄÜÏëҪֹͣ³ÌÐò²é¿´¸Ã±äÁ¿µÄµ±Ç°Öµ¡£VBÌṩÁËÒ»¸öÌرðµÄ¼àÊÓ´°¿Ú£¬ÔÊÐíÄãÔÚ¡¡
¹ý³ÌÔËÐÐʱÃÜÇÐ×¢ÊÓ±äÁ¿»òÕß±í´ïʽ¡£¡¡¡¡
½øÐÐÏÂÊö²Ù×÷£¬¸øÄãµÄ¹ý³ÌÌí¼Ó¼àÊÓ±í´ïʽ£º¡¡¡¡
1¡£¡¡¡¡ÔÚ´úÂë´°¿Ú£¬Ñ¡ÔñÄãÏëÒª¼àÊӵıäÁ¿¡¡¡¡
2¡£¡¡¡¡Ñ¡Ôñµ÷ÊÔ¡­Ìí¼Ó¼àÊÓ¡¡¡¡
¡¡¡¡¡¡¡¡ÆÁÄ»ÉÏ»áÏÔʾÌí¼Ó¼àÊÓ¶Ô»°¿ò£¬Èçͼ13¡­9Ëùʾ¡£¡¡¡¡
¡¡¡¡¡¡¡¡Ìí¼Ó¼àÊÓ¶Ô»°¿ò°üº¬Èý²¿·Ö£¬ÃèÊöÔÚϱíÖУº¡¡¡¡
±í´ïʽ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ÏÔʾÄãµÄ¹ý³ÌÖмÓÁÁ±äÁ¿µÄÃû³Æ¡£Èç¹ûÄã´ò¿ªÌí¼Ó¼àÊÓ¶Ô»°¿òʱûÓÐÑ¡Ôñ¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡254¡¡

¡­¡¡Ò³Ãæ¡¡271¡­

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡±äÁ¿Ãû³Æ£¬ÄÇôÐèÒªÊäÈëÄãÏëÒª¼àÊӵıäÁ¿Ãû³Æµ½±í´ïʽÎÄ×Ö¿òÀï¡¡¡¡
ÉÏÏÂÎÄ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ôڸýڣ¬ÄãÓ¦¸ÃÖ¸Ã÷°üº¬¸Ã±äÁ¿µÄ¹ý³ÌÃû³ÆºÍ¸Ã¹ý³ÌËùÔÚµÄÄ£¿éÃû³Æ¡¡¡¡
¼àÊÓÀàÐÍ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ã÷È·ÈçºÎ¼àÊӸñäÁ¿¡£Èç¹ûÄãÑ¡Ôñ¡°¼àÊÓ±í´ïʽ¡±Ñ¡Ïî°´Å¥£¬ÄÇôÄ㽫ÔÚ¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ÖжÏģʽÏÂÄܹ»ÔÚ¼àÊÓ´°¿ÚÀï²é¿´¸Ã±äÁ¿µÄÖµ¡£µ±ÄãÑ¡Ôñ¡°µ±¼àÊÓֵΪÕæ¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ê±Öжϡ±Ñ¡Ïî°´Å¥£¬ÄÇôµ±¸Ã±äÁ¿ÖµÎªÕ棨·ÇÁ㣩ʱVB½«×Ô¶¯Í£Ö¹¹ý³Ì¡£¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡×îºóÒ»¸öÑ¡Ïî°´Å¥£¬¡°µ±¼àÊÓÖµ¸Ä±äʱÖжϡ±£¬Ã¿µ±¸Ã±äÁ¿»ò±í´ïʽµÄÖµ¸Ä¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡±äʱ£¬¹ý³Ì¾Í»áÍ£Ö¹¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­9¡¡Ìí¼Ó¼àÊÓ¶Ô»°¿òÔÊÐíÄ㶨ÒåÔÚVBA¹ý³ÌÔËÐÐʱ¼àÊÓµÄÇé¿ö¡¡¡¡
Äã¿ÉÒÔÔÚÔËÐйý³Ì֮ǰ»òÕßÔÚ¹ý³ÌÖ´ÐÐÖжÏÖ®ºóÌí¼Ó¼àÊÓ±í´ïʽ¡£¡¡¡¡
¶ÏµãºÍ¼àÊÓ±í´ïʽ֮¼äµÄÇø±ðÊǶϵã×ÜÊǽ«¹ý³ÌÖжÏÔÚij¸öÌض¨µÄλÖ㬶ø¼àÊÓ±í´ïʽÔòÊǵ±Ìض¨¡¡
Çé¿ö£¨¼àÊÓֵΪÕæÖжϻòÕß¼àÊÓÖµ¸Ä±äʱÖжϣ©Ê±ÖжϹý³Ì¡£µ±Ä㲻ȷ¶¨±äÁ¿ÔÚÄĶù¸Ä±äʱ£¬¼àÊÓ¡¡
ÊǼ«ÆäÓÐÓõġ£Äã¿ÉÒÔ¼òµ¥µØÌí¼ÓÒ»¸ö¼àÊӶϵãÔÚij¸ö±äÁ¿Éϲ¢Õý³£ÔËÐйý³Ì£¬¶ø²»±ØÔÚÕâô¶àÐС¡
´úÂëÀïÖðÓï¾äÀ´ÕÒµ½±äÁ¿ÔÚÄÇÀï»ñÈ¡¸ÃÌض¨µÄÖµ¡£ÎÒÃÇÀ´¿´¿´ÕâÊÇÈçºÎʵÏֵġ£¡¡¡¡
1¡£¡¡¡¡×¼±¸Èçͼ13¡­10ËùʾµÄ¹ý³Ì¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­10¡¡Ê¹ÓüàÊÓ´°¿Ú¡¡¡¡
¹ý³ÌWhatDateʹÓÃFor¡­NextÑ­»·À´¼ÆË㽫À´xÌìºóµÄÈÕÆÚ¡£Èç¹ûÄãÔËÐиùý³Ì£¬Äã²»»áµÃµ½Èκνᡡ
¹û£¬³ý·ÇÄãÔÚ¹ý³ÌÀï²åÈëÏÂÊöÖ¸Á¡¡¡¡
MsgBox¡¡¡°In¡¡¡°¡¡&¡¡x¡¡&¡¡¡°¡¡days£»¡¡it¡¡will¡¡be¡¡¡°¡¡&¡¡NewDate¡¡¡¡¡¡
È»¶ø£¬Õâ´Î£¬Äã²»ÏëÒ»ÌìÒ»ÌìµØÏÔʾÿһ¸öÈÕÆÚ¡£¼ÙÈçÄãÏëÒªµ±±äÁ¿xµÈÓÚ160£¨ÒëÕߣº·­ÒëʱǡºÃ¡¡
Óõ½160Õâ¸öÊý£¬Ô­ÎÄÊÇ211£©µÄʱºòÍ£Ö¹¸Ã³ÌÐò£¬»»¾ä»°Ëµ£¬ÄãÏëÒªÖªµÀÏÖÔÚ160ÌìºóÊÇÄÄÒ»Ìì¡£¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡255¡¡

¡­¡¡Ò³Ãæ¡¡272¡­

ÒªµÃµ½½á¹ûµÄ»°£¬Äã¿ÉÒÔ²åÈëÏÂÊöÓï¾äµ½¹ý³ÌÀ¡¡¡¡
If¡¡x¡¡=¡¡160¡¡Then¡¡MsgBox¡¡¡¨In¡¡¡¨¡¡&¡¡x¡¡&¡¡¡¨¡¡days¡¡it¡¡will¡¡be¡¡¡¨¡¡&¡¡NewDate¡¡¡¡¡¡
¼ÙÉèÄãÏëÒª²»ÊäÈëÈκÎÐÂÓï¾äÀ´µÃµ½½á¹û£¬ÄãÈçºÎ×öÄØ£¿Èç¹ûÄãÌí¼ÓÁ˼àÊÓ±í´ïʽµÄ»°£¬µ±Âú×ãÌØ¡¡
¶¨Ìõ¼þʱ£¬VB¾Í»áÍ£Ö¹For¡­NextÑ­»·£¬È»ºó£¬Äã¾Í¿ÉÒԲ鿴ÏëÒªµÄ±äÁ¿Öµ¡£¡¡¡¡
1¡£¡¡¡¡Ñ¡Ôñµ÷ÊÔ¡­Ìí¼Ó¼àÊÓ¡¡¡¡
2¡£¡¡¡¡ÔÚ±í´ïʽÎÄ×Ö¿òÀïÊäÈëÏÂÊö±í´ïʽ£ºx=160¡¡¡¡
3¡£¡¡¡¡ÔÚÉÏÏÂÎIJ¿·Ö£¬´Ó¹ý³ÌÏÂÀ­ÁбíÀïÑ¡ÔñWhatDate£¬´ÓÄ£¿éÏÂÀ­ÁбíÀïÑ¡ÔñBreaks¡¡¡¡
4¡£¡¡¡¡ÔÚ¼àÊÓÀàÐͲ¿·Ö£¬Ñ¡Ôñ¡°µ±¼àÊÓֵΪÕæʱÖжϡ±Ñ¡Ïî°´Å¥¡¡¡¡
5¡£¡¡¡¡µã»÷È·¶¨£¬¹Ø±ÕÌí¼Ó¼àÊÓ¶Ô»°¿ò£¬ÏÖÔÚ£¬ÄãÒѾ­Ìí¼ÓÁËÄãµÄµÚÒ»¸ö¼àÊÓ±í´ïʽ¡¡¡¡
6¡£¡¡¡¡ÔÚ´úÂë´°¿Ú£¬½«¹â±ê·ÅÔÚ±äÁ¿curDateÄÚ²¿µÄÈÎÒâµØ·½¡¡¡¡
7¡£¡¡¡¡Ñ¡Ôñµ÷ÊÔ¡­Ìí¼Ó¼àÊÓ£¬²¢µã»÷È·¶¨£¬ÉèÖÃȱʡµÄ¼àÊÓÀàÐÍ¡¡¡¡
8¡£¡¡¡¡ÔÚ´úÂë´°¿Ú£¬½«¹â±ê·ÅÔÚ±äÁ¿newDateÄÚ²¿µÄÈÎÒâµØ·½¡¡¡¡
9¡£¡¡¡¡Ñ¡Ôñµ÷ÊÔ¡­Ìí¼Ó¼àÊÓ£¬²¢µã»÷È·¶¨£¬ÉèÖÃȱʡµÄ¼àÊÓÀàÐÍ¡¡¡¡
¡¡¡¡¡¡¡¡×öÍêÉÏÃæµÄ²½Öèºó£¬¹ý³ÌWhatDate°üº¬ÁËÏÂÊöÈý¸ö¼àÊÓ£º¡¡¡¡
¡¡¡¡¡¡¡¡¡¡x¡¡=¡¡160¡¡µ±¼àÊÓֵΪÕæʱÖжϡ¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡curDate¡¡¼àÊÓ±í´ïʽ¡¡¡¡
¡¡¡¡¡¡¡¡¡¡newDate¡¡¼àÊÓ±í´ïʽ¡¡¡¡
10¡£¡¡½«¹â±ê·ÅÔÚ¹ý³ÌWhatDate´úÂëµÄÈÎÒâµØ·½£¬²¢ÇÒ°´ÏÂF5£¬VBÔÚx=160µÄʱºòÍ£ÏÂÀ´ÁË£¨¼ûͼ¡¡
¡¡¡¡¡¡¡¡13¡­10£©¡¡¡¡
¡¡¡¡¡¡¡¡×¢Ò⣬±äÁ¿xÔÚ¼àÊÓ´°¿ÚµÄÖµºÍÄãÔÚÌí¼Ó¼àÊÓ¶Ô»°¿òÀïÖ¸¶¨µÄÖµÒ»Ñù¡£ÁíÍ⣬¼àÊÓ´°¿ÚÏÔʾÁË¡¡
¡¡¡¡¡¡¡¡±äÁ¿curDateºÍnewDateµÄÖµ¡£¸Ã¹ý³Ì´¦ÓÚÖжÏģʽ¡£Äã¿ÉÒÔ°´F5¼ÌÐø»òÕßÄã¿ÉÒÔÎÊÁíÒ»¸öÎÊÌ⣺¡¡
¡¡¡¡¡¡¡¡277ÌìºóÊÇÄÄÒ»Ì죿ÏÂÒ»²½½«Ê¾·¶ÈçºÎ×ö¡£¡¡¡¡
11¡£¡¡Ñ¡Ôñµ÷ÊÔ¡­±à¼­¼àÊÓ£¬È»ºóÊäÈëÏÂÊö±í´ïʽ£ºx=227¡£Äã¿ÉÒÔͨ¹ýË«»÷¼àÊÓ´°¿ÚÀïµÄ±í´ïʽ£¬¿ì¡¡
¡¡¡¡¡¡¡¡ËÙÏÔʾ±à¼­¼àÊÓ¶Ô»°¿ò¡¡¡¡
12¡£¡¡µã»÷È·¶¨£¬¹Ø±Õ±à¼­¼àÊÓ¶Ô»°¿ò¡£×¢Ò⣬ÏÖÔÚ¼àÊÓ´°¿ÚÏÔʾ±í´ïʽµÄÐÂÖµ£¬ÏÖÔÚxΪFalse¡£¡¡¡¡
13¡£¡¡°´F5£¬µ±xֵΪ227ʱ¹ý³ÌÔÙ´ÎÍ£Ö¹¡£curDateµÄÖµÏàͬ£¬µ«ÊDZäÁ¿newDateÏÖÔÚÓÐÁËÒ»¸öеÄÖµ¡¡
¡¡¡¡¡¡¡¡¡ª¡ªÏÖÔÚÖ®ºó277ÌìµÄÈÕÆÚ¡£Äã¿ÉÒÔÔٴθıä±í´ïʽµÄÖµ£¬»òÕß½áÊø¸Ã¹ý³Ì¡£¡¡¡¡
14¡£¡¡°´F5ÒÔÍê³É¸Ã¹ý³Ì¡£µ±ÄãµÄ¹ý³ÌÕýÔÚÔËÐУ¬²¢ÇÒ¼àÊÓ±í´ïʽÓÐÖµ£¬¼àÊÓ´°¿Ú¾Í»áÏÔʾ¸Ã¼àÊÓ±í¡¡
¡¡¡¡¡¡¡¡´ïʽµÄÖµ£¬Èç¹ûÄãÔÚ¹ý³ÌÔËÐнáÊøºó´ò¿ª¼àÊÓ´°¿ÚµÄ»°£¬ÄÇôÄ㽫¿´µ½£¬¶ø²»ÊÇ¡¡
¡¡¡¡¡¡¡¡±äÁ¿ÖµÁË¡£»»¾ä»°Ëµ£¬µ±¼àÊÓ±í´ïʽÒç³öÉÏÏÂÎÄʱ£¬ËüûÓÐÖµ¡£¡¡¡¡

7¡£Çå³ý¼àÊÓ±í´ïʽ¡¡¡¡

ÔÚ¼àÊÓ´°¿ÚÀµã»÷ÄãÒªÇå³ýµÄ±í´ïʽ²¢ÇÒ°´ÏÂDelete¡£Çå³ýÄãÏÈÇ°¶¨ÒåµÄËùÓмàÊÓ±í´ïʽ¡£¡¡¡¡

8¡£Ê¹ÓÿìËÙ¼àÊÓ¡¡¡¡

Èç¹ûÄãÏë²é¿´Ò»¸ö±í´ïʽµÄÖµ£¬µ«ÊÇÄ㻹ûÓж¨Òå¼àÊÓ±í´ïʽ£¬ÄÇôÄã¿ÉÒÔʹÓÿìËÙ¼àÊÓ£¨¼ûͼ¡¡
13¡­11£©¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ13¡­11¡¡¿ìËÙ¼àÊÓ¶Ô»°¿òÏÔʾVBA¹ý³ÌÀïËùÑ¡±í´ïʽµÄÖµ¡¡¡¡
¿ÉÒÔͨ¹ýÏÂÊö·½·¨»ñÈ¡¿ìËÙ¼àÊÓ¶Ô»°¿ò£º¡¡¡¡
¡­¡¡¡¡¡¡ÔÚÖжÏģʽÏ£¬½«¹â±ê·ÅÔÚÄãÒª¼àÊӵıäÁ¿Ãû³Æ»òÕß±í´ïʽÄÚ²¿¡¡¡¡
¡­¡¡¡¡Ñ¡Ôñµ÷ÊÔ£ü¿ìËÙ¼àÊÓ£¬»òÕß°´ÏÂShift£«F9¡¡¡¡
¿ìËÙ¼àÊÓ¶Ô»°¿òÉÏÃæÓиöÌí¼Ó°´Å¥£¬ÔÊÐíÄãÔÚ¼àÊÓ´°¿ÚÀïÌí¼Ó±í´ïʽ¡£¡¡¡¡
È·±£¹ý³ÌWhatDateÀ

·µ»ØĿ¼ ÉÏÒ»Ò³ ÏÂÒ»Ò³ »Øµ½¶¥²¿ ÔÞ£¨0£© ²È£¨0£©

Äã¿ÉÄÜϲ»¶µÄ