excel_vba_±à³Ì½Ì³Ì(ÍêÕû°æ)-µÚ60²¿·Ö
°´¼üÅÌÉÏ·½Ïò¼ü ¡û »ò ¡ú ¿É¿ìËÙÉÏÏ·ҳ£¬°´¼üÅÌÉ쵀 Enter ¼ü¿É»Øµ½±¾ÊéĿ¼ҳ£¬°´¼üÅÌÉÏ·½Ïò¼ü ¡ü ¿É»Øµ½±¾Ò³¶¥²¿£¡
¡ª¡ª¡ª¡ªÎ´ÔĶÁÍꣿ¼ÓÈëÊéÇ©ÒѱãÏ´μÌÐøÔĶÁ£¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨work/home/school¡±¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡With¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡'select¡¡the¡¡first¡¡element¡¡in¡¡the¡¡bo¡¡box¡¡Ñ¡Ôñ¸´ºÏ¿òµÚÒ»¸öÏîÄ¿¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£cboxWhereUsed¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡'select¡¡the¡¡first¡¡element¡¡in¡¡the¡¡list¡¡box¡¡Ñ¡ÔñÁбí¿òµÄµÚÒ»¸öÏîÄ¿¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£lboxSystems¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡'load¡¡a¡¡picture¡¡file¡¡for¡¡the¡¡Hardware¡¡option¡¡ÉÏÔØHardwareÑ¡ÏîµÄͼƬÎļþ¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£picImage¡£Picture¡¡=¡¡LoadPicture£¨¡¨C£ºcd¡£bmp¡¨£©¡¡¡¡¡¡
¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡Äã¿ÉÒÔʹÓùؼü×ÖMe´úÌæ´°ÌåµÄʵ¼ÊÃû³ÆÀ´¼ò»¯Ê¼þ¹ý³Ì´úÂ룬ÀýÈ磬³ýÁËʹÓÃÓï¾ä£º¡¡¡¡
¡¡¡¡¡¡¡¡InfoSurvey¡£cboxWhereUsed¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡Ö®Í⣬ÄãÒ²¿ÉÒÔʹÓÃÏÂÃæµÄÓï¾ä£¬½ÚÔ¼´ò×Öʱ¼ä£º¡¡¡¡
¡¡¡¡¡¡Me¡£cboxWhereUsed¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡ÌرðÊǵ±´°ÌåÃû³ÆºÜ³¤Ê±£¬ÕâÖÖ¼¼ÊõºÜÓÐÓá£×¢Ò⣬Áбí¿òµÄµÚÒ»¸ö³ÉÔ±µÄË÷ÒýºÅΪ0£¬Òò´Ë£¬¡¡
¡¡¡¡¡¡Èç¹ûÏëҪѡÔñÁбíÀïµÄµÚ¶þ¸öÏîÄ¿µÄ»°£¬Äã¾Í±ØÐëÉèÖÃÆäListIndexÊôÐÔΪ1¡£¡¡¡¡
¡¡¡¡¡¡¸Ã¹ý³Ì½áÊøʱ¸øͼÏñ¿Ø¼þÉÏÔØͼƬ£¬ÇëÈ·±£¸ÃÖ¸¶¨µÄͼƬÎļþ¿ÉÒÔÔÚÖ¸¶¨µÄÎļþ¼ÐÀïÕÒµ½¡£Èç¡¡
¡¡¡¡¡¡¹ûÄãûÓиÃÎļþ£¬ÄÇôÊäÈëÄãÏëÏÔʾµÄͼƬÎļþµÄÍêÕû·¾¶¡£¡¡¡¡
¡¡¡¡¡¡¹ý³ÌUserForm_Initializeµ÷ÓÃÍⲿ¹ý³Ì£¨ListHardware£©ÓÃÓ²¼þ³ÉÔ±À´Ìî³äËüµÄÁбí¿ò¿Ø¼þ¡£¡¡¡¡
5¡£¡¡¼¤»îShowSurveyÄ£¿é²¢ÇÒÊäÈë¹ý³ÌListHardware£¬ÈçÏÂËùʾ£º¡¡¡¡
¡¡¡¡¡¡Sub¡¡ListHardware£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡With¡¡InfoSurvey¡£lboxSystems¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨CD¡ROM¡¡Drive¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Printer¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Fax¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡202¡¡
¡¡¡Ò³Ãæ¡¡219¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Network¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Joystick¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Sound¡¡Card¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Graphics¡¡Card¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Modem¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Monitor¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Mouse¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Zip¡¡Drive¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Scanner¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡With¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¼ÈÈ»ÄãÒѾ׼±¸ºÃÁËUserForm_Initialize¹ý³ÌºÍListHardware¹ý³Ì£¬ÄÇôÄã¿ÉÒÔÔËÐд°Ìå²é¿´¡¡
¡¡¡¡¡¡¡¡½á¹ûÁË¡£¡¡¡¡
6¡£¡¡ÔÚ¹¤×÷±íInfo¡¡Survey£¬Ê¹ÓÃSurvey°´Å¥À´Æô¶¯´°Ì壬´°ÌåÏÔʾºó£¬Óû§Ñ¡ÔñºÏÊʵÄÑ¡Ïî»òÕߵ㡡
¡¡¡¡¡¡¡¡»÷Cancel°´Å¥¡£µ±Óû§µã»÷SoftwareÑ¡Ïťʱ£¬ÏÂÃæµÄÁбí¿òÓ¦¸ÃÏÔʾ²»Í¬µÄÏîÄ¿£¬Í¬Ê±£¬¡¡
¡¡¡¡¡¡¡¡Í¼Ïñ¿Ø¼þÓ¦¸ÃÉÏÔØÒ»¸ö²»Í¬µÄͼƬ¡£ÏÂÒ»½Ú½«½âÊÍÈçºÎ±àдÕâЩʼþ¡£¡¡¡¡
30¡£±àд¹ý³ÌÌî³äÁбí¿ò¿Ø¼þ¡¡¡¡
ÔÚÇ°ÃæµÄ²¿·Ö£¬Äã×¼±¸ÁËListHardware¹ý³ÌÓÃHardware³ÉÔ±À´Ìî³älboxSystemsÁбí¿ò£¬Äã¿ÉÒÔʹ¡¡
ÓÃͬÑùµÄ·½·¨½«SoftwareÏîÄ¿ÉÏÔص½¸ÃÁбí¿ò¡£¡¡¡¡
1¡£¡¡¼¤»îShowSurveyÄ£¿é£¬²¢ÊäÈë¹ý³ÌListSoftware´úÂ룬ÈçÏÂËùʾ£º¡¡¡¡
¡¡¡¡¡¡¡¡Sub¡¡ListSoftware£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡With¡¡InfoSurvey¡£lboxSystems¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Spreadsheets¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Databases¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨CAD¡¡Systems¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Word¡¡Processing¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Finance¡¡Programs¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Games¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Accounting¡¡Programs¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Desktop¡¡Publishing¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Imaging¡¡Software¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£AddItem¡¡¡¨Personal¡¡Information¡¡Managers¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡With¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
31¡£±àд¹ý³Ì¿ØÖÆÑ¡Ïî°´Å¥¡¡¡¡
1¡£¡¡¼¤»î´°ÌåInfoSurvey£¬²¢Ë«»÷λÓÚMain¡¡Interest¿ò¼ÜÀïµÄSoftwareÑ¡Ïî°´Å¥¡¡¡¡
2¡£¡¡¡¡µ±´úÂë´°¿Ú³öÏÖoptSoft_Click¹ý³Ì¹¹¼ÜµÄʱºò£¬Ñ¡ÖиôúÂë²¢°´ÏÂDelete¼ü¡¡¡¡
3¡£¡¡µã»÷ÓÒÉϽǵĸ´ºÏ¿òÏòϼýÍ·£¬²¢ÇÒÑ¡ÔñChangeʼþ¹ý³Ì£¬VB½«»á×Ô¶¯ÎªÄãÊäÈëoptSoft_Change¡¡
¡¡¡¡¡¡¡¡¹ý³ÌµÄ¿ªÍ·ºÍ½áβ¡¡¡¡
4¡£¡¡ÊäÈëoptSoft_Change¹ý³Ì´úÂ룬ÏÔʾÈçÏ£º¡¡¡¡
¡¡¡¡¡¡¡¡Private¡¡Sub¡¡optSoft_Change£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£lboxSystems¡£Clear¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Call¡¡ListSoftware¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£lboxSystems¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£picImage¡£Picture¡¡=¡¡LoadPicture£¨¡¨C£ºBooks¡£bmp¡¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¹ý³ÌoptSoft_Change¿ªÊ¼Ê±£¬Ê¹ÓÃClear·½·¨½«Áбí¿òlboxSystemsµÄµ±Ç°³ÉÔ±ÁбíÇå³ý£¬ÏÂÒ»¡¡
¡¡¡¡¡¡¡¡ÌõÓï¾äµ÷ÓÃListSoftware¹ý³ÌÓÃÈí¼þ³ÉÔ±À´Ìî³äÁбí¿ò£¬»»¾ä»°Ëµ£¬µ±Óû§µã»÷Software°´Å¥¡¡
¡¡¡¡¡¡¡¡Ê±£¬³ÌÐò½«Ó²¼þ³ÉÔ±Çå³ýÈ»ºóÌí¼ÓÈí¼þ³ÉÔ±¡£Èç¹ûÄãÔÚÌí¼ÓгÉԱ֮ǰ£¬²»Çå³ýÁбí¿òµÄ»°£¬¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡203¡¡
¡¡¡Ò³Ãæ¡¡220¡
¡¡¡¡¡¡¡¡ÕâЩгÉÔ±¾Í»á¸½¼ÓÔÚµ±Ç°Çåµ¥ºóÃæ¡£Óï¾äMe¡£lboxSystems¡£ListIndex¡¡=¡¡0Ñ¡ÔñÁбíÀïµÄµÚÒ»¡¡
¡¡¡¡¡¡¡¡Ìõ³ÉÔ±¡£¸Ã¹ý³ÌÀïµÄ×îºóÒ»ÌõÓï¾äΪͼÏñ¿Ø¼þÉÏÔØͼƬÎļþ£¬ÇëÈ·±£»»ÉÏÄãµçÄÔÀïÓÐЧͼƬµÄ¡¡
¡¡¡¡¡¡¡¡ÍêÕû·¾¶¡£¡¡¡¡
¡¡¡¡¡¡¡¡ÒòΪÓû§ÔÚÑ¡ÔñSoftware°´Å¥Ö®ºó£¬»¹¿ÉÄÜÒªÖØÐÂÑ¡ÔñHardware°´Å¥£¬ËùÒÔ£¬Äã±ØÐë¸øoptHard¡¡
¡¡¡¡¡¡¡¡Ñ¡Ïî°´Å¥´´½¨Ò»¸öÀàËƵÄChangeʼþ¹ý³Ì¡£¡¡¡¡
5¡£¡¡ÔÚoptSoft_Change¹ý³ÌÏÂÃ棬ÊäÈëÏÂÊö¹ý³ÌoptHard_Change£º¡¡¡¡
¡¡¡¡¡¡Private¡¡Sub¡¡optHard_Change£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£lboxSystems¡£Clear¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Call¡¡ListHardware¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£lboxSystems¡£ListIndex¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£picImage¡£Picture¡¡=¡¡LoadPicture£¨¡¨C£ºcd¡£bmp¡¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
6¡£¡¡µã»÷¹¤×÷±íInfo¡¡SurveyÀïµÄ°´Å¥SurveyÆô¶¯´°ÌåÀ´²é¿´½á¹û¡£µ±Äãµã»÷SoftwareÑ¡Ïťʱ£¬¡¡
¡¡¡¡¡¡¡¡ÄãÓ¦¸Ã¿´µ½Áбí¿òÀïµÄÈí¼þ³ÉÔ±£¬Í¬Ê±£¬Í¼Ïñ¿Ø¼þÒ²Ó¦¸ÃÏÔʾÁËÏàÓ¦µÄͼƬ¡£µã»÷HardwareÑ¡¡¡
¡¡¡¡¡¡¡¡Ïî°´Å¥ºó£¬Áбí¿òÓ¦¸ÃÏÔʾÊʵ±µÄÓ²¼þ³ÉÔ±£¬Í¬Ê±£¬Í¼Ïñ¿Ø¼þÓ¦¸ÃÏÔʾһÕŲ»Í¬µÄͼƬ¡£¡¡¡¡
7¡£¡¡µã»÷´°ÌåÓÒÉϽǵĹرհ´Å¥£¬¹Ø±Õ¸Ã´°Ìå¡¡¡¡
32¡£±àд¹ý³Ìͬ²½ÎÄ×Ö¿òºÍÐýת°´Å¥¡¡¡¡
Info¡¡Survey´°ÌåÔÚÐýת°´Å¥Ç°ÃæÓиöÎÄ×Ö¿ò£¬Óû§¿ÉÒÔÖ±½ÓÔÚÎÄ×Ö¿òÀïÊäÈë»òÕßʹÓÃÐýת°´Å¥£¬¡¡
ÔÚÎÄ×Ö¿òÀï±íÃ÷Hardware»òÕßSoftware³ÉԱʹÓõİٷÖÂÊ¡£ÎÄ×Ö¿òµÄ³õʼֵΪ0£¬¼ÙÉèÓû§ÊäÈëÁË¡¡
10£¬ÏÖÔÚÒªÓÃÐýת°´Å¥½«ËüÔö¼Óµ½15¡£Òª¼¤»îÕâ¸ö¶¯×÷µÄ»°£¬ÄÇô¸ÃÎÄ×Ö¿òºÍÐýת°´Å¥±ØÐëµÃͬ²½¡£¡¡
ÿ¸ö¶ÔÏóÐèÒªÓÐÒ»¸öµ¥¶ÀµÄChangeʼþ¹ý³Ì¡£¡¡¡¡
1¡£¡¡ÔÚÐýת°´Å¥Éϵ¥»÷ÓÒ¼ü£¬²¢Ñ¡Ôñ¿ì½Ý²Ëµ¥ÉϵIJ鿴´úÂë¡¡¡¡
2¡£¡¡ÊäÈë¹ý³ÌspPercent_Change¹ý³Ì£¬ÈçÏÂËùʾ£º¡¡¡¡
¡¡¡¡¡¡Private¡¡Sub¡¡spPercent_Change£¨£©¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡txtPercent¡£Value¡¡=¡¡spPercent¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡¡¡Ê¹ÓÃÐýת°´Å¥½«»áµ¼ÖÂÎÄ×Ö¿òÊýÖµÔö¼Ó»ò¼õÉÙ¡£¡¡¡¡
3¡£¡¡ÊäÈëÏÂÊö¹ý³ÌtxtPercent_Change£º¡¡¡¡
¡¡¡¡¡¡Private¡¡Sub¡¡txtPercent_Change£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Dim¡¡entry¡¡As¡¡String¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡On¡¡Error¡¡Resume¡¡Next¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡entry¡¡=¡¡Me¡£txtPercent¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡entry¡¡¡·¡¡100¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡entry¡¡=¡¡0¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£txtPercent¡£Value¡¡=¡¡entry¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡spPercent¡£Value¡¡=¡¡txtPercent¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¹ý³ÌtxtPercent_ChangeÈ·±£Ö»ÓдÓ0µ½100Ö®¼äµÄÊýÖµ¿ÉÒÔÊäÈëÔÚÎÄ×Ö¿òÀ¸Ã¹ý³ÌʹÓÃÁËOn¡¡¡¡
¡¡¡¡¡¡¡¡Error¡¡Resume¡¡NextÓï¾äÀ´ºöÂÔ´íÎóÊý¾ÝµÄÊäÈë¡£Èç¹ûÓû§ÊäÈëÁËÒ»¸ö·ÇÊý×ÖÊý¾Ý£¨»òÕß´óÓÚ100¡¡
¡¡¡¡¡¡¡¡µÄÊý×Ö£©£¬VB½«»á½«ÎÄ×Ö¿òµÄÖµÖØÐÂÉèÖÃΪ0¡£Ã¿´Îµã»÷Ðýת°´Å¥£¬ÎÄ×Ö¿òÀïµÄÊý×Ö½«»áÔö¼Ó»ò¡¡
¡¡¡¡¡¡¡¡Õß¼õÉÙ1¡£¡¡¡¡
33¡£±àд¹ý³Ì¹Ø±ÕÓû§´°Ìå¡¡¡¡
ÏÔʾ´°ÌåÖ®ºó£¬Óû§¿ÉÄÜÐèҪͨ¹ý°´Esc¼ü»òÕßµã»÷Cancel°´Å¥À´È¡Ïû´°Ì壬¿ÉÒÔ×¼±¸Ò»¸öʹÓÃHide¡¡
·½·¨µÄ¼òµ¥¹ý³Ì£¬Èô°Ìå´ÓÆÁÄ»ÉÏÏûʧ¡£¡¡¡¡
1¡£¡¡Ë«»÷Cancel°´Å¥£¬²¢ÇÒÊäÈëÏÂÊö¹ý³ÌcmdCancel_Click£º¡¡¡¡
¡¡¡¡¡¡Private¡¡Sub¡¡butCancel_Click£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£Hide¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡204¡¡
¡¡¡Ò³Ãæ¡¡221¡
¡¡¡¡¡¡¡¡·½·¨Hide½«¶ÔÏóÒþ²Ø£¬µ«ÊDz»´ÓÄÚ´æÀïÇå³ýËü¡£ÕâÑù£¬µ±Óû§¿´²»µ½´°ÌåµÄʱºò£¬ÄãµÄVBA¹ý³Ì¡¡
¡¡¡¡¡¡¡¡ÈÔÈ»¿ÉÒÔÔÚÆÁÄ»ºóÃæʹÓøô°ÌåµÄ¶ÔÏóºÍÊôÐÔ¡£Ê¹ÓÃUnload·½·¨¿ÉÒÔ½«´°Ìå´ÓÆÁÄ»ÉÏжÍ˲¢ÇÒ¡¡
¡¡¡¡¡¡¡¡´ÓÄÚ´æÀïÇå³ý£º¡¡¡¡
¡¡¡¡¡¡¡¡Unload¡¡Me¡¡¡¡
µ±´°ÌåжÍ˺ó£¬ËùÓÐÏà¹ØµÄÄڴ涼»á±»Êջأ¬Óû§²»ÄÜÔٺʹ°ÌåÏ໥½»Á÷ÁË£¬´°ÌåµÄ¶ÔÏóÒ²²»ÄÜΪ¡¡
ÄãµÄVBA¹ý³Ì·ÃÎÊÁË£¬³ý·ÇʹÓÃLoadÓï¾äÔÙ½«´°Ìå·ÅÖÃÓÚÄÚ´æÀï¡£¡¡¡¡
34¡£×ªÒÆ´°ÌåÊý¾Ýµ½¹¤×÷±í¡¡¡¡
µ±Óû§µã»÷OK°´Å¥£¬´°ÌåµÄÑ¡ÔñÓ¦¸ÃдÈ빤×÷±íÖУ¬Óû§¾Í¿ÉÒÔͨ¹ýµã»÷Cancel°´Å¥ËæʱÍ˳ö´°Ìå¡£¡¡¡¡
1¡£¡¡Ë«»÷OK°´Å¥£¬²¢ÊäÈë¹ý³ÌcmdOK_Click£¬ÈçÏÂËùʾ£º¡¡¡¡
¡¡¡¡¡¡¡¡Private¡¡Sub¡¡butOK_Click£¨£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Me¡£Hide¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡r¡¡=¡¡ApplicationuntA£¨Range£¨¡¨A£ºA¡¨£©£©¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡0£©¡¡=¡¡Me¡£lboxSystems¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£optHard¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡1£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£optSoft¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡2£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£chkIBM¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡3£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£chkNote¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡4£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£chkMac¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡5£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡6£©¡¡=¡¡Me¡£cboxWhereUsed¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡7£©¡¡=¡¡Me¡£txtPercent¡£Value¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£optMale¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡8£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡If¡¡Me¡£optFemale¡£Value¡¡=¡¡True¡¡Then¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡9£©¡¡=¡¡¡¨*¡¨¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡End¡¡If¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Unload¡¡Me¡¡¡¡¡¡
¡¡¡¡¡¡¡¡End¡¡Sub¡¡¡¡
¡¡¡¡¡¡¡¡¹ý³ÌbutOK_ClickÒÔÒþ²ØÓû§´°Ì忪ʼ¡£Óï¾ä£º¡¡¡¡
¡¡¡¡¡¡¡¡r¡¡=¡¡ApplicationuntA£¨Range£¨¡¨A£ºA¡¨£©£©¡¡¡¡
ʹÓÃÁËVBº¯ÊýCountAÀ´¼ÆËãAÁÐÀﺬÓÐÊý¾ÝµÄµ¥Ôª¸ñÊýÄ¿£¬º¯ÊýµÄ½á¹û±»¸³Óè±äÁ¿r¡£ÏÂÒ»¾ä£º¡¡¡¡
¡¡¡¡¡¡¡¡Range£¨¡¨A1¡¨£©¡£Offset£¨r¡¡£«¡¡1£»¡¡0£©¡¡=¡¡Me¡£lboxSystems¡£Value¡¡¡¡
½«Áбí¿òÑ¡ÔñµÄÏîÄ¿ÊäÈëµ½AÁÐ×îºóÒ»¸öʹÓÃÁ˵ĵ¥Ôª¸ñµÄÏÂÃæÒ»¸öµ¥Ôª¸ñ£¨r£«1£©¡£½ÓÏÂÀ´£¬ÊǺá¡
¼¸ÌõÌõ¼þÓï¾ä¡£µÚÒ»Ìõ¸æËßVB£¬µ±HardwareÑ¡Ïî°´Å¥±»Ñ¡ÖÐʱ£¬ÔÚBÁÐÊʵ±µÄµ¥Ôª¸ñÀïÊäÈëÒ»¸öÐÇ¡¡
ºÅ¡£BÁÐλÓÚAÁеÄÓÒ±ßÒ»ÁУ¬Òò´Ë£¬ÔÚOffset·½·¨µÚ¶þ¸ö²ÎÊýµÄλÖÃΪ1¡£µÚ¶þÌõIfÓï¾ä£¬µ±Óû§¡¡
Ñ¡ÔñSoftwareÑ¡Ïî°´Å¥µÄ»°£¬¾ÍÔÚCÁÐÊäÈëÐǺš£ÀàËƵÄÖ¸Áî¼Ç¼¸´Ñ¡¿òµÄʵ¼ÊÊýÖµ¡£ÔÚGÁУ¬½«»á¡¡
ÊäÈëWhere¡¡Used¸´ºÏ¿òÀïËùÑ¡µÄÏîÄ¿¡£HÁÐÏÔʾPercent¡¡£¨£¥£©¡¡Used¡¡ÎÄ×Ö¿òÀïµÄÊý×Ö£¬¶øIÁкÍJÁÐÔò¡¡
·Ö±ðÏÔʾÌá¸ßµ÷²éÈËÔ±µÄÐԱ𡣡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡205¡¡
¡¡¡Ò³Ãæ¡¡222¡
35¡£Ê¹Óá¡Info¡¡Survey¡¡Ó¦ÓóÌÐò¡¡¡¡
ÏÖÔÚ£¬ÄãµÄÓ¦ÓóÌÐòÒѾ׼±¸ºÃ×ö×îºó²âÊÔÁË¡£¡¡¡¡
1¡£¡¡Çл»µ½Excel½çÃ棬Info¡¡Survey¹¤×÷±í£¬²¢ÇÒµã»÷Survey°´Å¥¡¡¡¡
2¡£¡¡¡¡µ±´°Ìå³öÏÖʱ£¬Ñ¡ÔñÊʵ±µÄÑ¡Ï²¢µã»÷OK¡¡¡¡
3¡£¡¡¼¤»î´°Ì弸´Î£¬Ã¿´ÎÑ¡Ôñ²»Í¬µÄÑ¡Ïî¡¡¡¡
4¡£¡¡±£´æChap10¡£xls±ä»¯¡¡¡¡
36¡£Ó¦ÓóÌÐòʾÀý¡¡2£ºÑ§ÉúºÍ¿¼ÊÔ¡¡¡¡
½üÄêÀ´£¬Ðí¶àWindowsÓ¦ÓÃÈí¼þÔ½À´Ô½ÒÀÀµÓÚÄÇЩ½«¸÷Öֿؼþ×éºÏÔÚÒ»ÆðµÄ¶Ô»°¿ò¡£¡°Ñ¡Ï¶Ô»°¿ò¡¡
¾ÍÊǺܺõÄÀý×Ó£¬Ê¹ÓÃTabÒ³£¬Äã¿ÉÒÔ¸øÒ»¸ö¶Ô»°¿òÀïµÄºÜ¶à¿Ø¼þÌá¸ßÉèÖá£ÓÃTabÒ³×éºÏµ