½ÌѧÎÄ¿âÍø - ȨÍþÎĵµ·ÖÏíÔÆÆ½Ì¨
ÄúµÄµ±Ç°Î»ÖãºÊ×Ò³ > ¾«Æ·Îĵµ > ¸ßµÈ½ÌÓý >

office - Excel - VBAÈëÃÅ»ù´¡ - ͼÎÄ(5)

À´Ô´£ºÍøÂçÊÕ¼¯ ʱ¼ä£º2026-09-12
µ¼¶Á£º ¶ÔÏó¡¢ÊôÐÔ¡¢·½·¨£¬Ê¼þ £½£½£½£½£½£½£½£½£½£½£½£½£½£½ ÕâÊǺÜÖØÒªµÄ¼¸¸ö¸ÅÄÊÇдVBA³ÌÐòµÄ»ù´¡£¬´ó¼Ò×Ðϸ¶Á£¬Ò»¶¨ÒªÅªÇå³þ¡£ 1¡¢¶ÔÏó¼°¶ÔÏó²ã´Î½á¹¹ ¶ÔÏó¾ÍÊÇ´æÔڵĶ«Î÷£¬ÊÇVBA´¦ÀíµÄÄÚÈÝ£¬°üÀ¨¹¤×÷± ¢¹¤×÷±í¡¢¹

¶ÔÏó¡¢ÊôÐÔ¡¢·½·¨£¬Ê¼þ

£½£½£½£½£½£½£½£½£½£½£½£½£½£½

ÕâÊǺÜÖØÒªµÄ¼¸¸ö¸ÅÄÊÇд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×Ö£¬È«²¿ÎĵµÄÚÈÝÇëÏÂÔØºó²é¿´¡£Ï²»¶¾ÍÏÂÔØ°É ¡­¡­
office - Excel - VBAÈëÃÅ»ù´¡ - ͼÎÄ(5).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ£¬·½±ã¸´ÖÆ¡¢±à¼­¡¢ÊղغʹòÓ¡
±¾ÎÄÁ´½Ó£ºhttps://www.jiaowen.net/wendang/612939.html£¨×ªÔØÇë×¢Ã÷ÎÄÕÂÀ´Ô´£©

Ïà¹ØÍÆ¼ö£º

Copyright © 2020-2025 ½ÌÎÄÍø °æÈ¨ËùÓÐ
ÉùÃ÷ :±¾ÍøÕ¾×ðÖØ²¢±£»¤ÖªÊ¶²úȨ£¬¸ù¾Ý¡¶ÐÅÏ¢ÍøÂç´«²¥È¨±£»¤ÌõÀý¡·£¬Èç¹ûÎÒÃÇ×ªÔØµÄ×÷Æ·ÇÖ·¸ÁËÄúµÄȨÀû,ÇëÔÚÒ»¸öÔÂÄÚ֪ͨÎÒÃÇ£¬ÎÒÃǻἰʱɾ³ý¡£
¿Í·þQQ£º78024566 ÓÊÏ䣺78024566@qq.com
ËÕICP±¸19068818ºÅ-2
Top
¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
×¢£ºÏÂÔØÎĵµÓпÉÄܳöÏÖÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµ¿Í·þЭÖúÄú´¦Àí¡£
¡Á ³£¼ûÎÊÌ⣨¿Í·þʱ¼ä£ºÖÜÒ»µ½ÖÜÎå 9:30-18:00£©