¼«Æ°ÇäÇã

2016ǯ12·î03Æü 13:10

P8282359


¼«Æ°ÇäÇã¤ò¤¹¤ëºÝ¤Ë¡¢
ËèÆü·è¤Þ¤Ã¤¿»þ´Ö¤Ë¡¢¼«Æ°¤Ç£Ð£Ã¤ÎÅŸ»¤¬Æþ¤Ã¤Æ¡¢
¼«Æ°ÇäÇã¤Î¥½¥Õ¥È¤òΩ¤Á¾å¤²¤é¤ì¤ë¤è¤¦¤Ë¤·¤Æ¤ª¤¯¤È¡¢³Ú¤Ê¤Î¤Ç¡¢
ÊýË¡¤ò¥á¥â¤·¤Æ¤ª¤­¤Þ¤¹¡£

¤Þ¤º¡¢ËèÆü·è¤Þ¤Ã¤¿»þ´Ö¤Ë£Ð£Ã¤ÎÅŸ»¤òÆþ¤ì¤ë¤Ë¤Ï¡¢
£Â£É£Ï£Ó¤ÎÀßÄê¤Ç¹Ô¤¤¤Þ¤¹¡¢
¤ä¤êÊý¤Ï¡¢
ÍøÍѤ·¤Æ¤ë¥Ñ¥½¥³¥ó¤ä¡¢¥Þ¥¶¡¼¥Ü¡¼¥É¤Î¼ïÎà¤Ç°Û¤Ê¤ë¤Î¤Ç¡¢
¤³¤³¤Ç¤Ï¡¢°ì±þ²È¤Ë¤¢¤ë¼«ºî¤·¤¿¥Ñ¥½¥³¥ó¤Ç¤Î£Â£É£Ï£Ó¤ÎÀßÄêÊýË¡¤ò½ñ¤¤¤Æ¤ª¤­¤Þ¤¹¡£

­¡£Ð£Ã¤òºÆµ¯Æ°¤¹¤ë
­¢¥í¥´¤¬½Ð¤Æ¤ë»þ¤ËDelete¥­¡¼¤Ê¤É¤ò²¡¤·¤Æ£Â£É£Ï£Ó¤ÎÀßÄê²èÌ̤ò½Ð¤¹
­££Â£É£Ï£Ó¤Î¥¢¥É¥Ð¥ó¥¹¥É¥á¥Ë¥å¡¼¤Î¡¢£Á£Ð£Í¤òÁªÂò
­¤Power On By RTC¤ò[Enabld]¤Ë¤¹¤ë
­¥[Enabld]¤Ë¤¹¤ë¤È¡¢»þ¹ï¤òÀßÄê²Äǽ¤Ë¤Ê¤ë¤Î¤Ç¡¢£Ð£Ã¤òµ¯Æ°¤·¤¿¤¤»þ´Ö¤òÀßÄꤹ¤ë

¤³¤ì¤Ç¡¢
ËèÆüƱ¤¸»þ´Ö¤Ë£Ð£Ã¤ÎÅŸ»¤¬Æþ¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡¢
¼¡¤Ë¡¢
¼«Æ°ÇäÇãÍѤΡ¢¥½¥Õ¥È¤Ê¤É¤òƱ»þ¤ËΩ¤Á¾å¤²¤ë¤Ë¤Ï¡¢
windows¤Î¥¹¥¿¡¼¥È¥¢¥Ã¥×¤ò»È¤¤¤Þ¤¹¡¢
¤¿¤È¤¨¤Ð¡¢¥Ç¥¹¥¯¥È¥Ã¥×¤Ë¡¢
¼«Æ°ÇäÇãÍѤΡ¢¼«Æ°ÇäÇã.xlsx¤È¤¤¤¦¡¢Excel¥Õ¥¡¥¤¥ë¤¬¤¢¤Ã¤Æ¡¢
¼«Æ°ÇäÇ㤹¤ë¤¿¤á¤Ë¤³¤ì¤òΩ¤Á¾å¤²¤¿¤¤¾ì¹ç¤Ç¤ä¤Ã¤Æ¤ß¤ë¤È¡£

­¡¼«Æ°ÇäÇã.xlsx¤ÎExcel¥Õ¥¡¥¤¥ë¤ò±¦¥¯¥ê¥Ã¥¯¤·¤Æ¡¢
¡¡¥·¥ç¡¼¥È¥«¥Ã¥È¤ÎºîÀ®¤òÁª¤ó¤Ç¡¢Excel¥Õ¥¡¥¤¥ë¤Î¥·¥ç¡¼¥È¥«¥Ã¥È¤òºî¤Ã¤Æ¤ª¤¯
­¢¥¹¥¿¡¼¥È¡¡¢ª¡¡¤¹¤Ù¤Æ¤Î¥×¥í¥°¥é¥à¤«¤é¡¢
¡¡¥¹¥¿¡¼¥È¥¢¥Ã¥×¥Õ¥©¥ë¥À¤ò±¦¥¯¥ê¥Ã¥¯¤·¤Æ¡¢³«¤¯¤òÁªÂò¡¢¥¹¥¿¡¼¥È¥¢¥Ã¥×¥Õ¥©¥ë¥À¤ò³«¤¯
­£¥¹¥¿¡¼¥È¥¢¥Ã¥×¥Õ¥©¥ë¥ÀÆâ¤Ë­¡¤Çºî¤Ã¤¿¡¢¼«Æ°ÇäÇã.xlsx¥Õ¥©¥ë¥À¤Î¥·¥ç¡¼¥È¥«¥Ã¥È¤ò°Üư¤¹¤ë

¤³¤Î¼ê½ç¤Ç¡¢
£Ð£Ã¤Îµ¯Æ°»þ¤Ë¡¢¼«Æ°ÇäÇã.xlsx¤ÎExcel¥Õ¥¡¥¤¥ë¤âƱ»þ¤Ë³«¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡¢
¤³¤ì¤Ç½Ð³Ý¤±¤Æ¤¤¤Æ¤â¡¢¿²Ë·¤·¤Æ¤â¡¢
£Ð£Ã¤¬¼«Æ°¤Çµ¯Æ°¤·¤Æ¼«Æ°ÇäÇã¤ÎExcel¥Õ¥¡¥¤¥ë¤â³«¤¤¤Æ¤¯¤ì¤Þ¤¹¡¢
Ä«µ¯¤­¤ë¤Î¤¬¤Ä¤é¤¤¿Í¤Ë¤Ï¡¢³Ú¤Ç¤¤¤¤¤«¤â¤·¤ì¤Þ¤»¤ó£÷

2013ǯ10·î01Æü 14:09

PA190735

¾¦ÉÊÀèʪ¤Ç¼«Æ°ÇäÇ㤹¤ë¾ì¹ç¡¢
Excel¤ÎVBA¤ò»È¤Ã¤ÆIE¤òÁàºî¤¹¤ë¤Î¤¬¡¢
°ìÈÖ¤ª¶â¤¬¤«¤«¤é¤Ê¤¯¤Æ´Êñ¤Ë¤Ç¤­¤½¤¦¤Ê¤Î¤Ç¡¢
¤³¤ì¤ò»È¤Ã¤Æ¼«Æ°ÇäÇ㥷¥¹¥Æ¥à¤òºî¤ë¤È¤­¤Î¥Æ¥¯¥Ë¥Ã¥¯¤ò¥á¥â¤·¤Æ¤ª¤­¤Þ¤¹¡£


¡¦VBA¤Ç·è¤á¤¿»þ´Ö¤Ë¥Þ¥¯¥í¤ò¼Â¹Ô¤¹¤ë
¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¡¡¥ª¥ó¥¿¥¤¥à¡¡¥á¥½¥Ã¥É¤ò»È¤¤¤Þ¤¹¡¢
Application.OnTime TimeValue("12:25:00"), "¥Ç¡¼¥¿¼èÆÀ"
¤³¤Î¤è¤¦¤Ëµ­½Ò¤¹¤ë¤È£±£²»þ£²£µÊ¬¤Ë¡¢¥Ç¡¼¥¿¼èÆÀ¤È¤¤¤¦¥Þ¥¯¥í¤ò¼Â¹Ô¤·¤Þ¤¹¡¢
¹¥¤­¤Ê»þ´Ö¤Ë¥Þ¥¯¥í¤ò¼Â¹Ô¤Ç¤­¤ë¤Î¤Ç¡¢¥Ç¡¼¥¿¤Î¼èÆÀ¤äÃíʸ¤ÎȯÃí¤Ê¤É¤¤¤í¤¤¤í¤ÈÊØÍø¤Ç¤¹¡£


¡¦VBA¤Î½èÍý¤ò°ì»þÄä»ß¤¹¤ë¡¡
VBA¤ÇIE¤ò»È¤Ã¤ÆÈ¯Ãí¤¹¤ë¤È¤­¤Ë¡¢
VBA¤Î½èÍý¥¹¥Ô¡¼¥É¤¬¤±¤Ã¤³¤¦Â®¤¤¤Î¤ÇIE¤Î¹¹¿·¤¬Äɤ¤ÉÕ¤«¤Ê¤¤»þ¤¬¤¢¤ê¤Þ¤¹¡¢
¤½¤ì¤Ç¹¹¿·¤òÂԤĤ¿¤á¤Ë¡¢
¾¯¤·¤Î´ÖVBA¤òÄä»ß¤·¤¿¤¤¾ì¹ç¤Ï¡¢Windows API¤ÎSleep¤ò»È¤¤¤Þ¤¹¡¢
¥â¥¸¥å¡¼¥ë¤ÎÀèÆ¬¤Ç°Ê²¼¤Î¥³¡¼¥É¤òÀë¸À¤·¤Æ¤ª¤¯¤È¡¢
¥³¡¼¥É¤ÎÃæ¤Çsleep¤¬»È¤¨¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡¢
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
¥ß¥êÉÃñ°Ì¤Ç»ØÄê¤Ç¤­¤ë¤Î¤Ç¡¢
¥³¡¼¥É¤ÎÃæ¤Ç¡¢sleep (1000) ¤Èµ­½Ò¤¹¤ë¤È£±ÉÃÄä»ß¤·¤Þ¤¹¡£


¡¦IE¤¬¥Ú¡¼¥¸°Üư¤¹¤ë¤Þ¤Ç½èÍý¤òÂÔ¤Ä
web¥Ú¡¼¥¸¤¬°Üư¤¹¤ëÁ°¤ËIE¤ÎÁàºî¤ò³«»Ï¤·¤Æ¤·¤Þ¤¦¤È¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¡¢
¥Ú¡¼¥¸¤¬´°Á´¤Ë°Üư¤·¤Æ¤«¤éÁàºî¤ò³«»Ï¤¹¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡¢
Do While ObjIE.Busy = True¡¡
DoEvents
Loop
Do While ObjIE.ReadyState <> 4
DoEvents
Loop
¤Þ¤ºIE¤Îbusy¥×¥í¥Ñ¥Æ¥£¤¬True¤Î¾ì¹ç¤Ï½èÍý¤¬¤Ç¤­¤Ê¤¤¤Î¤ÇFalse¤Ë¤Ê¤ë¤Î¤òÂÔ¤Á¤Þ¤¹¡¢
¤½¤Î¼¡¤ÎReadyState¥×¥í¥Ñ¥Æ¥£¤Ï¾õÂÖ¤ò¼¨¤¹¿ô»ú¤¬0¡Á4¤Þ¤Ç¤¢¤Ã¤Æ¡¢
£´¤¬Áàºî²Äǽ¤Ê¾õÂÖ¤ò¼¨¤·¤Þ¤¹¡¢
¤½¤Î°Ù£´¤Ë¤Ê¤ë¤Î¤òÂԤäƽèÍý¤ò¹Ô¤¤¤Þ¤¹¡¢
¥Ú¡¼¥¸°Üư¤ÎºÝ¤Ï¡¢¾å¤Î¥³¡¼¥É¤òµ­½Ò¤·¤Æ¤ª¤¯¤³¤È¤Ç¡¢
ÂÔ¤Á¤¹¤®¤ë¤³¤È¤Ê¤¯¡¢°Üư´°Î»¸å¤Î½èÍý®ÅÙ¤òºÇŬ²½¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£


¡¦¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤ÎÀܳ¤ÏÍ­Àþ¤Ë¤¹¤ë
²È¤Ï°ì³¬¤Ë¥ë¡¼¥¿¡¼¤¬¤¢¤Ã¤Æ¡¢£²³¬¤Þ¤Ç̵ÀþLAN¤ò»È¤Ã¤Æ¤¿¤Î¤Ç¤¹¤¬¡¢
¤è¤¯Àܳ¤¬°ì½ÖÀÚ¤ì¤ë¤³¤È¤¬¤¢¤Ã¤Æ¤¢¤Þ¤ê°ÂÄꤷ¤Æ¤Þ¤»¤ó¤Ç¤·¤¿¡¢
º¤¤Ã¤¿¤Ê¤È»×¤Ã¤Æ¤¿¤é¡¢PLC¤È¤¤¤¦¤Î¤¬¤¢¤ë¤Î¤ò¸«¤Ä¤±¤Þ¤·¤¿¡¢
PLC¤Ï¥³¥ó¥»¥ó¥È¤Îº¹¹þ¸ý¤ò»È¤Ã¤ÆÄÌ¿®¤¹¤ë¤â¤Î¤Ç¡¢
´Êñ¤ËÍ­Àþ¤Ë¤Ç¤­¤Þ¤¹¡¢
¤³¤ì¤Ë¤·¤Æ¤«¤éÀÚ¤ì¤Ê¤¤¤Ç°ÂÄꤹ¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡¢
̵ÀþLAN¤¬°ÂÄꤷ¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢Àܳ¤¬ÀÚ¤ì¤Ë¤¯¤¤Í­Àþ¤Ë¤¹¤ë¤Î¤¬°ÂÁ´¤Ç¤¹¡£


¡¦È¯Ãí¤Ï¥â¥Ð¥¤¥ë¥µ¥¤¥È¤ò»È¤¦
¼«Æ°ÇäÇã¤ò¥×¥í¥°¥é¥à¤¹¤ë¤È¤­¤Ë¡¢
¶È¼Ô¤ÎÄ̾ï¤ÎWeb¥µ¥¤¥È¤Ç¤ä¤ë¤È·ë¹½¥´¥Á¥ã¥´¥Á¥ã¤·¤Æ¤¤¤Æ¤ä¤ê¤Ë¤¯¤¤¤Î¤Ç¡¢
·ÈÂÓÍѤΥâ¥Ð¥¤¥ë¥µ¥¤¥È¤ò»È¤¤¤Þ¤¹¡¢
¥·¥ó¥×¥ë¤Ê²èÌ̤ʤΤǡ¢¤³¤Á¤é¤Î¤Û¤¦¤¬Ä½¤ê¤Þ¤¹¡£


¼«Æ°ÇäÇã¤ò¤·¤Æ¤ë¤È¤³¤í¤Îư²è¤ò»£¤Ã¤Æ¤ß¤Þ¤·¤¿¡¢
¸«¤ä¤¹¤¤¤è¤¦¤Ësleep¤ò»È¤Ã¤Æ¥¹¥Ô¡¼¥É¤òÃÙ¤¯¤·¤Æ¤Þ¤¹¡¢
¡Ê¼ÂºÝ¤ÎȯÃí¤Ï¤â¤Ã¤È¹â®¤Ç¤¹¡Ë
ID¤È¤«Ì¾Á°¤È¤«¤¬¤ª¤â¤¤¤Ã¤­¤ê½Ð¤Á¤ã¤Ã¤Æ¤ë¤Î¤Ç¡¢¾å¤Î¤Û¤¦¤ÏÀڤäƤޤ¹£÷



¥¢¥¯¥»¥¹¥«¥¦¥ó¥¿¡¼
  • º£Æü¡§
  • ºòÆü¡§
  • Î߷ס§