ÓÑÇéÌáʾ£ºÈç¹û±¾ÍøÒ³´ò¿ªÌ«Âý»òÏÔʾ²»ÍêÕû£¬Çë³¢ÊÔÊó±êÓÒ¼ü¡°Ë¢Ð¡±±¾ÍøÒ³£¡ÔĶÁ¹ý³Ì·¢ÏÖÈκδíÎóÇë¸æËßÎÒÃÇ£¬Ð»Ð»£¡£¡ ±¨¸æ´íÎó
·É¶ÁÖÐÎÄÍø ·µ»Ø±¾ÊéĿ¼ ÎÒµÄÊé¼Ü ÎÒµÄÊéÇ© TXTÈ«±¾ÏÂÔØ ½øÈëÊé°É ¼ÓÈëÊéÇ©

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

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



µ±Ç°»î¶¯µÄ¹¤×÷²¾´æÅÌΪNewChap¡£xls¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ActiveWorkbook¡£SaveAs¡¡Filename£º=¡¨NewChap¡£xls¡¨¡¡
¹Ø±ÕµÚÒ»¸ö¹¤×÷²¾¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Workbooks£¨1£©¡£Close¡¡¡¡
¹Ø±Õµ±Ç°»î¶¯µÄ¹¤×÷²¾£¬²»±£´æ±ä»¯¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ActiveWorkbook¡£Close¡¡SaveChanges£º=False¡¡¡¡
¹Ø±ÕËùÓдò¿ªµÄ¹¤×÷²¾¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Workbooks¡£Close¡¡¡¡
¡¡¡¡
Èç¹ûÄãÔËÐÐÁË×îºóÒ»¸öÀý×Ó£¬ÄÇôÏÖÔÚÄãËùÓеŤ×÷²¾¶¼ÒѾ­¹Ø±ÕÁË¡£ÔÚÄãÒªÔÚ¹¤×÷±íÉÏʹÓÃÇ°£¬¡¡
ÇëÈ·±£ÏÈ´ò¿ªÒ»¸öй¤×÷²¾¡£µ±Äã³ýÁ˵¥¸ö¹¤×÷±íʱ£¬Äã±ØÐëÖªµÀÈçºÎÔÚ¹¤×÷²¾ÀïÌí¼ÓÐµĹ¤×÷±í£¬¡¡
ÖªµÀÈçºÎÑ¡ÔñÒ»¸ö»òÒ»×鹤×÷±í£¬ÖªµÀÈçºÎÃüÃû¡¢¸´ÖÆ¡¢Òƶ¯ºÍɾ³ý¹¤×÷±í¡£ÔÚVBÀÿ¸öÈÎÎñ¶¼¡¡
ÐèÒªÒ»¸öרÃŵķ½·¨»òÊôÐÔ¡£¡¡¡¡
VBA²Ù×÷¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á¢¼´´°¿ÚÊäÈë¡¡¡¡
Ìí¼ÓÒ»¸öй¤×÷±í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Worksheets¡£Add¡¡¡¡
»ñµÃµÚÒ»¸ö¹¤×÷±íµÄÃû³Æ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿Worksheets£¨1£©¡£Name¡¡¡¡
Ñ¡ÔñÃûΪ¡°Sheet3¡±µÄ¹¤×÷±í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Worksheets£¨3£©¡£Select¡¡¡¡
Ñ¡ÔñµÚÒ»£¬µÚÈýºÍµÚËĸö¹¤×÷±í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Worksheets£¨Array£¨1£»3£»4£©£©¡£Select¡¡¡¡
¼¤»îÃûΪ¡°Sheet1¡±µÄ¹¤×÷±í¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Worksheets£¨¡°Sheet1¡±£©¡£Activate¡¡¡¡
½«¹¤×÷±í¡°Sheet2¡±Òƶ¯µ½¹¤×÷±í¡°Sheet1¡±¡¡Worksheets£¨¡¨Sheet2¡¨£©¡£Move¡¡¡¡
֮ǰ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Before£º=Worksheets£¨¡¨Sheet1¡¨£©¡¡¡¡
ÖØÃüÃû¹¤×÷±í¡°Sheet2¡±Îª¡°Expenses¡±¡¡¡¡¡¡¡¡¡¡¡¡Worksheets£¨¡¨Sheet2¡¨£©¡£Name¡¡=¡¡¡¨Expenses¡¨¡¡¡¡
»ñµÃµ±Ç°¹¤×÷²¾ÀïµÄ¹¤×÷±íÊýÄ¿¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿Worksheetsunt¡¡¡¡
ɾ³ýµ±Ç°¹¤×÷²¾ÀïµÄ¹¤×÷±í¡°Expenses¡±¡¡¡¡¡¡¡¡¡¡¡¡Worksheets£¨¡¨Expenses¡¨£©¡£Delete¡¡¡¡
¡¡¡¡
×¢ÒâSelect·½·¨ºÍActivate·½·¨Ö®¼äµÄÇø±ð£º¡¡¡¡
¡¡¡¡¡¡¡¡Í¬Ê±Ö»ÄÜÓÐÒ»¸ö¹¤×÷±í±»¼¤»î¡£¡¡¡¡
¼¼ÇÉ2£­7£ºSheets£¨ÒëÕß¼ò³ÆΪ¡°±í¡±£©¶ø²»ÊÇWorksheets£¨ÒëÕß¼ò³ÆΪ¡°¹¤×÷±í¡±£©¡¡¡¡
³ýÁ˹¤×÷±íÖ®Í⣬¹¤×÷²¾¼¯ºÏÀﻹ°üÀ¨Í¼±í¡£Ê¹ÓÃAdd·½·¨ÔÚ¹¤×÷²¾ÀïÌí¼ÓÒ»¸öÐÂͼ±í£º¡¡¡¡
Charts¡£Add¡¡¡¡
ͳ¼Æͼ±íÊýÄ¿£¬Ê¹Ó㺡¡¡¡
£¿Chartsunt¡¡¡¡
ÔÚExcel¡¡97֮ǰµÄ°æ±¾ÖУ¬¹¤×÷²¾¼¯ºÏÀï°üÀ¨Á½ÖÖ¶îÍâµÄ±í£ºDialogSheetsºÍModules¡£Dialogs¡¡
ÒѾ­±»¸üÇ×ÇеÄÓû§´°Ì壨UserForms£©ËùÈ¡´úÁË¡£´ÓExcel¡¡97¿ªÊ¼£¬¶Ô»°¿òºÍÄ£¿é¶¼±»´´½¨ÔÚVB¡¡
±à¼­Æ÷´°¿ÚÀïÃæÁË¡£¡¡¡¡

37¡¡²Ù×÷´°¿Ú£¨Windows£©¡¡¡¡

µ±Ôںü¸¸öExcel¹¤×÷²¾ÉϹ¤×÷£¬²¢ÇÒÐèÒª±È½Ï»òÕß¹®¹ÌÊý¾Ý£¬»òµ±ÄãÏëÒª¿´Í¬Ò»¸ö¹¤×÷±íÀïµÄ²»¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡67¡¡

¡­¡¡Ò³Ãæ¡¡84¡­

ͬ²¿·Öʱ£¬ÄãºÜ¿ÉÄÜÒªÓõ½Excel¡°´°¿Ú¡±²Ëµ¥ÀïµÄÑ¡Ïн¨´°¿ÚºÍÖØÅÅ´°¿Ú¡£ÎÒÃÇÀ´¿´¿´ÈçºÎ¡¡
ͨ¹ýVBAÀ´°²ÅÅ´°¿Ú¡£¡¡¡¡
VBA²Ù×÷¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á¢¼´´°¿ÚÊäÈë¡¡¡¡
ÔÚд°¿ÚÀïÏÔʾµ±Ç°»î¶¯¹¤×÷²¾¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ActiveWorkbook¡£NewWindow¡¡¡¡
ÔÚÆÁÄ»ÉÏÏÔʾËùÓдò¿ªÁ˵Ť×÷²¾¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Windows¡£Arrange¡¡¡¡
¼¤»îµÚ¶þ¸ö´°¿Ú¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Windows£¨2£©¡£Activate¡¡¡¡
»ñµÃµ±Ç°´°¿ÚµÄÃû³Æ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿ActiveWindow¡£Caption¡¡¡¡
½«µ±Ç°´°¿ÚµÄÃû³Æ¸ÄΪ¡°My¡¡Window¡±¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ActiveWindow¡£Caption¡¡=¡¡¡¨My¡¡Window¡¨¡¡¡¡
¡¡¡¡
µ±ÄãÔÚÆÁÄ»ÉÏÏÔʾ´°¿Úʱ£¬Äã¿ÉÒÔ¾ö¶¨ÈçºÎÅÅÁÐËüÃÇ¡£Arrange·½·¨ÓÐÐí¶à×Ô±äÁ¿£¬ÈÃÄãÈçºÎ·ÅÖá¡
´°¿ÚµÄ×Ô±äÁ¿³ÆΪArrangeStyle£¨ÅÅÁз½Ê½£©¡£Èç¹ûÄãºöÂÔArrangeStyle×Ô±äÁ¿£¬Excel½«Æ½ÆÌËùÓС¡
´°¿Ú¡£¡¡¡¡
¡¡¡¡
³£Êý¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Öµ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ÃèÊö¡¡¡¡
xlArrangeStyleTiled¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡1¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Æ½ÆÌ´°¿Ú£¨Ä¬ÈÏģʽ£©¡¡¡¡
xlArrangeStyleCascade¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡7¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡²ãµþ´°¿Ú¡¡¡¡
xlArrangeStyleHorizontal¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡2¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ë®Æ½²¢ÅÅ´°¿Ú¡¡¡¡
xlArrangeStyleVertical¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡3¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡´¹Ö±²¢ÅÅ´°¿Ú¡¡¡¡
¡¡¡¡
³ýÁËʹÓó£ÊýÃû³ÆÍ⣬ÄãÒ²¿ÉÒÔʹÓÃÉÏÃæÁгöµÄµÈ¼ÛÖµ¡£Òª½«ËùÓд°¿Ú²ãµþÆðÀ´£¬Ð´ÏÂÃæµÄÖ¸Áî¾Í¡¡
¿É£º¡¡¡¡
¡¡¡¡¡¡¡¡Windows¡£Arrange¡¡ArrangeStyle£º=xlArrangeStyleCascade¡¡¡¡
»òÕ߸ü¼òµ¥µã£º¡¡¡¡
¡¡¡¡¡¡¡¡Windows¡£Arrange¡¡ArrangeStyle£º=7¡¡¡¡¡¡

38¡¡¹ÜÀí¡¡Excel¡¡Ó¦ÓóÌÐò¡¡¡¡

ÔÚ±¾ÕµĿªÊ¼²¿·Ö£¬ÄãѧϰÁ˶ÔÏóÊÇ×éÖ¯ÔÚÒ»¸ö½Ð¶ÔÏóÄ£Ð͵ÄרÃŽṹ¡£ÔÚÓ¦ÓóÌÐòµÄ¶ÔÏóÄ£Ð͵ġ¡
×îÉÏÃæ¾ÍÊÇÓ¦ÓóÌÐòËü±¾Éí¡£Í¨¹ý¿ØÖÆApplication¶ÔÏó£¬Äã¿ÉÒÔ½øÐкܶà²Ù×÷£¬ÀýÈ罫ÆÁÄ»ÏÔʾ¡¡
Ч¹û±£´æΪµ±ÈÕ×îºóÏÔʾµÄЧ¹û£¬»òÕßÍ˳ö¸ÃÓ¦ÓóÌÐò¡£ÄãÖªµÀ£¬ExcelÔÊÐíÄãʹÓá°Îļþ¡±²Ëµ¥¡¡
ÀïµÄÑ¡Ïî¡°±£´æ¹¤×÷Çø¡±À´±£´æÆÁÄ»É趨¡£ÔÚVBAÀï¿ÉÒÔºÜÈÝÒ×µØÍê³É±£´æ¹¤×÷ÇøµÄ¹¤×÷£º¡¡¡¡
¡¡¡¡¡¡¡¡Application¡£SaveWorkspace¡¡¡¨Project¡¨¡¡¡¡
ÉÏÃæµÄÖ¸ÁÆÁÄ»ÉèÖñ£´æÔÚÃû½Ð¡°Project¡±µÄ¹¤×÷ÇøÀϴÎÄãÒªÔÚÏàͬµÄÎļþºÍ´°¿ÚÅÅÁÐʱ£¬¡¡
Ö»Òª´ò¿ª¡°Project¡±Îļþ£¬Excel¾Í»á´ò¿ªÕýÈ·µÄÎļþºÍ»Ö¸´ÄãÒªµÄÆÁÄ»¡£¡¡¡¡
VBA²Ù×÷¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á¢¼´´°¿ÚÊäÈë¡¡¡¡
»ñÈ¡µ±Ç°Ó¦ÓóÌÐòÃû³Æ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿Application¡£Name¡¡¡¡
½«ExcelÓ¦ÓóÌÐò±êÌâ¸ÄΪ¡°My¡¡Application¡±¡¡Application¡£Caption¡¡=¡¡¡¨My¡¡Application¡¨¡¡¡¡
½«ExcelÓ¦ÓóÌÐò±êÌâ¸Ä»ØΪ¡°Microsoft¡¡¡¡Application¡£Caption¡¡=¡¡¡¨Microsoft¡¡Excel¡¨¡¡¡¡
Excel¡±¡¡¡¡
»ñÈ¡ÄãÕýÔÚʹÓõIJÙ×÷ϵͳ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿Application¡£OperatingSystem¡¡¡¡
»ñÈ¡¸ÃÓ¦ÓóÌÐò×¢²áµÄÈËÃû»ò¹«Ë¾Ãû¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿ApplicationanizationName¡¡¡¡
»ñÈ¡Excel¡£exe±£´æµÄÎļþ¼Ð·¾¶¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£¿Application¡£Path¡¡¡¡
Í˳öExcel¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Application¡£Quit¡¡¡¡
¡¡¡¡

39¡¡½ÓÏÂÀ´¡­¡­¡¡¡¡

ÔÚ±¾Õ£¬ÄãѧϰÁ˺ܶà»ù´¡µÄVBAÊõÓïºÍÄÚÖù¤¾ß£¬¿ÉÒÔÓÃÀ´Ê¹ÄãµÄ³ÌÐò±àдºÍµ÷ÊÔ¸üÈÝÒס£ÄãÏÖ¡¡
ÔÚÓ¦¸Ã¶Ô¾ø´ó¶àÊýExcel¶ÔÏóÊÇÈçºÎ×éÖ¯ºÍ¿ØÖƵÄÓÐÁËÒ»¸ö±È½ÏºÃµÄÁ˽⡣ÎÒŬÁ¦Ê¹ÃèÊö¾¡Á¿ÉÙ£¬¡¡
²¢ÇÒ×¢ÖØÓÚ½ÌÄãÈçºÎʹÓÃÄãµÄÐÂÓïÑÔ¼¼ÇÉÁ¢¼´¿ØÖÆExcel¶ø²»±ØÏȱàд¹ý³Ì¡£ÕýÒòΪ´Ë£¬ÎÒ×¢ÖØÓÚ¡¡
Á¢¼´´°¿Ú¡£VB¹ý³Ìͨ³£°üº¬¶àÓÚÒ»ÐеĴúÂ룬ÊÂʵÉÏ£¬ËüÃÇ¿ÉÄܱäµÃºÜ¸´ÔÓ¡£ÔÚÄ㿪ʼ´´½¨ÍêÕûµÄ¡¡
VBA¹ý³Ì֮ǰ£¬ÄãÈÔÈ»ÐèҪѧϰһЩÊÂÇé¡£ÀýÈ磬ÄãÈçºÎ±£´æÄ¿Ç°Excel·µ»ØµÄÐÅÏ¢£¬ÄãµÄ¹ý³ÌÉÔºó¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡68¡¡

¡­¡¡Ò³Ãæ¡¡85¡­

¿ÉÒÔʹÓã¿ÔÚÁ¢¼´´°¿ÚÀïÊäÈëÖ¸ÁîµÄʱºò£¬ÄãѧϰÁËÈçºÎÎÊExcelһЩÖØÒªµÄÐÅÏ¢£¬ÄãµÃµ½ÁËÀàËÆ¡¡
¡¡¡°µ±Ç°»î¶¯¹¤×÷²¾ÀïÓжàÉÙ¹¤×÷±í£¿¡±»ò¡°µ¥Ôª¸ñA4µÄÄÚÈÝÊÇʲô£¿¡±ÎÊÌâµÄ´ð°¸¡£Excel²»»áÔÚ¡¡
ºõÄãµÄÎÊÌâÓжàô·³£¬Ö»ÒªÄãÊäÈë·ûºÏÑϸñVBAÓï·¨µÄÎÊÌ⣬Excel¾Í»á¸øÄã´ð°¸¡£µ±Ä㿪ʼ±àдÄã¡¡
×Ô¼ºµÄ¹ý³Ìʱ£¬Äã»áÐèÒªÖªµÀÈçºÎ±£´æExcelµÄ´ð°¸¡£ÔÚÏÂÕÂÀÄ㽫ѧϰÈçºÎ±£´æÕâÖÖÒÔºó±äÁ¿¡¡
ÐèÒªÓõ½µÄÐÅÏ¢¡£ÄãÒ²½«»áÕ¹¿ªÊý¾ÝÀàÐͺͳ£ÊýÖ÷ÌâµÄѧϰ¡£¡¡¡¡

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡µÚÈýÕ¡¡Á˽â±äÁ¿£¬Êý¾ÝÀàÐͺͳ£Á¿¡¡¡¡

×÷ÕߣºJulitta¡¡Korol¡¡¡¡¡¡¡¡¡¡¡¡¡¡·­Ò룺Tiger¡¡Chen¡¡Dec¡¡18¡¯¡¡2004¡¡¡¡
¾ÍÏóÏÖʵÉú»îÖÐÒ»Ñù£¬±à³ÌÖÐÒ²ÊÇÓÐЩÊÂÇé±ØÐëÂíÉÏ×ö£¬¶øÆäËüµÄÊÂÇé¿ÉÒÔÉÔºó½øÐС£µ±ÄãÍƳÙÒ»¡¡
¼þÊÂÇ飬Äã¿ÉÒÔ½«Ëü·ÅÈëÄãÐÄÀïµÄ»òÖ½Éϵġ°Òª×öµÄÊÂÇ顱Çåµ¥¡£Çåµ¥ÉÏÁãÁãɢɢµÄÊÂÇ飬¾­³£°´¡¡
ÕÕËüÃÇÀàÐÍ»òÕßÖØÒªÐÔÀ´·ÖÀà¡£µ±Ä㽫ÈÎÎñ½»¸ø±ðÈË»òÕß×îÖÕÄãÒª¿ªÊ¼×öÁË£¬ÄãÐèÒª½«¸ÃÈÎÎñ´ÓÇå¡¡
µ¥Àï»®µô¡£±¾Õ½«ÑÝʾÄãµÄVBA¹ý³ÌÈçºÎ¼ÇסһЩÖØÒªµÄÐÅÏ¢£¬ºóÃ潫ÓÃÔÚÄãµÄÓï¾ä»ò¼ÆËãÀï¡£Äã¡¡
½«Ñ§Ï°¹ý³ÌÈçºÎ±£Áô²»¶ÏµØÍù±äÁ¿ÊäÈë¡°Òª×öµÄÊÂÇ顱£¬ÈçºÎÉùÃ÷±äÁ¿£¬ÒÔ¼°ËüÃǺÍÊý¾ÝÀàÐͼ°³£¡¡
Á¿ÓкιØϵ¡£¡¡¡¡

1¡¡±£´æ¡¡VBA¡¡Óï¾äµÄ½á¹û¡¡¡¡

ÔÚµÚ¶þÕ£¬ÄãÔÚÁ¢¼´´°¿ÚÉÏÊäÈëһЩVBÖ¸Á²¢ÇÒ·µ»ØһЩÐÅÏ¢¡£ÀýÈ磬µ±ÄãÊäÈ룿Cellsunt£¬¡¡
Äã·¢ÏÖ¹¤×÷±íÀïÓÐ16£»777£»216¸öµ¥Ôª¸ñ¡£È»¶ø£¬µ±ÄãÔÚÁ¢¼´´°¿ÚÖ®ÍâµÄµØ·½Ð´VB¹ý³Ìʱ£¬Äã²»ÄÜʹ¡¡
ÓÃÎʺš£µ±ÄãºöÂÔÎʺÅÊäÈëCellsunt£¬VB²»»áͻȻͣÏÂÀ´¸æËßÄãÕâ¸öÖ¸ÁîµÄ½á¹û¡£Èç¹ûÄãÏëÒª¡¡
ÖªµÀij¸öÖ¸ÁîÖ´ÐкóµÄ½á¹û£¬Äã¾Í±ØÐë¸æËßVB¼ÇסËü¡£ÔÚ±à³ÌÖУ¬VBÖ¸Áî·µ»ØµÄ½á¹û¿ÉÒÔ¸³Öµ¸ø±ä¡¡
Á¿¡£¡¡¡¡

2¡¡±äÁ¿ÊÇʲô¡¡¡¡

±äÁ¿ÊÇÒ»¸ö¼òµ¥µÄÓÃÀ´ÒýÓÃÒ»ÌõÊý¾ÝµÄÃû³Æ¡£Äãÿ´ÎÏëÒª¼Çסһ¸öVBAÖ¸ÁîµÄ½á¹ûʱ£¬¿¼ÂÇÓÃÒ»¸ö¡¡
Ãû³ÆÀ´´ú±íËü¡£ÀýÈ磬Èç¹ûÄã±ØÐëÓÃÊý×Ö16£»777£»216À´ÌáÐÑÄ㹤×÷±íÖеÄ×ܵ¥Ôª¸ñÊýÄ¿£¬Äã¿ÉÒÔʹ¡¡
ÓÃÒ»¸öÃû³Æ£¬ÈçAllCells£¬NumOfCells£¬TotalCells£¬µÈµÈÀ´´úÌæ¡£±äÁ¿Ãû³ÆÀï¿ÉÒÔ°üº¬×Öĸ£¬Êý¡¡
×ÖºÍһЩ±êµã·ûºÅ£¬³ýÁËÏÂÃæÕâЩ֮Í⣻¡¡#¡¡¡¡£¥¡¡&¡¡@¡¡£¡¡¡¡¡
±äÁ¿µÄÃû³Æ²»¿ÉÒÔÒÔÊý×Ö¿ªÊ¼£¬Ò²²»¿ÉÒÔº¬Óпոñ¡£Èç¹ûÄãÏëÔÚ±äÁ¿Ãû³ÆÀï°üº¬¶àÓÚÒ»¸ö´ÊÓ¿É¡¡
ÒÔʹÓÃÏ»®Ïß¡£ËäÈ»±äÁ¿Ãû³Æ×î¶à¿ÉÒÔ°üº¬254¸ö×Öĸ£¬µ«ÊÇ£¬Äã×îºÃʹÓö̶ø¼òµ¥µÄ±äÁ¿Ãû³Æ¡£¡¡
ʹÓöÌÃû³Æ½«»á½ÚÊ¡ÄãµÄÊäÈëʱ¼ä£¬Èç¹ûÄãÐèÒªÔÚÄãµÄVB¹ý³ÌÀï¶à´ÎÒýÓøñäÁ¿µÄ»°¡£VB²»¹ÜÄãÔÚ¡¡
±äÁ¿Ãû³ÆÀïʹÓôóд×Öĸ»¹ÊÇСд×Öĸ£¬È»¶ø£¬´ó¶àÊý±à³ÌÕßʹÓÃСд×Öĸ£¬²¢ÇÒµ±±äÁ¿Ãû³Æ°üÀ¨¡¡
Ò»¸ö»ò¶à¸ö´ÊÓïʱ£¬ËûÃÇʹÓñêÌâ×Öĸ£¬ÄǾÍÊÇ£¬ÏóÏÂÃæÕâÑù£¬ËûÃǽ«Ã¿¸ö´ÊÓï´ÊÍ·´óд£º¡¡
NumOfCells£¬First_Name¡££¨ÒëÕߣºÖÐÎÄÒ²¿ÉÒÔ×öΪ±äÁ¿Ãû³ÆʹÓ㬵«Ê
·µ»ØĿ¼ ÉÏÒ»Ò³ ÏÂÒ»Ò³ »Øµ½¶¥²¿ ÔÞ£¨1£© ²È£¨1£©
δÔĶÁÍꣿ¼ÓÈëÊéÇ©ÒѱãÏ´μÌÐøÔĶÁ£¡
ÎÂÜ°Ìáʾ£º ο´Ð¡ËµµÄͬʱ·¢±íÆÀÂÛ£¬Ëµ³ö×Ô¼ºµÄ¿´·¨ºÍÆäËüС»ï°éÃÇ·ÖÏíÒ²²»´íŶ£¡·¢±íÊéÆÀ»¹¿ÉÒÔ»ñµÃ»ý·ÖºÍ¾­Ñé½±Àø£¬ÈÏÕæдԭ´´ÊéÆÀ ±»²ÉÄÉΪ¾«ÆÀ¿ÉÒÔ»ñµÃ´óÁ¿½ð±Ò¡¢»ý·ÖºÍ¾­Ñé½±ÀøŶ£¡