µÚÎåÕÂExcelÔÚ²ÆÎñ¹ÜÀíÖеĸ߼¶Ó¦ÓÃ(3)

2019-04-02 14:36

THEN MSGBKX ¡°Íê³ÉÈÎÎñ£¬Ó¦¸øÓè¼Î½±£¡¡± END SUB Óï·¨ £²£º

IF (CONDITION) THEN (STATEMENTS) ELSE

(STATEMENTS) ENDIF

ÀýÎ壺±àдһºê³ÌÐò¡£

¹ý³ÌÃûΪ£ºPROL4

¹¦ÄÜ£ºÈç¹û¡°×ÜÏúÊ۶ÔÚÓڵȣµ£°ÍòÔª£¬ÔÚÆÁÄ»ÉÏÊä³ö¡°Íê³ÉÈÎÎñ£¬Ó¦¸øÓè¼Î½±£¡¡±£¬·ñÔòÔÚÆÁÄ»ÉÏÊä³ö¡°¼ÌÐøÅ¬Á¦¡±¡£

±à³Ì¹ý³Ì£º

Ñ¡ÔñMODULEIºê±íÊäÈëºê³ÌÐò£º SUB PROL4 ()

IF ×ÜÏúÊÛ¶î>=50 THEN

MSGBOX ¡°Íê³ÉÈÎÎñ£¬Ó¦¸øÓè¼Î½±£¡¡± ELSE

MSGBOX¡°¼ÌÐøÅ¬Á¦¡± END IF END SUB Óï·¨ 3£º

SELECT CASE £¨TESTEX PRESSION£© CASE £¨PRESSIONLST1£© £¨STAEMENTS£© CASE £¨PRESSIONLST2£© £¨STAEMENTS£© END SELECT ÀýÁù£º±àдһºê³ÌÐò¡£ ¹ý³ÌÃûΪ£ºPROL5

¹¦ÄÜ£º¸ù¾Ýʵ¼ÊÏúÊÛÁ¿ÅÐ¶ÏÆäÊÇ´óÓÚ¡¢µÈÓÚ¡¢Ð¡ÓÚ±£±¾µãÏúÊÛÁ¿£¬¾ö¶¨Êä³ö¡°Ó¯Àû¡±¡¢¡°±£±¾¡±¡¢¡°¿÷Ë𡱡£ ¼ÙÉ裺B2µ¥ÔªÎªÊµ¼ÊÏúÊÛÁ¿£¬²¢½«¸Ãµ¥ÔªÃû¶¨ÒåΪÏúÊÛÁ¿£¬C1µ¥ÔªÎª±£±¾µãÏúÊÛÁ¿£¬²¢½«¸Ãµ¥ÔªÃû¶¨Î»±£±¾µãÏúÊÛÁ¿¡£

Ñ¡ÔñMODULE1ºê±íÊäÈëºê³ÌÐò£º SUB PROL 5£¨£© SELECT CASE ÏúÊÛ¶î

CASE ÏúÊÛ¶î<±£±¾µãÏúÊÛ¶î MSGBOX ¡°¿÷Ë𣡡± CASE ÏúÊÛ¶î=±£±¾µãÏúÊÛ¶î MSGBOX¡°±£±¾£¡¡± CASE ÏúÊÛ¶î>±£±¾µãÏúÊÛ¶î MSGBOX¡°Ó¯Àû£¡¡± END SELECT END SUB £¨3£©Ñ­»·½á¹¹

Óï·¨ 1£º

DO WHILE £¨CONDITION£© £¨STATEMENTS£© LOOP

ÀýÆß£º±àдһºê³ÌÐò¡£

¹ý³ÌÃûΪ£ºPROL6

¹¦ÄÜ£ºµ±²ÆÎñ¹ÜÀíÈËÔ±ÔÚ²»ÊäÈë½áÊøÐÅÏ¢ÃüÁî֮ǰ£¬ÒÔÖÁ½øÐÐÊý¾ÝÕûÀí£¬Ö±µ½ÊäÈëÁ˽áÊøÐÅÏ¢FALSEºó£¬Í˳ö±¾¹ý³Ì¡£

±àд¹ý³Ì£º

Ñ¡ÔñMODULE1 HONGºê±íÊäÈëºê³ÌÐò£º SUB PROL6£¨£© FLAG=VBYES

DO WHILE FLAG=VBYES

PROCESSUSERDAT¡¯Aµ÷Óùý³ÌÕûÀí³É±¾Êý¾Ý

RESPONE=MSGBOX£¨¡°¼ÌÐøÕûÀí³É±¾Êý¾ÝÂð£¿[TRUE/FALSE]¡±£¬YES/NO£©

LOOP END SUB Óï·¨2£º

FOR counter=start TO end [step increment] (statements) next [counter] Àý°Ë£º±àдһºê³ÌÐò¡£ ¹ý³ÌÃûΪ£ºPROL7

¹¦ÄÜ£º¸ù¾ÝÏúÊÛÁ¿µÄ±ä»¯£¬¼ÆËãÏàÓ¦µÄÀûÈó£¬Èç¹ûÀûÈó´óÓÚ0£¬Êä³ö¡°Ó¯Àû¡±£¬·ñÔòÊä³ö¡°¿÷Ë𡱡£ ¼ÙÉ裺ÏúÊÛÁ¿´Ó200±äµ½300£¬Ã¿´ÎÔö¼Ó10£¬µ¥Î»±ä¶¯³É±¾¡¢µ¥¼Û¡¢¹Ì¶¨³É±¾µÈËùÔÚµ¥Ôª¶¼ÒѶ¨ÒåÁËÃû×Ö¡£

±à³Ì¹ý³Ì£º

Ñ¡ÔñMODULE1HONGºê±íð¢ÊäÈëºê³ÌÐò£º Sub PROL 7 ()

ForÏúÊÛÁ¿=200 TO 300 STEP 10

ÀûÈó=£¨µ¥¼Û-µ¥Î»±ä¶¯³É±¾£©*ÏúÊÛÁ¿-¹Ì¶¨³É±¾ IF ÀûÈó>=0 THEN MSGBOX ¡°Ó¯Àû£¡¡± ELSE

MSGBOX¡°¿÷Ë𣡡± END IF EXIT END SUB

Óï·¨2£ºFOR EACH £¨ELEMENT£© IN £¨GROUP£© £¨STAEMENTS£© NEXT £¨ELEMENT£© Àý¾Å£º±àдһºê³ÌÐò ¹ý³ÌÃûΪ£ºPROL8

¹¦ÄÜ£º¹Ø±ÕËùÓдò¿ªµÄ¹¤×÷²¾¡£ ±à³Ì¹ý³Ì£º

Ñ¡ÔñMODULE1HONGºê±íÊäÈëºê³ÌÐò£º SUB PROL8£¨£©

FOR EACH BOOK IN WORKBOOKS £¨£© BOOK . CLOSE END SUB

ÒÔÉÏÊÇÀûÓÃVB£¨Visual Basic£©±à¼­Æ÷À´±àд³ÌÐò£¬À´Íê³Éij¶ÎÌØ¶¨µÄ¹ý³Ì¡£Ê¹ÓÃÕâÖÖ·½·¨µÄÈËÐèÒª¾ßÓÐÒ»¶¨µÄ¼ÆËã»ù´¡£»Excel»¹ÌṩʹÓÃÕßÒ»ÖÖ¼òµ¥Ò×ÓõıàÖÆºê³ÌÐòµÄ·½·¨£¬¼´ºê¼Ç¼Æ÷¡£ 3 ºê¼Ç¼Æ÷µÄʹÓÃ

ExcelÌṩµÄºê¼Ç¼Æ÷¿ÉÒÔ°ïÖú²ÆÎñ¹ÜÀíÈËÔ±Ëù×öµÄ¸÷ÖÖ²Ù×÷£¬µ±²Ù×÷½áÊøÊ±£¬¹Ø±Õºê¼Ç¼Æ÷£¬ºê³ÌÐò ±ã±£´æÔÚºê±íÖС£ºê¼Ç¼ÏÂÀ´Ö®ºó£¬¿ÉÒÔͨ¹ýÒÔÏ·½·¨Ö´Ðк꣺

Óá°¹¤¾ß¡±²Ëµ¥ÖÐÑ¡Ôñ¡°ºê¡±ÃüÁ

½«¿Í¹Û´æÔÚÖ¸¸øÄ³¸ö²Ëµ¥Ïͨ¹ýÑ¡Ôñ²Ëµ¥Ö´Ðкꣻ ½«ËüÖ¸¶¨¸øºê°´Å¥£¬Í¨¹ýÇý¶¯°´Å¥Ö´Ðкꡣ £¨1£©¼Ç¼ºêµÄ·½·¨ºÍ²½Öè

¢Ù Ñ¡Ôñ¡°¹¤¾ß¡±²Ëµ¥Éϵġ°¼Ç¼ºê¡±ÃüÁîϵġ°Â¼ÖÆÐºꡱÃüÁ

¢Ú ÔÚ¡°ºêÃû×Ö¡±¿òÖÐÊäÈëºê³ÌÐòµÄÃû×Ö£¬¹¤³ÌÏîÃû¿ÉÒÔ°üÀ¨×Öĸ¡¢Êý×ÖºÍÏ»®Ïߣ»µ«±ØÐëÒÔ×Öĸ£¨Ä³ÖÖÎÄ×Ö£©¿ªÍ·£¬Ãû×ÖÖв»ÄܰüÀ¨¿Õ¸ñ»ò±êµã·ûºÅ£» ¢Û ÔÚ¡°ÃèÊö¡±¿òÖУ¬ÊäÈëÓëÒª¼Ç¼µÄºêÓйصÄ˵Ã÷ÐÅÏ¢£»

¢Ü Ñ¡Ôñ¡°È·¶¨¡±°´Å¥£¬´Ëʱ[Í£Ö¹¼Ç¼ºê]°´Å¥³öÏÖÔÚÆÁÄ»ÉÏÏ £»²ÆÎñ¹ÜÀíÈËÔ±¿ÉÒÔ½øÐи÷ÖּǼµÄ²Ù×÷£¬ÈçÑ¡¶¨µ¥Ôª¸ñ¡¢ÊäÈë±êÌâ¡¢ÉèÖñí¸ñµÈ£» ¢Ý µ¥»÷¡°Í£Ö¹Â¼Öƺꡱ°´½áÊøºê¼Ç¼¡£ £¨2£©¼Ç¼ºêʵÀý

ÀýÊ®£ºÔÚ¹¤×÷²¾CWGL10.XLS ÖУ¬²åÈëÒ»ÕŹ¤×÷±í£¬½«¸Ã¹¤×÷±íÃû×Ö¸ÄΪ¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ½çÃæ¡±£¬ ÔÚC3µ¥ÔªÊäÈë±êÌâ¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ¡±£¬½«¸Ã±êÌâµÄ×ÖºÅÉèÖÃΪ14¡£²¢ÔڸñêÌâÏ»®Ïߣ¬È¡ÏûÍø¸ñÏß¡£

¼Ç¼ºêµÄ¹ý³Ì£º

¢Ù Ñ¡Ôñ¡°¹¤¾ß¡±²Ëµ¥Éϵġ°¼Ç¼ºê¡±¾ãϵġ°Â¼ÖÆÐºꡱÃüÁ ¢Ú ÔÚ¡°ºêÃû×Ö¡±¿òÖÐÊäÈëºê³ÌÐòµÄÃû×Ö¡°info hy¡± ¢Û ÔÚ¡°ÃèÊö¡±¿òÖУ¬ÊäÈëÓëÒª¼Ç¼µÄºêÓйصÄ˵Ã÷ÐÅÏ¢£» ¢Ü Ñ¡Ôñ¡°È·¶¨¡±°´Å¥£¬´Ëʱ¡°Í£Ö¹¼Ç¼ºê¡±°´Å¥³öÏÖÔÚÆÁÄ»ÉÏ£» ¢Ý Ñ¡Ôñ¡°²åÈ롱²Ëµ¥Éϵġ°¹¤×÷±í¡±ÃüÁ

¢Þ ½«Ð²åÈëµÄ¹¤×÷±íÃû¸ÄΪ¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ½çÃæ¡±£»

¢ß Ñ¡ÔñC3µ¥Ôª£¬ÊäÈë±êÌâ¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ¡±£» ¢à Ñ¡Ôñ±êÌ⣬ µ¥»÷¡°×ֺ𱹤¾ß£¬Ñ¡Ôñ14£» ¢á µ¥»÷¡°Ï»®Ïß¡±¹¤¾ß£»

¢â Ñ¡Ôñ¡°¹¤¾ß¡±²Ëµ¥Éϵġ°Ñ¡ÏÃüÁȥ³ýÍø¸ñÏߣ»µ¥»÷¡°Í£Ö¹¼Ç¼ºê¡±°´Å¥£¬½áÊøºê¼Ç¼¡£ £¨3£©¼Ç¼µÄºê³ÌÐòÇåµ¥ info hyºê

¶¡Á¦¼Ç¼ºê¹Û 08/08/1998 Sub info hy () Sheets.Add

Sheets (¡°SHEET1¡±).Select

Sheets (¡°sheetl¡±).Name =¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ½çÃæ¡± Range (¡°C3¡±).Select

Activecell. FormualaR1C1 =¡°ºãÔ¶²ÆÎñ¹ÜÀíϵͳ¡± Range(cC3:D3).Select With Selection. Font Name =¡±Times New Roman¡± Font Stye =¡±Regular¡± Size =14 End With

Selection. Font. Underline =xLSinge ActiveWindow.DisplayGridines=False End Sud

ͨ¹ýÉÏÊö´óÁ¿µÄºê³ÌÐò¿ÉÒÔ¿´³ö£¬¶ÔÓÚѧϰ¹ýÆäËû±à³ÌÓïÑԵIJÆÎñ¹ÜÀíÈËÔ±À´Ëµ£¬±àдºê³ÌÐò²¢²»À§ÄÑ£¬ Ö»ÐèҪѧϰºÍÕÆÎÕVBAÌṩµÄ¸÷ÖÖÓï¾ä¡¢¶ÔÏóµÄ·½·¨ºÍÊôÐԵȣ¬¾Í¿ÉÒԺܿì±à³öºê³ÌÐò¡£¶ÔÓÚûÓÐѧϰ¹ýÆäËû±à³ÌÓïÑԵIJÆÎñ¹ÜÀíÈËÔ±»ò¶ÔºêÓïÑÔ²»ÊìϤµÄ²ÆÎñ¹ÜÀíÈËÔ±£¬¿ÉÒÔÀûÓÃExcelÌṩµÄºê¼Ç¼Æ÷×Ô¶¯¼Ç¼ÄúÔÚExcelÖнøÐеĸ÷ÖÖ²Ù×÷£¬Ò²¿ÉÒÔͨ¹ýÔĶÁÕâЩºê³ÌÐò£¬²»¶ÏѧϰºêµÄ±àд·½·¨¡£

ÖµµÃ×¢ÒâµÄÊÇ£¬ºê¼Ç¼Æ÷±àдµÄ³ÌÐò¶¼Êǽϼòµ¥µÄ˳Ðò½á¹¹µÄ³ÌÐò£¬Èç¹ûÐèÒª±È½Ï¸´ÔӵĽṹÈç·ÖÖ§¡¢Ñ­»·µÈ½á¹¹µÄ³ÌÐòʱ£¬²ÆÎñ¹ÜÀíÈËÔ±¶Ôºê¼Ç¼Æ÷ÖмǼºÍ³ÌÐò½øÐÐÐ޸ıã¿ÉʹÓá£

4 ºêµÄÖ´ÐÐ

ºê¼Ç¼ÏÂÀ´Ö®ºó£¬¿ÉÔÚÈκÎʱ¼äÖ´ÐÐÕâ¸öºê£¬Excel½«Ö´ÐÐÔÚºê³ÌÐòÖеÄÈ«²¿ÃüÁî¡£µ±ºêûÓб»Ö¸¶¨µ½ ºê°´Å¥»ò²Ëµ¥Ïîʱ£¬Ö»Äܰ´ÏÂÁв½ÖèÖ´ÐС£

¢Ù ÔÚ¡°¹¤¾ß¡±²Ëµ¥ÖÐÑ¡Ôñ¡°ºê¡±ÃüÁ


µÚÎåÕÂExcelÔÚ²ÆÎñ¹ÜÀíÖеĸ߼¶Ó¦ÓÃ(3).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ ÏÂÔØÊ§°Ü»òÕßÎĵµ²»ÍêÕû£¬ÇëÁªÏµ¿Í·þÈËÔ±½â¾ö£¡

ÏÂһƪ£º½Ìʦ×ʸñÖ¤½ÌÓýÐÄÀíѧÊÔÌâ

Ïà¹ØÔĶÁ
±¾ÀàÅÅÐÐ
¡Á ×¢²á»áÔ±Ãâ·ÑÏÂÔØ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩

ÂíÉÏ×¢²á»áÔ±

×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£º QQ£º