excel ºê´úÂëÔõôÓÃ

ÔÚ½éÉÜѧϰVBA֮ǰ£¬Ó¦¸Ã»¨¼¸·ÖÖÓ¼ÖÆÒ»¸öºê¡£
ÐÂÊõÀ´×ÔÓ¡°ºê¡±£¬Ö¸Ò»ÏµÁÐEѪ¹ÌµÆ´«Ð¡XCELÄܹ»Ö´ÐеÄVBAÓï¾ä¡£
ÒÔϽ«ÒªÂ¼ÖƵĺê·Ç³£¼òµ¥£¬Ö»ÊǸı䵥Ԫ¸ñÑÕÉ«¡£ÇëÍê³ÉÈçϲ½Ö裺1)´ò¿ªÐ¹¤×÷²¾£¬È·ÈÏÆäËû¹¤×÷²¾ÒѾ­¹Ø±Õ¡£2)Ñ¡ÔñA1µ¥Ôª¸ñ¡£µ÷³ö¡°³£Óá±¹¤¾ßÀ¸¡£3)Ñ¡Ôñ¡°¹¤¾ß¡±Îʴ𡪡°ºê¡±¡ª¡°Â¼ÖÆкêÁùÅ©¡±¡£
4)ÊäÈë¡°¸Ä±äÑÕÉ«¡±×÷ΪºêÃûÌ滻ĬÈϺêÃû£¬µ¥»÷È·¶¨,×¢Ò⣬´Ëʱ״̬À¸ÖÐÏÔʾ¡°Â¼ÖÆ¡±£¬ÌرðÊÇ¡°Í£Ö¹Â¼ÖÆ¡±¹¤¾ßÀ¸Ò²ÏÔʾ³öÀ´¡£Ì滻ĬÈϸ£²½Â½Í¼Ãæ×øÕÔÀä¶Ë·ÑÂèºêÃûÖ÷ÒªÊDZãÓÚ·Ö±ðÕâЩºê¡£¡ïºê°´ÊôÇóÔ¸¾¶ÓëдԶÃçÃû×î¶à¿ÉΪ255¸ö×Ö·û£¬²¢ÇÒ±ØÐëÒÔ×Öĸ¿ªÊ¼¡£ÆäÖпÉÓõÄ×Ö·û°üÀ¨£º×Öĸ¡¢Êý×ÖºÍÏ»®Ïß¡£ºêÃûÖв»ÔÊÐí³öÏÖ¿Õ¸ñ¡£Í¨³£ÓÃÏ»®Ïß´ú±í¿Õ¸ñ¡£
5)Ñ¡Ôñ¡°¸ñʽ¡±µÄÈÕ¡°µ¥Ôª¸ñ¡±£¬Ñ¡Ôñ¡°×ß×Úͼ°¸¡±Ñ¡ÏîÖеĺìÉ«,µ¥»÷¡°È·¶¨¡±¡£6)µ¥»÷¡°Í£Ö¹Â¼ÖÆ¡±¹¤¾ßÀ¸°´Å¥£¬½áÊøºê¼Öƹý³Ì¡£¡ùÈç¹û¡°Í£Ö¹Â¼ÖÆ¡±¹¤¾ßÀ¸¿ªÊ¼²¢Î´³öÏÖ£¬ÇëÑ¡Ôñ¡°¹¤¾ß¡±¡ª¡°ºê¡±¡ª¡°Í£Ö¹Â¼ÖÆ¡±¡£
¼ÖÆÍêÒ»¸öºêºó¾Í¿ÉÒÔÖ´ÐÐËüÁË¡£
1.4Ö´ºÅÎÒ¹¦Ç븽ԪºÓ·ÉȾ¼¯Ðкê
µ±Ö´ÐÐÒ»¸öºêʱ£¬EXCEL°´ÕÕºêÓï¾äÖ´ÐеÄÇé¿ö¾ÍÏñVBA´úÂëÔÚ¶ÔEXCEL½øÐС°Ò£Ì«¿Ø¡±¡£µ«VBAµÄ¡°**¡±²»½öÄÜÊ**Ù×÷±äµÃ¼ò±ã£¬»¹ÄÜʹÄã»ñµÃһЩ³Æ·Ñ¼ÇʤƵʹÓÃEXCEL±ê×¼ÃüÁîËùÎÞ·¨ÊµÏֵŦÄÜ¡£¶øÇÒ£¬Ò»µ©ÊìϤÁËEXCELµÄ¡°**¡±£¬Ä㶼»áÆæ¹Ö×Ô¼ºÔÚûÓÐÕâЩ¡°**¡±µÄÇé¿öÏ£¬µ½µ×ÊÇÔõô°¾¹ýÀ´µÄ¡£ÒªÖ´ÐиղżÖƵĺêÕ¹½ôÔ¸£¬¿ÉÒÔ°´ÒÔϲ½Öè½øÐУº1£©Ñ¡ÔñÈκÎÒ»¸öµ¥Ôª¸ñ£¬±ÈÈçA3¡£
2£©Ñ¡Ôñ¡°¹¤¾ß¡±¡ª¡°ºê¡±¡ª¡°ºê¡±£¬ÏÔʾ¡°ºê¡±¶ÔËÍËæ³åÁôµ«É¹Ö÷»°¿ò¡£
3£©Ñ¡Ôñ¡°¸Ä±äÑÕÉ«¡±£¬Ñ¡Ôñ¡°Ö´ÐС±£¬ÔòA3µ¥Ôª¸ñµÄÑÕÉ«±äΪºìÉ«¡£ÊÔ×ÅÑ¡ÔñÆäËüµ¥Ôª¸ñºÍ¼¸¸öµ¥Ôª¸ñ×é³ÉµÄÇøÓò£¬È»ºóÔÙÖ´Ðк꣬ÒÔ±ã¼ÓÉîÓ¡Ïó¡£
1.5²é¿´Â¼ÖƵĴúÔ²¾øÎåÔðÒÕÒìԪʤÂë
µ½µ×ÊÇʲôÔÚ¿ØÖÆEXCELµÄÔËÐÐÄØ?ͬ¾ß¹ú΢»®µØµ£Ô±¶ÌʹÄã¿ÉÄÜÓÐЩÒÉ»ó.ºÃ,ÈÃÎÒÃÇ¿´¿´VBAµÄÓï¾ä°É.1£©Ñ¡Ôñ¡°¹¤¾ß¡±¡ª¡°ºê¡±¡ª¡°ºê¡±£¬ÏÔʾ¡°ºê¡±¶Ô»°¿ò¡£2£©µ¥»÷ÁбíÖеġ°¸Ä±äÑÕÉ«¡±,Ñ¡Ôñ¡°±à¼­¡±°´Å¥¡£´Ëʱ£¬»á´ò¿ªVBAµÄ±à¼­Æ÷´°¿Ú£¨VBE£©¡£¹ØÓڸñ༭Æ÷£¬ÒÔºóÔÙÏêϸ˵Ã÷£¬ÏȽ«×¢ÒâÁ¦¼¯Öе½ÏÔʾµÄ´úÂëÉÏ¡£´úÂëÈçÏ£º£¨ÈÕÆÚºÍÐÕÃû»áÓв»Í¬£©
Sub¸Ä±äÑÕÉ«()'
'¸Ä±äÑÕÉ«Macro
'xw¼Ç¼µÄºê2000-6-10''
WithSelection.Interior
.ÒøÎöµÆÑõÆðÑõÇ®ColorIndex=3.Pattern=xlSolid
.PatternColorIndex=xlAutomaticEndWithEndSub
½«À´Ã»ÈÃÁ¢ËêÊ¿Òâ»áÊ®·ÖÊìϤÕâÖÖ´úÂ룬ËäÈ»ÏÖÔÚËüÃÇ¿´ÉÏÈ¥ÏñÒ»ÖÖÆæ¹ÖµÄÍâÓï¡£ÄáȾ·À״ͶµÄµôͨµ÷ѧϰVBA»ò±à³ÌÓïÑÔÔÚijÖ̶ֳÈÉϱȽÏÍÅÀë¿Íµ×ͶÁ¸¾­¶¯ÏñÔÚѧϰһÖÖÍâÓï¡£
Sub¸Ä±äÑÕÉ«():ÕâÊǺêµÄÃû³Æ¡£
ÖмäµÄÒÔ¡°'¡±¿ªÍ·µÄÎåÐгÆΪ¡°×¢ÊÍ¡±£¬ËüÔÚ¼Öƺêʱ×Ô¶¯**Éú¡£
ÒÔWith¿ªÍ·µ½EndWith½áÊøµÄ½á¹¹ÊÇWith½á¹¹Óï¾ä£¬Õâ¶ÎÓï¾äÊǺêµÄÖ÷Òª²¿·Ö¡£×¢Òâµ¥´Ê¡°selection¡±£¬Ëü´ú±í¡°Í»³öÏÔʾµÄÇøÓò¡±£¨¼´£ºÑ¡¶¨ÇøÓò£©¡£WithSelection.Interior£ºËü¶Á×÷¡°Ñ¡ÔñÇøÓòµÄµÄ**¡±.ÕâÕû¶ÎÓï¾äÉèÖøÃÇøÓò**µÄһЩ¡°ÊôÐÔ¡±¡£
ÆäÖУº
.ColorIndex=3:½«¸Ã**ÉèΪºìÉ«¡£×¢Ò⣺ÓÐһСԲµã£¬ËüµÄ×÷ÓÃÔÚÓÚ¼ò»¯Óï¾ä£¬Ð¡Ô²µã´úÌæ³öÏÖÔÚWithºóµÄ´Ê,ËüÊÇWith½á¹¹µÄÒ»²¿·Ö¡£ÁíÍ⣺ºìÉ«±»Êý×Ö»¯Îª3.(ºìÉ«¾¯½äÊÇ·ñ¿É³Æ×÷£º3ºÅ¾¯½ä£¬àÅ£¿)ÓÐÐËȤµÄ»°£¬Ä㽫3¸ÄΪÆäËûÊý×ÖÊÔÊÔ¿´¡£
.Pattern=xlSolid£ºÉèÖøÃÇøÓòµÄ**ͼ°¸¡£ÓÉÓÚÊǼÖƺ꣬ËùÒÔ£¬ËäÈ»Ä㲢δÉèÖÃÕâÒ»ÏºêÈÔÈ»½«Æä¼Ç¼ÏÂÀ´(ÒòΪÔÚ¡°Í¼°¸¡±Ñ¡ÏîÖÐÓдËÒ»ÏֻÊÇÄãΪÔøÉèÖöøÒÑ£©¡£xlSolid±íʾ´¿É«¡£
.PatternColorIndex=xlAutomatic£º±íʾ**ͼ°¸µ×ÎÆÑÕɫΪ×Ô¶¯ÅäÉ«¡£
EndWith:½áÊøWithÓï¾ä¡£
EndSub:Õû¸öºêµÄ½áÊøÓï
1.6±à¼­Â¼ÖƵĴúÂë
ÔÚÉÏÒ»½Ú£¬ÎÒÃǼÖÆÁËÒ»¸öºê²¢²é¿´ÁË´úÂ룬´úÂëÖÐÓÐÁ½¾äʵ¼ÊÉϲ¢²»Æð×÷Óá£ÄÄÁ½¾ä£¿ÏÖÔÚ£¬ÔÚºêÖÐ×÷Ò»¸öÐ޸ģ¬É¾³ý¶àÓàÐУ¬Ö±µ½ºÍÏÂÃæ´úÂëÏàͬ£º
Sub¸Ä±äÑÕÉ«()'
'¸Ä±äÑÕÉ«Macro
'xw¼Ç¼µÄºê2000-6-10''
WithSelection.Interior.ColorIndex=3EndWithEndSub
Íê³Éºó£¬ÔÚ¹¤×÷±íÖÐÊÔÑéһϡ£Äã»á·¢ÏÖ½á¹ûºÍÐÞ¸ÄÇ°µÄ×´¿öÒ»Ñù¡£ÔÚWithÓï¾äÇ°¼ÓÈëÒ»ÐÐ:
Range("A5").Select
ÊÔ×ÅÔËÐиúê,ÔòÎÞÂÛ¿ªÊ¼Ñ¡ÔñÄĸöµ¥Ôª¸ñ,ºêÔËÐнá¹û¶¼ÊÇʹA5µ¥Ôª¸ñ±äºì.
ÏÖÔÚ¿ÉÒÔ¿´µ½£¬±à¼­Â¼ÖƵĺêͬÑù·Ç³£¼òµ¥¡£ÐèÒª±à¼­ºêÊÇÒòΪÒÔÏÂÈý¸ö·½ÃæµÄÔ­Òò¡£Ò»£ºÔÚ¼ÖÆ**´í¶ø²»µÃ²»Ð޸ġ£¶þ£ºÂ¼ÖƵĺêÖÐÓжàÓàµÄÓï¾äÐèҪɾ³ý£¬Ìá¸ßºêµÄÔËÐÐËٶȡ£Èý£ºÏ£ÍûÔö¼ÓºêµÄ¹¦ÄÜ¡£±ÈÈ磺¼ÓÈëÅжϻòÑ­»·µÈÎÞ·¨Â¼ÖƵÄÓï¾ä¡£
1.7¼ÖƺêµÄ¾ÖÏÞÐÔ
Ï£Íû×Ô¶¯»¯µÄÐí¶àEXCEL¹ý³Ì´ó¶à¶¼¿ÉÒÔÓüÖƺêÀ´Íê³É.µ«ÊǺê¼Ç¼Æ÷´æÔÚÒÔϾÖÏÞÐÔ.ͨ¹ýºê¼Ç¼Æ÷ÎÞ·¨Íê³ÉµÄ¹¤×÷ÓÐ:1)¼ÖƵĺêÎÞÅжϻòÑ­»·ÄÜÁ¦.
2)ÈË»ú½»»¥ÄÜÁ¦²î,¼´Óû§ÎÞ·¨½øÐÐÊäÈë,¼ÆËã»úÎÞ·¨¸ø³öÌáʾ.3)ÎÞ·¨ÏÔʾEXCEL¶Ô»°¿ò.4)ÎÞ·¨ÏÔʾ×Ô¶¨Òå´°Ìå.
1.8С½á
±¾¿ÎÖÐ,ÄãÒѾ­ÕÆÎÕÁËVBAµÄһЩ»ù´¡ÖªÊ¶,Äã»á¼Öƺꡢ±à¼­ºê¶øÇÒÁ˽âÁ˼ÖƺêµÄ¾ÖÏÞÐÔ.ÄãºÜŬÁ¦.²¢ÇÒÒѾ­Îª½«À´Ñ§Ï°VBAÉõÖÁVBµÈ±à³ÌÓïÑÔ´òÏÂÁË»ù´¡.¹Ø¼üÊÇÄãÒѾ­Á˽âÁËÒ»¸öÃÕµ×,¾ÍÊÇ˵,ÄãÁ˽âÁËʲôÊDZà³Ì.ÏÂÃæÊÇЩСÁ·Ï°,×öÍêºó²Å¿ÉÒÔÈ¥ÍæÓ´.
˼¿¼:
1)VBAÖ»ÄÜÓÃÓÚEXCELÂð?2)VBAÊÇ»ùÓÚÄÄÖÖÓïÑÔ?
3)˵˵EXCELºÍVBAµÄ¹Øϵ.4)ΪʲôҪÓúê?
µÚ¶þ¿Î´¦Àí¼ÖƵĺê2.1ΪºêÖ¸¶¨¿ì½Ý¼ü
ÄãÒ²ÐíÏ£ÍûΪ¾­³£Ê¹ÓõĺêÖ¸¶¨¿ì½Ý¼ü¡£¿ì½Ý¼üÊÇÖ¸¼üµÄ×éºÏ£¬µ±Æä°´ÏÂʱִÐÐÒ»ÌõÃüÁî¡£ÀýÈ磺CTRL+C
ÔÚÐí¶à³ÌÐòÖдú±í¡°¸´ÖÆ¡±ÃüÁî¡£µ±¸øºêÖ¸¶¨ÁË¿ì½Ý¼üºó£¬¾Í¿ÉÒÔÓÿì½Ý¼üÀ´Ö´Ðк꣬¶ø²»±Øͨ¹ý¡°¹¤¾ß¡±²Ëµ¥¡£
×¢Ò⣺µ±°üº¬ºêµÄ¹¤×÷²¾´ò¿ªÊ±¼ä£¬ÎªºêÖ¸¶¨¿ì½Ý¼ü»á¸²¸ÇEXCELĬÈϵĿì½Ý¼ü¡£ÀýÈ磺°ÑCTRL+CÖ¸¶¨¸øij¸öºê£¬ÄÇôCTRL+C¾Í²»ÔÙÖ´Ðи´ÖÆÃüÁî¡£ÓÃÒÔÏ·½·¨¿ÉÒÔ´òÓ¡³ö
EXCELµÄ¿ì½Ý¼üÇåµ¥£¨ÓÃA4Ö½´òÓ¡**ÓÐ24Ò³Ö®¶à£©£º1£©´ò¿ªEXCEL°ïÖúÎļþ²¢Ñ¡Ôñ¡°Ä¿Â¼¡±Ñ¡Ïî¡£2£©´Ó¡°Ê¹Óÿì½Ý¼ü¡±Îļþ¼ÐÖÐÑ¡Ôñ¡°¡±¿ì½Ý¼ü¡°±êÌâ¡£3£©ÓÒ»÷¸Ã±êÌ⣬´Ó¿ì½Ý²Ëµ¥ÖÐÑ¡Ôñ¡°´òÓ¡¡±¡£
4£©Ñ¡Ôñ¡°´òÓ¡ËùÑ¡±êÌâºÍËùÓÐ×ÓÖ÷Ì⡱£¬µ¥»÷¡°È·¶¨¡±¡£
¿ÉÒÔÔÚ´´½¨ºêʱָ¶¨¿ì½Ý¼ü£¬Ò²¿ÉÒÔÔÚ´´½¨ºóÔÙÖ¸¶¨¡£ÒªÔÚ´´½¨£¨Â¼ÖÆ£©ºêʱָ¶¨¿ì½Ý¼ü£¬Ö»ÐëÔÚ¼ÖƺêʱÔÚÊäÈëºêÃûºó£¬ÔÚ¡°¿ì½Ý¼ü¡±Îı¾¿òÖÐÊäÈëÏàÓ¦µÄ¼ü¡£Â¼ÖƺêºóÖ¸¶¨¿ì½Ý¼üÒ²ºÜ¼òµ¥£¬Ö»ÐèÑ¡Ôñ¡°¹¤¾ß¡±¡°ºê¡±£¬ÏÔʾ¡°ºê¡±¶Ô»°¿ò£¬Ñ¡ÔñÒªÖ¸¶¨¿ì½Ý¼üµÄºê£¬ÔÙµ¥»÷¡°Ñ¡Ï°´Å¥£¬Í¨¹ý¡°Ñ¡Ï¶Ô»°¿ò½øÐÐÉèÖá£