¡¶excel_vba_±à³Ì½Ì³Ì(ÍêÕû°æ)¡·

ÏÂÔر¾Êé

Ìí¼ÓÊéÇ©

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


°´¼üÅÌÉÏ·½Ïò¼ü ¡û »ò ¡ú ¿É¿ìËÙÉÏÏ·­Ò³£¬°´¼üÅÌÉ쵀 Enter ¼ü¿É»Øµ½±¾ÊéĿ¼ҳ£¬°´¼üÅÌÉÏ·½Ïò¼ü ¡ü ¿É»Øµ½±¾Ò³¶¥²¿£¡
4¡£¡¡¡¡Ê¹ÓÃÊó±êÑ¡ÔñÄãÒªµÄµ¥Ôª¸ñ£¬µ±Êó±êÔÚµ¥Ôª¸ñÉÏÍ϶¯Ê±£¬VB¾Í»á½«Ñ¡ÔñµÄÇøÓòÒýÓõ½¶Ô»°¿òµÄ¡¡
¡¡¡¡¡¡¡¡±à¼­¿òÀïÃæ¡£¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ͼ4¡­13¡¡Ê¹ÓÃExcelµÄInputBox·½·¨£¬Äã¿ÉÒÔ´ÓÓû§´¦»ñµÃÇøÓòµØÖ·¡¡¡¡
5¡£¡¡¡¡ÄãÑ¡ÔñÁ˵¥Ôª¸ñºó£¬µã»÷¶Ô»°¿òÉϵÄÈ·¶¨°´Å¥£¬±»Ñ¡ÔñµÄÇøÓò¾ÍÒѾ­ÉèÖúøñʽÁË¡£Òª¼ì²éÊÇ¡¡
¡¡¡¡¡¡¡¡·ñ°´ÄãµÄÒâ˼ÉèÖÃÁË£¬Äã¿ÉÒÔÔÚ¸ÃÇøÓòµÄÈÎÒâµ¥Ôª¸ñÀïÊäÈëÒ»¸öÕûÊý£¬Õâ¸öÊý×ÖÓ¦¸ÃÏÔʾΪÁ½¡¡
¡¡¡¡¡¡¡¡Î»Ð¡Êý¡£¡¡¡¡
6¡£¡¡¡¡ÖØÐÂÔËÐиùý³Ì£¬²¢ÇÒµ±³öÏÖ¶Ô»°¿òʱ£¬µã»÷È¡Ïû°´Å¥¡£Èç¹ûÄãÔÚÑ¡ÔñÁËÒ»¸öµ¥Ôª¸ñ»òÕßÒ»¸ö¡¡
¡¡¡¡¡¡¡¡ÇøÓòºóµã»÷È·¶¨°´Å¥£¬¹ý³ÌWhatRange½«¹¤×÷Õý³£¡£²»ÐÒµØÊÇ£¬µ±Äãµã»÷È¡Ïû°´Å¥»òEsc°´Å¥£¬¡¡
¡¡¡¡¡¡¡¡VB½«ÏÔʾһ´íÎóÐÅÏ¢¡ª¡ª¡°ÒªÇó¶ÔÏ󡱡£µ±Äãµã»÷´íÎó¶Ô»°¿òÉϵĵ÷ÊÔ°´Å¥£¬VB¾Í»á¼ÓÁÁµ¼Ö¡¡
¡¡¡¡¡¡¡¡´íÎóµÄ´úÂëÐС£ÒòΪÄ㲻ϣÍûÔÚÈ¡Ïû¶Ô»°¿òʱѡÔñÈκε¥Ôª¸ñ£¬ËùÒÔÄã±ØÐëÏë¸ö·¨×ÓºöÂÔVB¡¡
¡¡¡¡¡¡¡¡ÏÔʾµÄÕâ¸ö´íÎó¡£Ê¹ÓÃÒ»¸öרÃŵÄÓï¾ä£¬On¡¡Error¡¡GoTo¡¡±êÖ¾£¬Äã¾Í¿ÉÒÔÈƹý´íÎóµÄ·¢Éú¡£¸Ã¡¡
¡¡¡¡¡¡¡¡Ö¸ÁîµÄÓï·¨ÈçÏ£º¡¡¡¡
¡¡¡¡¡¡¡¡On¡¡Error¡¡GoTo¡¡±êÖ¾¡¡¡¡
¡¡¡¡¡¡¡¡Õâ¸öÖ¸ÁîÓ¦¸Ã·ÅÔÚ±äÁ¿ÉùÃ÷ÐеÄÏÂÃæ¡£±êÖ¾¿ÉÒÔÊdzýÁËVB¹Ø¼ü×ÖÖ®ÍâµÄÈκÎÄãÏëÒªµÄ´ÊÓï¡£Èç¡¡
¡¡¡¡¡¡¡¡¹û´íÎó·¢Éúʱ£¬VB¾Í»áÖ±½ÓÌøµ½¸ÃÌرðµÄ±êÖ¾£¬ÈçÏÂÃæ²½Öè8Ëùʾ¡£¡¡¡¡
7¡£¡¡¡¡Ñ¡Ôñ¡°ÔËÐС±¡­¡°ÖØÐÂÉèÖá±ÒÔÈ¡ÏûÕýÔÚÔËÐеijÌÐò¡£¡¡¡¡
8¡£¡¡¡¡½«¹ý³ÌWhatRangeÐÞ¸ÄΪÈçÏÂËùʾWhatRange2£º¡¡¡¡
¡¡¡¡¡¡¡¡¡¡Sub¡¡WhatRange2£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Dim¡¡newRange¡¡As¡¡Range¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Dim¡¡tellMe¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡On¡¡Error¡¡GoTo¡¡VeryEnd¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡tellMe¡¡=¡¡¡¨Use¡¡the¡¡mouse¡¡to¡¡select¡¡a¡¡range£º¡¨¡¡¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡99¡¡

¡­¡¡Ò³Ãæ¡¡116¡­

¡¡¡¡¡¡¡¡¡¡¡¡¡¡Set¡¡newRange¡¡=¡¡Application¡£InputBox£¨prompt£º=tellMe£»¡¡_¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Title£º=¡¨Range¡¡to¡¡format¡¨£»¡¡_¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Type£º=8£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡newRange¡£NumberFormat¡¡=¡¡¡¨0¡£00¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡newRange¡£Select¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡VeryEnd£º¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
9¡£¡¡¡¡ÔËÐгÌÐòWhatRange2£¬Ò»µ©³öÏÖ¶Ô»°¿òʱ¾Íµã»÷È¡Ïû°´Å¥¡£×¢Ò⣬Õâ´Î³ÌÐòûÓвúÉú´íÎó¡£µ±¡¡
¡¡¡¡¡¡¡¡VBÔâÓö´íÎóʱ£¬¾Í»áÌøµ½Î»ÓÚ³ÌÐò½áβ´¦µÄ±êÖ¾VeryEnd¡£Î»ÓÚ´íÎóºÍ±êÖ¾VeryEndÖ®¼äµÄÓï¾ä¡¡
¡¡¡¡¡¡¡¡±»ºöÂÔÁË£¨Ô­ÎIJ»µ±£ºThe¡¡statements¡¡placed¡¡between¡¡On¡¡Error¡¡Goto¡¡VeryEnd¡¡and¡¡the¡¡VeryEnd¡¡¡¡
¡¡¡¡¡¡¡¡label¡¡are¡¡ignored£©¡£Ä㽫ÔÚµÚÊ®ÈýÕÂÀïÃæÕÒµ½¸ü¶àµÄÓÕ²¶VBA³ÌÐòÀï´íÎóµÄÀý×Ó¡£¡¡¡¡
¼¼ÇÉ4¡­14¡¡×Ó³ÌÐòºÍº¯Êý£ºÄãÓ¦¸ÃʹÓÃÄĸö£¿¡¡¡¡
´´½¨×Ó³ÌÐòµÄʱºò£º¡¡¡¡
´´½¨º¯ÊýµÄʱºò£º¡¡¡¡

16¡£Ê¹ÓÃÖ÷¹ý³ÌºÍ×Ó¹ý³Ì¡¡¡¡

µ±Äã´óVBA³ÌÐòµÃÔ½À´Ô½´ó£¬ÒªºÜºÃµØά»¤Õâô¶àµÄ´úÂëÐÐÊǺÜÀ§Äѵġ£ÒªÈÃÄãµÄ³ÌÐòÈÝÒ×±àд¡¢¡¡
Àí½âºÍ¸Ä±ä£¬Äã¾ÍÓ¦¸ÃʹÓþ®¾®ÓÐÌõµÄ½á¹¹»¯³ÌÐò¡£ÈçºÎ´´½¨½á¹¹»¯³ÌÐò£¿ÄãÖ»Òª¼òµ¥µØ½«´óÎÊÌâ¡¡
·Ö³ÉһЩ¿ÉÒÔͬʱִÐеÄСÎÊÌâ¾ÍÐС£ÔÚVBAÖУ¬Äã¿ÉÒÔͨ¹ý´´½¨Ò»¸öÖ÷¹ý³ÌºÍÒ»¸ö»ò¶à¸ö×Ó¹ý³Ì¡¡
À´ÊµÏÖËü¡£ÒòΪÖ÷¹ý³ÌºÍ×Ó¹ý³Ì¶¼ÊÇ×Ó³ÌÐò£¬ËùÒÔÄ㶼¿ÉÒÔÓùؼü×ÖSub½«ËüÃÇÉùÃ÷¡£Ö÷¹ý³Ì¿ÉÒÔ¡¡
µ÷ÓÃËùÐèµÄ×Ó¹ý³Ì£¬²¢ÇÒ½«²ÎÊý´«µÝ¸øËüÃÇ¡£ËüÒ²¿ÉÒÔµ÷Óú¯Êý¡£ÏÂÃæµÄÀý×ÓÏÔʾ¹ý³ÌAboutUser¡£¡¡
¸Ã¹ý³ÌÒªÇóÓû§ÐÕºÍÃû£¬²¢ÇÒ½«ÐÕºÍÃû´ÓÈ«ÃûÖзÖÀë³öÀ´¡£×îºóµÄÓï¾äÏÔʾÓû§µÄÐÕ£¬ËæºóÊǶººÅ¡¡
ºÍÃû¡£ÄãÔÙ¶ÁÏÂÈ¥£¬¸Ã¹ý³Ì½«±»·Ö¸î³É¼¸¸öÈÎÎñ£¬ÒÔʾ·¶Ê¹ÓÃÖ÷¹ý³Ì£¬×Ó¹ý³ÌºÍº¯ÊýµÄ¸ÅÄî¡£¡¡¡¡
Sub¡¡AboutUser£¨£©¡¡¡¡¡¡
¡¡¡¡Dim¡¡fullName¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡Dim¡¡firstName¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡Dim¡¡lastName¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡Dim¡¡space¡¡As¡¡Integer¡¡¡¡¡¡
¡¡¡¡'get¡¡input¡¡from¡¡user¡¡´ÓÓû§»ñÈ¡ÐÅÏ¢¡¡¡¡
¡¡¡¡fullName¡¡=¡¡InputBox£¨¡¨Enter¡¡first¡¡and¡¡last¡¡name£º¡¨£©¡¡¡¡¡¡
¡¡¡¡'get¡¡first¡¡and¡¡last¡¡name¡¡strings¡¡»ñµÃÐÕºÍÃû×Ö·û´®¡¡¡¡
¡¡¡¡¡¡space¡¡=¡¡InStr£¨fullName£»¡¡¡¨¡¡¡¨£©¡¡¡¡¡¡
¡¡¡¡firstName¡¡=¡¡Left£¨fullName£»¡¡space¡¡¨C¡¡1£©¡¡¡¡¡¡
¡¡¡¡¡¡lastName¡¡=¡¡Right£¨fullName£»¡¡Len£¨fullName£©¡¡¨C¡¡space£©¡¡¡¡¡¡
¡¡¡¡'display¡¡last¡¡name£»¡¡first¡¡name¡¡ÏÔʾÐÕºÍÃû¡¡¡¡
¡¡¡¡MsgBox¡¡lastName¡¡&¡¡¡¨£»¡¡¡¨¡¡&¡¡firstName¡¡¡¡¡¡
End¡¡Sub¡¡¡¡¡¡
¹ý³ÌAboutUser¿ÉÒÔ·Ö¸îΪһЩϸСµÄÈÎÎñ¡£µÚÒ»¸öÈÎÎñ±ãÊÇ»ñÈ¡Óû§µÄÈ«Ãû£»ÏÂÒ»¸öÈÎÎñÔòÐèÒª¡¡
Ä㽫Óû§ÌṩµÄÊý¾Ý·Ö¸îΪÁ½¸ö×Ö·û´®£ºÐÕºÍÃû£¬ÕâЩÈÎÎñ¿ÉÒÔ½»¸ø²»Í¬µÄº¯Êý£¨ÀýÈ磺GetLast¡¡
ºÍGetFirst£©£»×îºóµÄÈÎÎñÊÇÏÔʾÖØÐÂÅÅÁеÄÐÕÃû×Ö·û´®ÐÅÏ¢¡£¼ÈÈ»ÄãÒѾ­ÖªµÀÁËÄãÓ¦¸Ã×¢ÖØÓÚÄÄ¡¡
ЩÈÎÎñ£¬ÎÒÃÇÏÖÔÚ¾ÍÀ´¿´¿´ÈçºÎÍê³Éÿ¸öÈÎÎñ¡£¡¡¡¡
1¡£¡¡¡¡ÔÚÄ㵱ǰµÄVBA¹¤³ÌÀïÃæÌí¼ÓÒ»¸öÄ£¿é£¬²¢ÖØÃüÃûΪSample9¡¡¡¡
2¡£¡¡¡¡ÔÚSample9Ä£¿é´°¿ÚÀïÃæÊäÈëÏÂÁйý³ÌAboutUserMaster£º¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡100¡¡

¡­¡¡Ò³Ãæ¡¡117¡­

Sub¡¡AboutUserMaster£¨£©¡¡¡¡¡¡
¡¡¡¡Dim¡¡first¡¡As¡¡String£»¡¡last¡¡As¡¡String£»¡¡full¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡Call¡¡GetUserName£¨full£©¡¡¡¡¡¡
¡¡¡¡first¡¡=¡¡GetFirst£¨full£©¡¡¡¡¡¡
¡¡¡¡¡¡last¡¡=¡¡GetLast£¨full£©¡¡¡¡¡¡
¡¡¡¡Call¡¡DisplayLastFirst£¨first£»¡¡last£©¡¡¡¡¡¡
End¡¡Sub¡¡¡¡
ÉÏÃæÏÔʾµÄÖ÷¹ý³Ìͨ¹ýµ÷ÓÃÊʵ±µÄ×Ó³ÌÐòºÍº¯ÊýÀ´¿ØÖƳÌÐòµÄÖ÷Á÷³Ì¡£¸ÃÖ÷¹ý³ÌÒÔ±äÁ¿ÉúÃü¿ªÊ¼£¬¡¡
µÚÒ»ÌõÓï¾äCall¡¡GetUserName¡¡£¨full£©µ÷ÓÃ×Ó¹ý³ÌGetUserName£¨¼ûµÚÈý²½£©²¢ÇÒ´«µÝ¸øÒ»²ÎÊý¡ª¡ª¡¡
±äÁ¿fullµÄÄÚÈÝ¡£¡¡¡¡
ÒòΪ±äÁ¿ÔÚÖ´Ðе÷ÓÃÓï¾ä֮ǰûÓи³ÓëÈκÎÖµ£¬ËùÒÔËüµÄÖµÊÇÒ»¸ö¿Õ×Ö·û´®£¨¡°¡¡¡±£©¡£×¢Ò⣬×Ó¹ý³Ì¡¡
µÄÃû³ÆÔÚCallÖ®ºó¡£¾¡¹ÜÄãÔÚµ÷Óùý³Ìʱ²¢Ã»ÓÐÒªÇóʹÓùؼü×ÖCall£¬µ«ÊÇ£¬ÄãÔÚµ÷ÓÃÒ»¸öÐèÒª²Î¡¡
ÊýµÄ¹ý³Ìʱ¾Í±ØÐëʹÓÃËü¡£²ÎÊýÁбí±ØÐë°üÀ¨ÔÚÀ¨ºÅÀïÃæ¡£¡¡¡¡
3¡£¡¡¡¡ÊäÈëÏÂÃæµÄGetUserName×Ó³ÌÐò£º¡¡¡¡
Sub¡¡GetUserName£¨fullName¡¡As¡¡String£©¡¡¡¡¡¡
¡¡¡¡fullName¡¡=¡¡InputBox£¨¡¨Enter¡¡first¡¡and¡¡last¡¡name£º¡¨£©¡¡¡¡¡¡
End¡¡Sub¡¡¡¡¡¡
¹ý³ÌGetUserNameʾ·¶ÁËÁ½¸ö·Ç³£ÖØÒªµÄVB±à³Ì¸ÅÄÈçºÎ´«µÝ²ÎÊý¸øÒ»×Ó³ÌÐòÒÔ¼°ÈçºÎ½«Öµ´Ó×Ó¡¡
³ÌÐò´«µÝ»Ø¸øÖ÷µ÷¹ý³Ì¡£¡¡¡¡
ÔÚÖ÷¹ý³Ì£¨¼ûµÚ¶þ²½£©ÖУ¬Äãµ÷ÓÃÁ˹ý³ÌGetUserName£¬²¢ÇÒ½«Æä×÷Ϊһ²ÎÊý´«µÝ£º±äÁ¿full¡£¸Ã¡¡
±äÁ¿±»²ÎÊýfullName½ÓÊÕ£¬¸Ã²ÎÊý×Ó¹ý³ÌGetUserNameµÄSubÓï¾äÀïÉùÃ÷ÁË¡£ÒòΪÔÚVBµ÷ÓÃ×Ó¹ý³Ì¡¡
GetUserNameµÄʱºò£¬±äÁ¿full°üº¬Ò»¿Õ×Ö·û´®£¬²ÎÊýfullNameͬÑùÒ²½ÓÊÕÁËÕâ¸ö¿Õ×Ö·û´®¡£µ±VB¡¡
ÏÔʾ¶Ô»°¿ò²¢ÇÒ»ñµÃÓû§µÄÐÕÃûʱ£¬Õâ¸öÐÕÃû½«¸³¸ø²ÎÊýfullName¡£¸³¸ø²ÎÊýµÄÖµ±»´«µÝ»Ø¸ø×Ó¹ý¡¡
³ÌÖ´ÐкóµÄÆ¥Åä²ÎÊý¡£Òò´Ë£¬µ±VB·µ»ØÖ÷¹ý³Ìʱ£¬±äÁ¿full¾Í»Ø°üº¬Óû§µÄÐÕÃû¡£¡¡¡¡
´«µÝ¸ø×Ó¹ý³ÌµÄ×Ô±äÁ¿½«±»Æä²ÎÊý½ÓÊÕ¡£×¢Ò⣬²ÎÊýÃû³Æ£¨fullName£©ºóÃæ½ô¸ú×ÅÊý¾ÝÀàÐ͵ÄÉùÃ÷¡¡
¡¡£¨As¡¡String£©¡£ËäÈ»£¬²ÎÊýµÄÊý¾ÝÀàÐͱØÐëºÍÏàÆ¥ÅäµÄ×Ô±äÁ¿µÄÊý¾ÝÀàÐÍÒ»Ö£¬µ«ÊÇ£¬²»Í¬µÄÃû³Æ¡¡
»¹ÊÇ¿ÉÒÔʹÓøøÒ»¸ö×Ô±äÁ¿ºÍËüÏàÓ¦µÄ²ÎÊý¡£¡¡¡¡
¼¼ÇÉ4¡­15¡¡×Ô±äÁ¿£¨Arguments£©ºÍ²ÎÊý£¨Parameters£©¡¡¡¡
4¡£¡¡¡¡ÊäÈëÏÂÊöº¯ÊýGetFirst£º¡¡¡¡
Function¡¡GetFirst£¨fullName¡¡As¡¡String£©¡¡¡¡¡¡
¡¡¡¡Dim¡¡space¡¡As¡¡Integer¡¡¡¡¡¡
¡¡¡¡¡¡space¡¡=¡¡InStr£¨fullName£»¡¡¡¨¡¡¡¨£©¡¡¡¡¡¡
¡¡¡¡GetFirst¡¡=¡¡Left£¨fullName£»¡¡space¡¡¡­¡¡1£©¡¡¡¡¡¡
End¡¡Function¡¡¡¡¡¡
Ö÷¹ý³ÌÖеĵڶþÌõÓï¾ä£¨¼ûµÚ¶þ²½£©first¡¡=¡¡GetFirst£¨full£©£¬½«±äÁ¿fullµÄÖµ´«µÝ¸øº¯ÊýGetFirst¡£¡¡
º¯ÊýµÄ²ÎÊýfullName½ÓÊÕµ½¸ÃÖµ¡£Òª´ÓÓû§ÌṩµÄÊý¾ÝÀï·Ö³öÐÕºÍÃû£¬Äã¾Í±ØÐëÕÒµ½ÐÕºÍÃûÖмäµÄ¡¡
¿Õ¸ñ¡£Òò´Ë£¬¸Ãº¯ÊýµÄ¿ªÍ·Êǵ±µØ±äÁ¿spaceµÄÉùÃ÷£¬ÏÂÌõÓï¾äÔòʹÓÃVBAÄÚÖú¯ÊýInStr·µ»Ø×Ö·û¡¡
´®fullNameÀï¿Õ¸ñ£¨¡°¡¡¡±£©µÄλÖá£È»ºó½«»ñµÃµÄÊý×Ö¸³Öµ¸ø±äÁ¿space¡£×îºó£¬Leftº¯ÊýÓÃÀ´ÌáÈ¡¡¡
×Ö·û´®fullName´Ó×óµ½Ä³Ìض¨¸öÊý£¨space¡¡¡­1£©µÄ×Ö·û¡£ÃûµÄ³¤¶È±È´¢´æÔÚ±äÁ¿spaceµÄÖµÉÙÒ»¸ö¡¡
×Ö·û¡£º¯ÊýµÄ½á¹û£¨Óû§µÄÃû£©¸³Öµ¸øº¯ÊýÃû¡£µ±VB·µ»ØÖ÷¹ý³Ìʱ£¬Ëü¾Í½«½á¹û·ÅÖÃÓÚ±äÁ¿first¡£¡¡¡¡
5¡£¡¡¡¡ÊäÈëÏÂÁк¯ÊýGetLast£º¡¡¡¡
Function¡¡GetLast£¨fullName¡¡As¡¡String£©¡¡¡¡¡¡
¡¡¡¡Dim¡¡space¡¡As¡¡Integer¡¡¡¡¡¡
¡¡¡¡¡¡space¡¡=¡¡InStr£¨fullName£»¡¡¡¨¡¡¡¨£©¡¡¡¡¡¡
¡¡¡¡GetLast¡¡=¡¡Right£¨fullName£»¡¡Len£¨fullName£©¡¡¡­¡¡space£©¡¡¡¡¡¡
End¡¡Function¡¡¡¡¡¡
Ö÷¹ý³ÌÀïÃæµÄµÚÈýÌõÓï¾ä¡¡£¨¼ûµÚ¶þ²½£©last¡¡=¡¡GetLast£¨full£©£¬½«±äÁ¿fullµÄÖµ´«µÝ¸øº¯ÊýGetLast¡£¡¡
¸Ãº¯ÊýµÄÄ¿µÄÊÇÌáÈ¡Óû§ÌṩµÄÊý¾ÝÖеÄÓû§µÄÐÕ¡£º¯ÊýGetLastʹÓÃÄÚÖú¯ÊýLenÀ´¼ÆËã×Ö·û´®¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡101¡¡

¡­¡¡Ò³Ãæ¡¡118¡­

fullNameµÄ×Ü×Ö·ûÊý¡£º¯ÊýRightÌáÈ¡×Ö·û´®fullName´ÓÓÒ±ßij¸öÌض¨×Ö·û¿ªÊ¼£¨Len£¨fullName£©¡¡¨C¡¡¡¡
space£©µÄ×Ö·û¡£È»ºó£¬»ñµÃµÄ×Ö·û´®¸³Öµ¸øº¯ÊýÃû³Æ£¬Ò»µ©·µ»ØÖ÷¹ý³Ì£¬Ëü¾Í´¢´æÓÚ±äÁ¿last¡£¡¡¡¡
6¡£¡¡¡¡ÊäÈëÏÂÊö×Ó¹ý³ÌDisplayLastFirst£º¡¡¡¡
Sub¡¡DisplayLastFirst£¨firstName¡¡As¡¡String£»¡¡lastName¡¡As¡¡String£©¡¡¡¡¡¡
¡¡¡¡MsgBox¡¡lastName¡¡&¡¡¡¨£»¡¡¡¨¡¡&¡¡firstName¡¡¡¡¡¡
End¡¡Sub¡¡¡¡¡¡
Ö÷¹ý³ÌÀïÃæµÄµÚËÄÌõÓï¾ä£¨¼ûµÚ¶þ²½£©Call¡¡DisplayLastFirst£¨first£»¡¡last£©£¬µ÷ÓÃ×Ó¹ý³Ì¡¡
DisplayLastFirst²¢ÇÒ½«Á½¸ö×Ô±äÁ¿£ºfirstºÍlast¡£ÎªÁ˽ÓÊÕÕâЩ×Ô±äÁ¿£¬×Ó¹ý³Ì¡¡
DisplayLastFirstºÍÁ½¸öÏàÆ¥ÅäµÄ²ÎÊý£¨firstNameºÍlastName£©Ò»Æð±»ÉùÃ÷ÁË¡£»ØÏëÎÒÃÇÇ°Ãæ˵¡¡
¹ý£¬²»Í¬µÄÃû³Æ¿ÉÒÔÓÃÔÚ×Ô±äÁ¿ºÍÏàÓ¦µÄ²ÎÊýÉÏ¡£È»ºó×Ó¹ý³ÌDisplayLastFirstÏÔʾÓû§µÄÐÕ£¬¶º¡¡
ºÅ£¬ºÍÃû¡£¡¡¡¡
¼¼ÇÉ4¡­16¡¡Ê¹ÓÃ×Ó¹ý³ÌµÄºÃ´¦¡¡¡¡

17¡£½ÓÏÂÀ´¡­¡­¡¡¡¡

ÔÚ±¾ÕÂÀÄãѧϰÁË×Ó¹ý³ÌºÍº¯ÊýÖ®¼äµÄÇø±ð£º×Ó¹ý³ÌÖ´ÐвÙ×÷£»º¯Êý·µ»ØÊýÖµ¡£¶øÇÒÄã¿ÉÒÔͨ¹ý¡¡
¼ÖÆ»òÕßÊäÈëÀ´´´½¨×Ó¹ý³Ì£¬º¯ÊýÔò²»¿ÉÒÔ¼ÖÆ£¬ÒòΪËüÃÇ¿ÉÄÜÐèÒª²ÎÊý£¬Äã±ØÐëÊÖ¶¯ÊäÈë¡£Äã¿´¡¡
µ½ÁË´Ó¹¤×÷±í»òÕßÆäËûVB¹ý³Ìµ÷Óõĺ¯ÊýʵÀý¡£¡¡¡¡
ÄãѧϰÁËÈçºÎ¸øº¯Êý´«µÝ×Ô±äÁ¿£¬¾ö¶¨º¯Êý½á¹ûµÄÊý¾ÝÀàÐÍ¡£ÄãÔÚÄãµÄVBA¹Ø¼ü×ÖµÄϵͳÀïÔö¼ÓÁË¡¡
ByVal£¬ByRefºÍOptionalµÈ¹Ø¼ü×Ö¡£ÄãÒ²¿´µ½ÈçºÎ½«ÎÊÌâ·Ö¸îΪ¸üС¸ü¼òµ¥µÄÈÎÎñ£¬ÒÔʹÄãµÄ³ÌÐò¡¡
¸üÈÝÒ×Àí½â¡£×îºó£¬ÄãѧϰÁË×Ó¹ý³ÌÈçºÎÔÚ²ÎÊýµÄ°ïÖúÏ£¬½«ÊýÖµ´«µÝ»Øµ½Ö÷µ÷¹ý³Ì¡£¡¡¡¡
¹ýÁ˱¾Õºó£¬ÄãÓ¦¸ÃÄܹ»´´½¨ÊʺÏÄãÌض¨ÐèÒªµÄÄã×Ô¼ºµÄ×Ô¶¨Ò庯ÊýÁË¡£ÄãÓ¦¸Ã¿ÉÒÔͨ¹ýʹÓá¡
MsgBoxºÍInputBoxº¯ÊýÇáËɵغÍÓû§»¥¶¯¡£µÚÎåÕŽ«½éÉܳÌÐò¾ñÔñ£¬Ä㽫ѧϰÈçºÎ»ùÓÚÄãÌṩµÄÇé¡¡
Ðνá¹û¸Ä±äÄãµÄVBA¹ý³ÌµÄ·½Ïò¡£¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡µÚÎåÕ¡¡»ùÓÚ¡¡VBA¡¡×ö¾ö¶¨¡¡¡¡

×÷ÕߣºJulitta¡¡Korol¡¡¡¡¡¡¡¡¡¡¡¡·­Ò룺Tiger¡¡Chen¡¡Jan¡¡16¡¯¡¡2005¡¡¡¡
ÎÒÃÇÿÌìÒª×÷³ÉǧÉÏÍò¸ö¾ö¶¨£¬ÓÐЩ¾ö¶¨ÊÇ×Ô·¢µÄ£¬ÎÒÃÇ×Ô¶¯µØ×÷³öÁËÕâЩ¾ö¶¨£¬¶ø²»ÐèҪͣÏÂÀ´¡¡
È¥Ïë¡£ÆäËüµÄ¾ö¶¨ÔòÐèÒªÎÒÃÇÊÂÏÈÁ½¸ö»òÕßÁ½¸öÒÔÉϵÄÑ¡ÔñÉõÖÁ¼Æ»®ºÃ¼
СÌáʾ£º°´ »Ø³µ [Enter] ¼ü ·µ»ØÊéÄ¿£¬°´ ¡û ¼ü ·µ»ØÉÏÒ»Ò³£¬ °´ ¡ú ¼ü ½øÈëÏÂÒ»Ò³¡£ ÔÞһϠÌí¼ÓÊéÇ©¼ÓÈëÊé¼Ü