office - Excel - VBAÈëÃÅ»ù´¡ - ͼÎÄ(5)
¶ÔÏó¡¢ÊôÐÔ¡¢·½·¨£¬Ê¼þ
£½£½£½£½£½£½£½£½£½£½£½£½£½£½
ÕâÊǺÜÖØÒªµÄ¼¸¸ö¸ÅÄÊÇдVBA³ÌÐòµÄ»ù´¡£¬´ó¼Ò×Ðϸ¶Á£¬Ò»¶¨ÒªÅªÇå³þ¡£
1¡¢¶ÔÏó¼°¶ÔÏó²ã´Î½á¹¹
¶ÔÏó¾ÍÊÇ´æÔڵĶ«Î÷£¬ÊÇVBA´¦ÀíµÄÄÚÈÝ£¬°üÀ¨¹¤×÷±¡¡¢¹¤×÷±í¡¢¹¤×÷±íÉϵĵ¥Ôª¸ñÇøÓò¡¢Í¼±íµÈµÈ¡£¶ÔÏó¿ÉÒÔÏ໥°üº¬£¬¾ÍÏñÒ»¸öÎļþ¼ÐÀï¿ÉÒÔ°üº¬¶à¸öÎļþ¼ÐÒ»Ñù£¬¶øÕâ¸öÎļþ¼ÐÓÖ¿ÉÒÔ±»ÆäËûµÄÎļþ¼Ð°üº¬£¬Ò»¸ö¹¤×÷±¡¶ÔÏó¿ÉÒÔ°üº¬¶à¸ö¶à¸ö¹¤×÷±í¶ÔÏó£¬Ò»¸ö¹¤×÷±í¶ÔÏóÓÖ¿ÉÒÔ°üº¬¶à¸öµ¥Ôª¸ñ(»òͼ±í,ͼÐεÈ)£¬ÕâÖÖ¶ÔÏóµÄÅÅÁÐģʽ³ÆÎªExcelµÄ¶ÔÏóÄ£ÐÍ¡£ ----------
¼¯ºÏÕâ¸ö¸ÅÄî¾³£Óöµ½£¬ÎÒÀí½âµÄ¼¯ºÏÊǶÔÏàͬÀàÐ͵ĶÔÏóµÄͳ³Æ¡£
ijÖÐѧÓÐ5000¸öѧÉú£¬Ãû×Ö¸÷²»Ïàͬ£¬ÎÒÃǶÔËû¶¼Í³³ÆÎªÄ³ÖÐѧµÄѧÉú£¬¶ø²»ºÍһһȥ½ÐËûÃǵÄÃû×Ö£¬\ijÖÐѧµÄѧÉú\ÔÚÕâÀïÊǼ¯ºÏ¡£
¶ÔÏóµÄÒýÓã¬ÔÚExcelÀWorkbooks¼¯ºÏ°üº¬ÔÚApplication¶ÔÏóÀµ±ÎÒÃÇÒªÒýÓÃij¹¤×÷±¡µÄʱºò£¬Òª×ñÑ´Ó´óµ½Ð¡µÄ¹æÔò¡£¸ú±íʾӲÅÌÀïµÄij¸öÎļþµÄλÅZÒ»Ñù£¬±ÈÈçÎÒÃÇÏëÒýÓÃDÅÌ?ÎÒµÄÎĵµ?Îļþ¼ÐϵÄÃûΪ?ÎÒµÄVBA¿Î³Ì.doc?ÎļþʱҪÊäÈëµÄÊÇ£º
D£º\\ÎÒµÄÎĵµ\\ÎÒµÄVBA¿Î³Ì.doc
ͬÑù£¬Èç¹ûÎÒÃÇÒªÒýÓÃÃû³ÆÎª?mybook.xls?µÄ¹¤×÷±¡Ê±¾ÍÊÇ£º
Application.Workbooks(?mybook.xls?) ºÍÒýÓÃÎļþ²»Í¬µÄÊÇ£¬VBAÀïʹÓõķָô·ûÊǵ㡣
ͬÀí£¬µ±ÎÒÃÇÒýÓÃ?mybook.xls?ÀïÃæµÄ¹¤×÷±í?mysheet?ʱӦÊÇ£º
Application.Workbooks(?mybook.xls?).Worksheets(?mysheet?)
¿ÉÒÔ¼ÌÐøÑÓÉìµ½ÏÂÒ»²ã£¬ÒýÓÃ?mybook.xls?À﹤×÷±í?mysheet?ÀïÃæµÄµ¥Ôª¸ñÇøÓò?A1:D10?£º
Application.Workbooks(?mybook.xls?).Worksheets(?mysheet?).Range(?A1:D10?)
µ«ÊDz¢²»ÊÇÿһ´ÎÒýÓö¼±ØÐëÕâô´ô°å£¬¾ÍÏñÖí°Ë½ä²»ÓÃÿһ´Î¶¼È¥ÅÀÏÂË®¹ÜµÀ¡£Èç¹ûÎÒÃÇÒýÓõÄÊǻ¶ÔÏó£¬Ò²¾ÍÊDZ»¼¤»îµÄ¶ÔÏó£¬ÒýÓþͿÉÒÔ½øÐмò»¯¡£
Èç¹ûÊÇmybook¹¤×÷±¡ÊǼ¤»îµÄ£¬ÒýÓÿÉÒÔ¼ò»¯Îª Worksheets(?mysheet?).Range(?A1:D10?)
Èç¹ûmysheetµ±Ç°Ò²ÊǼ¤»îµÄ£¬ÒýÓÃÉõÖÁ»¹¿ÉÒÔ¼ò»¯ÎªRange(?A1:D10?) £¬Ò²¿ÉÒÔÖ±½ÓÊäÈë[A1:D10] £¬Èç¹ûÒýÓõĵ¥ÔªRangeÊǵ¥¸öµÄµ¥Ôª¸ñ£¬»¹¿ÉÒÔÓÃCells£¨ÐкÅ,Áкţ©µÄÒýÓ÷½Ê½¡£
------------------------------------------------------- 2¡¢ÊôÐÔ
ÿһ¸ö¶ÔÏó¶¼ÓÐÊôÐÔ£¬Ò»¸öÊôÐÔ¾ÍÊǶÔÒ»¸ö¶ÔÏóµÄÒ»¸öÉèÅZ¡£
Öí°Ë½ä±³×Åϱ¸¾¸ßÐãÀ¼»Ø×Ô¼ºµÄ×ÏÔÆ¶´£¬Öí°Ë½äµÄϱ¸¾¾ÍÊǶÔÏó£¬?¸ßÐãÀ¼?¾ÍÊÇÖí°Ë½äµÄϱ¸¾µÄÒ»¸öÊôÐÔ£¨nameÊôÐÔ£©£¬ÒýÓöÔÏóµÄÊôÐÔͬÑùÒ²ÒªÓõãÀ´·Ö¸ô¡£ Öí°Ë½äµÄϱ¸¾.name£½¸ßÐãÀ¼
±ðÏÐ×Å£¬»¹ÊǶ¯¶¯ÄãµÄÓÒÊÖ£¬´ò¿ªÒ»¸ö¹¤×÷±í£¬Alt+F11£¨Ç§Íò±ð˵Äã²»ÖªµÀÕâ¸ö¿ì½Ý¼üÊǸÉʲô£¬Òª²»ÎÒ±£Ö¤±»ÄãÆø¸ö°ëËÀ£©£¬Èç¹ûÁ¢¼´´°¿ÚûÓдò¿ª£¬°´Ctrl+G´ò¿ª£¬ÔÚÀïÃæÊäÈ룺 ¸´ÖÆÄÚÈݵ½¼ôÌù°å ´úÂë:
Msgbox Worksheets(1).name »Ø³µ¡£
1.jpg (53.4 KB)
Worksheets(1)ºÍWorksheets(?sheet1?)ÓÐÊ²Ã´Çø±ð£¿ Worksheets(1)±íʾWorksheets¼¯ºÏÀïµÄµÚÒ»¸ö¹¤×÷±í¡£ Worksheets(?sheet1?)±íʾWorksheets¼¯ºÏÀïÃûΪ\µÄ¹¤×÷±í¡£
ÖÁÓÚMsgboxÊÇʲô£¬ÄǾÍ×Ô¼ºÎÊHelpÁË£¬ÔÚÁ¢¼´´°¿ÚÀïÓÃÊó±ê×ó¼ü°ÑMsgboxĨºÚ£¬°´F1£¬¾Íµ¯³öHelpÀï¶ÔËüµÄ˵Ã÷ÁË¡£ ĨºÚ´úÂ룬ÔÙ°´F1¼´¿É¿´µ½ÏàÓ¦µÄ°ïÖú¡£Ò¶·ã˵£º?Õâ¸ö°ì·¨ºÜÊÊÓã¬Ò»°ãÈËÎÒ²»¸æËßËû¡£?
2.jpg (42.52 KB)
Ò»¸ö¶ÔÏóÓÐÄÄЩÊôÐÔÎÒÃÇ¿ÉÒÔÔÚÊôÐÔ´°¿ÚÀï²é¿´£¬ÒªÐÞ¸ÄÒ»¸ö¶ÔÏóµÄijÖÖÊôÐÔ£¬ÈçÃû³Æ¡¢ÏÔʾ״̬¡¢ÑÕÉ«µÈµÈ£¬Ò²¿ÉÒÔÔÚÊôÐÔ´°¿ÚÀï½øÐÐÐ޸쬵±È»ÎÒÃÇ»¹¿ÉÒÔÀûÓôúÂë½øÐÐÐ޸ġ£¸Äµ±Ç°¹¤×÷±¡ÀïµÄµÚÈý¸ö¹¤×÷±íµÄÃû³ÆÎª?Õâ¸öÃû×ÖÊÇÎÒÓÃVBA¸ÄµÄ?£¬ÏëÏëÔõôд´úÂ룿
°ÑÄãµÄ´úÂëÊäÔÚÁ¢¼´´°¿ÚÀ»Ø³µ£¬¿´¿´Ð§¹û£¬Äã×öµ½ÁËÂ𣿠------------------------------------------------------- 3¡¢·½·¨
ÿһ¸ö¶ÔÏó¶¼Óз½·¨£¬·½·¨¾ÍÊÇÔÚ¶ÔÏóÉÏÖ´ÐеÄij¸ö¶¯×÷¡£ ºÍÊôÐÔÏà±È£¬ÊôÐÔ±íʾµÄÊǶÔÏóijÖÖ״̬»òÑù×Ó£¬ÊǾ²Ì¬µÄ£¬¾ÍÏñÊÇÓïÎÄÀïµÄÃû´Ê¡¢ÐÎÈݴʺ͸±´Ê£¬¶ø·½·¨ÔòÊÇ×öij¼þʵÄÒ»¸ö¶¯×÷£¬¾ÍÏñ¶¯´Ê£¬¶ÔÏóºÍ·½·¨Í¬ÑùÓõãÀ´·Ö¸ô¡£
ÀýÈçRange¶ÔÏóÓÐÓÐÒ»¸ö·½·¨ÊÇSelect£¬ËûµÄ×÷ÓÃÊÇÑ¡ÖÐÖ¸¶¨µÄRange£¨µ¥Ôª¸ñÇøÓò£©¶ÔÏó£¬ÔÚÁ¢¼´´°¿ÚÀïÊäÈë´úÂ룺 »Ø³µ£¬¿ÉÒÔ¿´µ½D1:F10ÒѾ±»Ñ¡ÖÐÁË¡£
3.jpg (36.23 KB)
------------------------------------------------------- 4¡¢Ê¼þ
ÔÚÉÏÒ»ÃæÖí°Ë½ä°´ÃÅÁåÄÇÀÎÒÃÇÒѾ½Ó´¥¹ýʲôÊÇʼþÁË¡£
¼òµ¥µã˵£¬Ê¼þ¾ÍÊÇÓÉÓû§»òÕßϵͳ´¥·¢µÄ£¬¿ÉÒÔÔÚ´úÂëÖÐÏìÓ¦µÄÒ»¶Î´úÂë¡£±ÈÈ磬µ±ÎÒÃÇÒÆ¶¯Êó±ê£¬´ò¿ª¹¤×÷±¡£¬¼¤»î¹¤×÷±í£¬Ñ¡Öе¥Ôª¸ñ£¬¸Ä±äµ¥Ôª¸ñµÄÊýÖµ£¬µã»÷°´Å¥»ò´°Ì壬Çû÷¼üÅ̵ȵÈÕâЩ¶¼»á²úÉúһϵÁеÄʼþ£¬Í¨¹ý±àд´úÂëÏìÓ¦ÕâЩʼþ£¬µ±·¢Éú´ËÀàʼþʱ£¬³ÌÐò´úÂë¾Í»á½øÐÐÏàÓ¦µÄ²Ù×÷¡£
ÕâÑù½âÊÍÄã»á²»»áÓÐЩÔΣ¿¸Ð¾õÓÖÒ»´Î½øÈëÁËÍâÐÇÈ˵ÄÊÀ½ç£¿»¹ÊǾÙÀý˵Ã÷£¬ÎÒÃÇÐèÒªµ±¼¤»îij¹¤×÷±íµÄʱºò£¬×Ô¶¯µ¯³öÒ»¸ö¶Ô»°¿ò£¬¸æËßÎÒÃǼ¤»îµÄ¹¤×÷±íµÄÃû³Æ¡£
£¨1£©´ò¿ªÒ»¸ö¹¤×÷±í£¬Alt+F11´ò¿ªVBE´°¿Ú£¬ÔÚ?¹¤³Ì¶ÔÏó¹ÜÀíÆ÷?´°¿ÚÀïË«»÷ÄãÒª½øÐÐÉèÅZµÄ¹¤×÷±í£¬Ê¹Æä´úÂë´°¿ÚÏÔʾ¡£
£¨2£©×óÃæÑ¡Ôñ¶ÔÏóWorksheet(¹¤×÷±í¶ÔÏó)£¬ÓÒÃæÑ¡ÔñActivateʼþ£¬ÎÒÃÇ¿ÉÒÔ¿´µ½ÔÚ´úÂë´°¿ÚÀïϵͳÒѾΪÎÒÃÇ×Ô¶¯ÊäÈëÁËÒ»¶Î´úÂë¡£ ¸´ÖÆÄÚÈݵ½¼ôÌù°å ´úÂë:
Private Sub Worksheet_Activate() End Sub ÒýÓÃ:
ÌáÐÑ: ³õѧµÄÎÒÃÇ£¬²»±ØÍêÈ«¼Çס¶ÔÏó¼°Ê¼þµÄÃû³Æ£¬Ò²²»±ØÊÖ
¡¡ ´Ë´¦Òþ²Ø£º830×Ö£¬È«²¿ÎĵµÄÚÈÝÇëÏÂÔØºó²é¿´¡£Ï²»¶¾ÍÏÂÔØ°É ¡¡
ÏÂһƪ£º´óÊ󸹲¿¿ª·ÅÉ˺£Ë®½þÅݺóθð¤Ä¤°±»ù¼ºÌǺÍÁ×Ö¬µÄ±ä»¯£¨Ò»£©
Ïà¹ØÍÆ¼ö£º
- [¸ßµÈ½ÌÓý]¹«Ë¾ÐÖúij´å¾«×¼·öƶ¹¤×÷×ܽá.doc
- [¸ßµÈ½ÌÓý]¸ß¶þÉúÎï֪ʶµã×ܽá(È«)
- [¸ßµÈ½ÌÓý]Ëս̰æÊýѧÈýÄ꼶ϲᡶ½â¾öÎÊÌâµÄ²ßÂÔ
- [¸ßµÈ½ÌÓý]ÒÇÆ÷·ÖÎö¿Î³ÌѧϰÐĵÃ
- [¸ßµÈ½ÌÓý]2017ÄêÎåÒØ´óѧÊýѧÓë¼ÆËã¿ÆÑ§Ñ§Ôº333
- [¸ßµÈ½ÌÓý]È˽̰æÆßÄ꼶ϲáÓïÎĵÚËĵ¥Ôª²âÊÔÌâ(
- [¸ßµÈ½ÌÓý]2018ÄêÇïÆßÄê¼¶Ó¢ÓïÉϲáUnit7Howmuchar
- [¸ßµÈ½ÌÓý]2017Äê°ËÄê¼¶ÏÂÊýѧ½Ìѧ¹¤×÷С½á
- [¸ßµÈ½ÌÓý]ºþÄÏÊ¡»³»¯ÊÐ2019½ì¸ßÈýͳһģÄ⿼ÊÔ(
- [¸ßµÈ½ÌÓý]ËÄÄê¼¶ÏÂ²á¿ÆÑ§_»ù´¡ÑµÁ·¼°´ð°¸½Ì²Ä
- [¸ßµÈ½ÌÓý]³Ç½¼Ãº¿óÎ÷·ç¾®¹Ü·ÉìËõÆ÷¸ü»»Ê©¹¤°²È«
- [¸ßµÈ½ÌÓý]À¥°ËÖÐ20182019ѧÄê¶ÈÉÏѧÆÚÆÚÄ©¿¼ÊÔ
- [¸ßµÈ½ÌÓý]ÏîÄ¿²¿¸÷ÀàÈËÔ±ÈÎÃüÊé
- [¸ßµÈ½ÌÓý]ÉÏÊй«Ë¾¾ÓªË®Îñ²úÒµµÄģʽ
- [¸ßµÈ½ÌÓý]È˽̰æ¸ß¶þ»¯Ñ§µÚһѧÆÚµÚÈýÕÂË®ÈÜÒºÖÐ
- [¸ßµÈ½ÌÓý]¡¾Öп¼ÎïÀíµÚÒ»ÂÖ¸´Ï°×ÊÁÏ¡¿ËÄ.ѹǿÓë
- [¸ßµÈ½ÌÓý]½ð¿ÓË®µçÕ¾±¨·Ï¸Ä½¨¹¤³Ì»úµçÉ豸¸üиÄ
- [¸ßµÈ½ÌÓý]¸ßÖÐÉúÎï½Ìѧ¹¤×÷¼Æ»®¼òÒ×°æ
- [¸ßµÈ½ÌÓý]2017ÄêÎ÷»ª´óѧÅÊÖ¦»¨Ñ§Ôº(ÁªºÏ°ìѧ)44
- [¸ßµÈ½ÌÓý]×îÐÂÕûÀí³¬¶Ì±¬Ð¦Ó¢ÎÄСЦ»°´óÈ«
- ÓÅÐã½Ìʦ¼ÌÐø½ÌÓýѧϰÐĵÃÌå»á
- ÑôÀúµ½ÒõÀúµÄת»»
- ÁôÊØ¶ùͯ½ÌÓý°¸Àý·ÖÎö
- »ªÊ¦17´ºÇïѧÆÚ¡¶Íæ½Ì¾ßÖÆ×÷Óë»·¾³²¼ÖÃ
- ²âËÙ´«¸ÐÆ÷ÐÂÐͰ²×°×°ÖõÄÏÖ³¡Ó¦ÓÃ
- È˽̰æÐ¡Ñ§ÊýѧÈýÄ꼶ϲáµÚËĵ¥Ôª
- ´´Òµ¸öÈËÒâÏòÊé
- ɽ¶«Ê¡Î«·»ÊÐ2012Äê¸ß¿¼·ÂÕæÊÔÌ⣨Èý£©
- [ºãÐÄ][ºÃ¾íËÙµÝ]ËÄ´¨Ê¡³É¶¼Íâ¹úÓïѧУ
- ¶àÉÙÈË´í°ÑºÃת·´Ó¦µ±³ÉÁ˲¡Çé¼ÓÖØ´¦Àí
- ÖÐÍâ¹ã²¥µçÊÓÊ·¸´Ï°×ÊÁÏÕûÀí
- ½ËÕÊ¡ÑïÖÝÊн¶¼ÇøÒËÁêÕòÖÐѧ2014-201
- ¹¤³ÌÔì¼Ûרҵ±Ïҵʵϰ±¨¸æ
- ¹ãÎ÷ʦ·¶Ñ§ÔºÐÄÀíÓë½ÌÓýͳ¼Æ
- aympkrq»ùÓÚ - aspµÄ²©¿ÍÍøÕ¾Éè¼ÆÓ뿪
- ½¨ÖþÒµÍâ³ö¾ÓªÏà¹ØÁ÷³Ì²Ù×÷£¨Óª¸ÄÔöºó
- ÈËÖÎ µÂÖÎ ·¨ÖÎ
- [¾«»ªÆª]³£Ê¶ÅжÏרÏîѵÁ·Ìâ¿â
- Öйú¹²²úµ³ÎªÊ²Ã´ÒªÊµÐÐÃñÖ÷¼¯ÖÐ
- СѧÊýѧµÚÈý²áµÚÒ»µ¥ÔªÊÔ¾í£¨A¡¢B¡¢C




