ExcelVBA¥²¡¼¥à¥×¥í¥°¥é¥ß¥ó¥°¡©

½é¿´¼Ô¤Ç¤â¤­¤Ã¤È¤Ç¤­¤ë¡ª
£Å£ø£ã£å£ì¤µ¤¨»ý¤Ã¤Æ¤¤¤ì¤ÐÆÃÊ̤ʥ½¥Õ¥È¤ÏÉÔÍסª
¤¹¤°¤Ë¤Ç¤â»Ï¤á¤é¤ì¤ë´Êñ¥²¡¼¥à¥×¥í¥°¥é¥ß¥ó¥°¡ª
º£¤¹¤°»Ï¤á¤è¤¦¡ª

¥µ¥ó¥×¥ë¤ä¥²¡¼¥à¤Î¥À¥¦¥ó¥í¡¼¥É¤¬¤Ç¤­¤ëÊ̴ۤ⹥ɾ±¿±ÄÃæ¤Ç¤¹¡£
¤´°Õ¸«¤ä¤´¼ÁÌä¡¢¥²¡¼¥à¤Î´¶ÁÛÅù¤Ï·Ç¼¨ÈĤޤǤªµ¤·Ú¤Ë¡£À§Èó¡¢³§¤µ¤ó¤ÎÀ¼¤òʹ¤«¤»¤Æ¤¯¤À¤µ¤¤¡£±¿±Ä¡¢³«È¯¤ÎÎå¤ß¤Ë¤Ê¤ê¤Þ¤¹¡£



³Æ¼ï¥À¥¦¥ó¥í¡¼¥É¤Ï¥³¥Á¥é ¢­ °Õ¸«¡¦´¶ÁÛ¡¦¼ÁÌä¤Ï¥³¥Á¥é ¢­
±ÆÁÒ¸Ë Shadow warehouse ¥µ¥Ý¡¼¥È·Ç¼¨ÈÄ
¥Ö¥í¥°¤ÎÁ´ÂÎÁü¤Ï¥³¥Á¥é ¢­ ¥ê¥ó¥¯¤Î¥Ú¡¼¥¸¤Ï¥³¥Á¥é ¢­
¥µ¥¤¥È¥Þ¥Ã¥× ¼«Ê¬Ë̤ܰʥê¥ó¥¯


£Ã£è£á£ð£ô£å£ò.£³£µ [ °Üư½èÍý¤½¤Î£²¡§DoEvents ]

¢£¤ª¤µ¤é¤¤

º£²ó¤Ï¡¢Á°²ó¤Î³¤­¤Ç¤¹¡£
Á°²ó¤Ï¥­¥ã¥é¥¯¥¿¡¼¤Î°Üư½èÍý¤Ë¤Ä¤¤¤Æ¡¢¤½¤Î¹Í¤¨Êý¤ò²òÀ⤷¤Þ¤·¤¿¤Í¡£¥Æ¥ì¥Ó¥¢¥Ë¥á¤ÎÍ×ÎΤǡ¢¾¯¤·¤º¤Ä¥­¥ã¥é¥¯¥¿¡¼¤ò°Üư¤¹¤ë¤³¤È¤¬ÂçÀÚ¤À¤È¡¢²òÀ⤷¤Þ¤·¤¿¡£¶ñÂÎŪ¤Ë¤Ï¡¢·«¤êÊÖ¤·½èÍý¤ò»È¤Ã¤Æ¡¢£±²ó¥ë¡¼¥×¤¹¤ë¤´¤È¤Ë¾¯¤·¤º¤Ä¥­¥ã¥é¥¯¥¿¡¼¤òư¤«¤·¤Æ¤¤¤­¤Þ¤¹¡£

°ÊÁ°¾Ò²ð¤·¤¿¡¢¡ØÆ±´ü½èÍý¤ò¼è¤êÆþ¤ì¤¿¥á¥¤¥ó¥ë¡¼¥×¡Ù¤ò³Ð¤¨¤Æ¤¤¤ë¤Ç¤·¤ç¤¦¤«¡£¤³¤ì¤«¤éÀè¡¢Á´¤Æ¤³¤Î¥³¡¼¥É¤ò¼ç¼´¤Ë¤¹¤¨¤Æ¥³¡¼¥É¤òµ­½Ò¤·¤Æ¤¤¤­¤Þ¤¹¡£¤³¤ì¤ò¤·¤Ã¤«¤êÍý²ò¤·¤Æ¤¤¤Ê¤¤¤È¤³¤ì¤«¤éÀè¤Ë¿Ê¤à¤Î¤ÏÆñ¤·¤¤¤Ç¤¹¤Î¤Ç¡¢¤ï¤«¤é¤Ê¤¤¿Í¤ÏÀè¤Ë¤³¤ì¤ò¤·¤Ã¤«¤êÍý²ò¤·¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¤Í¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤Ï°ÊÁ°¤Î¹ÖºÂ¤Ç¾Ü¤·¤¯²òÀ⤷¤Æ¤¤¤Þ¤¹(Chapter32¡¦Chapter33¤ò»²¾È)¡£

¤Þ¤º¤ÏÀè½Ò¤Î¡ØÆ±´ü½èÍý¤ò¼è¤êÆþ¤ì¤¿¥á¥¤¥ó¥ë¡¼¥×¡Ù¤ò¸«¤Æ¤ß¤Þ¤·¤ç¤¦¡£

Sub Main()
    Dim Flg As Boolean
    Dim Stm As Long
    Flg = False
    Do Until Flg
        Stm = GetTickCount
        '¥²¡¼¥à¤Î½èÍý
        Do
            Call Sleep(1)
        Loop Until GetTickCount - Stm > £±²ó¤Î¥ë¡¼¥×»þ´Ö
    Loop
End Sub

¤³¤Î¥³¡¼¥É¤Î¥Ý¥¤¥ó¥È¤ò¤ª¤µ¤é¤¤¤·¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£

¤³¤Î¥³¡¼¥É¤Ç¤Ï¡¢ºÇ½é¤Ë¡ØFlg¡Ù¤È¤¤¤¦Boolean·¿¤ÎÊÑ¿ô¤òÀë¸À¤·¤Æ¤¤¤Þ¤¹¤Í¡£¤³¤ÎÊÑ¿ô¤Ï¥ë¡¼¥×¤Î½ªÎ»¤òÄêµÁ¤¹¤ë½ÅÍפÊÊÑ¿ô¤Ç¤¹¡£¥á¥¤¥ó¥ë¡¼¥×¤¬»Ï¤Þ¤ëÁ°¤Ë¡¢¤Þ¤º¤³¤ÎÊÑ¿ô¤ËFalse¤òÂåÆþ¤·¤Æ¤¤¤Þ¤¹¡£¤½¤·¤Æ¡¢¤½¤Î¤¢¤ÈÅо줹¤ëDoʸ¤¬¥á¥¤¥ó¥ë¡¼¥×¤Ë¤Ê¤ë¤ï¤±¤Ç¤¹¤¬¡¢¤½¤Î¥á¥¤¥ó¥ë¡¼¥×¤Î½ªÎ»¾ò·ï¤¬¡ØFlg¤¬True¤Ë¤Ê¤Ã¤¿¤È¤­¡Ù¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
¤Ä¤Þ¤ê¡¢·«¤êÊÖ¤·½èÍý¤ò½ªÎ»¤·¤¿¤¤¤È¤­¤Ë¤Ï¡¢ÊÑ¿ôFlg¤ËTrue¤òÂåÆþ¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¤Í¡£

¤½¤ì¤«¤é¤â¤¦¤Ò¤È¤Ä¡£¡Ø£±²ó¤Î¥ë¡¼¥×»þ´Ö¡Ù¤È¤Ê¤Ã¤Æ¤¤¤ëÉôʬ¡£¤³¤³¤Ë£±²ó¤¢¤¿¤ê¤Î¥ë¡¼¥×»þ´Ö¤òÄêµÁ¤·¤Þ¤¹¡£»þ´Ö¤Îñ°Ì¤¬¥ß¥êÉÃñ°Ì¤È¤Ê¤Ã¤Æ¤¤¤ëÅÀ¤ËÃí°Õ¤·¤Þ¤·¤ç¤¦¡£
¥ß¥êÉäȤϣ±£°£°£°Ê¬¤Î£±ÉÃñ°Ì¤òɽ¤·¤Þ¤¹¡£¤Ç¤¹¤«¤é£±Éäϣ±£°£°£°¥ß¥êÉäǤ¹¡££µÉäʤ飵£°£°£°¥ß¥êÉäǤ¹¤Í¡£
£±²ó¤Î¥ë¡¼¥×»þ´Ö¤ò£±ÉÃñ°Ì¤Ë¤·¤¿¤¤¤È¤­¤Ë¤Ï¡¢¤³¤Î¡Ø£±²ó¤Î¥ë¡¼¥×»þ´Ö¡Ù¤Ë¡Ø1000¡Ù¤ò»ØÄꤷ¤Þ¤¹¡££°.£µÉÃñ°Ì¤Ç¥ë¡¼¥×¤·¤¿¤¤¤Ê¤é¡Ø500¡Ù¤Ç¤¹¡£´Ö°ã¤¨¤Ê¤¤¤è¤¦¤Ë¤·¤Þ¤·¤ç¤¦¤Í¡£

¤½¤ì¤Ç¤Ï¼ÂºÝ¤Ë¥­¥ã¥é¥¯¥¿¡¼¤Î°Üư½èÍý¤òµ­½Ò¤·¤Æ¤¤¤¯¤³¤È¤Ë¤·¤Þ¤·¤ç¤¦¡£
º£²ó¤Ï£±²ó¥ë¡¼¥×¤¹¤ë¤´¤È¤Ë¡¢¥­¥ã¥é¥¯¥¿¡¼¤ò£±¥Ý¥¤¥ó¥È¤º¤Ä¡¢²¼¤Ë¸þ¤«¤Ã¤Æ°Üư¤¹¤ë¾ì¹ç¤ò¹Í¤¨¤Æ¤ß¤Þ¤¹¡£


¢£·«¤êÊÖ¤·½èÍý¤Ç°Üư¤¹¤ë

º£²ó¥­¥ã¥é¥¯¥¿¡¼¤ÎÌò³ä¤ò²Ì¤¿¤¹¤Î¤Ï¡¢Á°²ó¥²¡¼¥à²èÌ̤κ¸¾å¤ËÇÛÃÖ¤·¤¿¡Ø¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¡Ù¤Ç¤¹¡£

180.gif

¤³¤Î¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Ï¡¢ÆÃ¤Ë̾Á°¤Ê¤É¤òÊѹ¹¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢¥³¡¼¥É¤Çµ­½Ò¤¹¤ë¤È¤­¤Ï¡ØImage1¡Ù¤È¤¤¤¦Ì¾Á°¤Ç»ØÄꤷ¤Þ¤¹¡£¤³¤ì¤Ï¥­¥Á¥ó¤È³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¤Í¡£

¤½¤·¤Æ¡¢Àè¤Û¤É¤â½ñ¤¤¤¿¤è¤¦¤Ë¡¢º£²ó¤Ï¥­¥ã¥é¥¯¥¿¡¼¤ò£±¥Ý¥¤¥ó¥È¤º¤Ä²¼¤Ë¸þ¤«¤Ã¤Æ°Üư¤µ¤»¤Þ¤¹¡£²¼¤Ë¸þ¤«¤Ã¤Æ°Üư¤¹¤ë¤È¤¤¤¦¤³¤È¤Ï¡¢½ÄÊý¸þ¤Î°Üư¤Ë¤Ê¤ê¤Þ¤¹¡£½ÄÊý¸þ¤Î°ÌÃÖ¾ðÊó¤ò´ÉÍý¤·¤Æ¤¤¤ë¤Î¤Ï¡ØTop¥×¥í¥Ñ¥Æ¥£¡Ù¤Ç¤·¤¿¤Í¡£

¤Ä¤Þ¤ê¡¢£±²ó¥ë¡¼¥×¤¹¤ë¤¿¤Ó¤Ë¡¢Image1¤È¤¤¤¦¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î¡¢Top¥×¥í¥Ñ¥Æ¥£¤ò¾¯¤·¤º¤ÄÊѲ½¤µ¤»¤ì¤Ð¤¤¤¤¤ï¤±¤Ç¤¹¡£
£±²ó¤Î¥ë¡¼¥×¤Ç°Üư¤¹¤ëµ÷Î¥¤òÂ礭¤¯¤¹¤ì¤Ð¡¢°ìÅÙ¤ËŤ¤µ÷Î¥¤òư¤¯¤Î¤Ç¡¢¸«¤¿ÌܤϤ¹¤Ð¤ä¤¯°Üư¤·¤Æ¤¤¤ë¤è¤¦¤Ë¸«¤¨¤Þ¤¹¡£È¿ÂФˡ¢£±²ó¤Î¥ë¡¼¥×¤Ç°Üư¤¹¤ëµ÷Î¥¤ò¾®¤µ¤¯¤¹¤ì¤Ð¡¢¸«¤¿ÌܤϤæ¤Ã¤¯¤ê°Üư¤·¤Æ¤¤¤ë¤è¤¦¤Ë¸«¤¨¤Þ¤¹¤Í¡£
º£²ó¤Ï¡¢£±²ó¤Î¥ë¡¼¥×¤Ç¡¢£±¥Ý¥¤¥ó¥È¤º¤Ä°Üư¤¹¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡£¤³¤Î¤³¤È¤ò¤ò¥³¡¼¥É¤Çɽ¤¹¤È¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

Image1.Top = Image1.Top + 1

¤³¤Î¤è¤¦¤Ë¡¢Image1¤ÎTop¥×¥í¥Ñ¥Æ¥£¤Ë¡¢£±¤ò²Ã¤¨¤Æ¿·¤·¤¯ÀßÄꤷľ¤·¤Þ¤¹¡£¤³¤¦¤¹¤ë¤³¤È¤Ç¡¢£±²ó¥ë¡¼¥×¤¹¤ë¤¿¤Ó¤Ë¡¢Ëè²óTop¥×¥í¥Ñ¥Æ¥£¤¬¥×¥é¥¹£±¤º¤ÄÁý¤¨¤Æ¤¤¤¯¤È¤¤¤¦¤ï¤±¤Ç¤¹¡£

¤Ç¤¹¤¬¡¢¤³¤Î¤Þ¤Þ¤Ç¤Ï¡¢¥×¥í¥°¥é¥à¤¬±Ê±ó¤Ë»ß¤Þ¤ê¤Þ¤»¤ó¡£¤¿¤È¤¨²èÌ̾夫¤é¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤¬¸«¤¨¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤â¡¢¤³¤Î¤Þ¤Þ¤À¤È·×»»¾å¤Ï¤º¤Ã¤È²¼¤ÎÊý¸þ¤Ëư¤¤¤Æ¤¤¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤½¤³¤Ç¡¢¤É¤¦¤¤¤¦¤È¤­¤Ë½ªÎ»¤¹¤ë¤Î¤«¤òÄêµÁ¤·¤Æ¤ª¤­¤Þ¤¹¡£

º£²ó¤Ï¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î½Ä°ÌÃÖ¡¢¤Ä¤Þ¤êImage1¤ÎTop¥×¥í¥Ñ¥Æ¥£¤¬¡¢250¤òͤ¨¤ë¤È¤³¤í¤Þ¤Ç°Üư¤·¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤ç¤¦¡£

Àè¤Û¤É¤â½ñ¤¤¤¿¤è¤¦¤Ë¡¢¥á¥¤¥ó¥ë¡¼¥×¤¬½ªÎ»¤¹¤ë¾ò·ï¤Ï¡¢ÊÑ¿ôFlg¤ËTrue¤òÂåÆþ¤¹¤ë¤³¤È¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢Image1¤ÎTop¥×¥í¥Ñ¥Æ¥£¤¬250¤òͤ¨¤¿¤È¤­¤Ë¡¢ÊÑ¿ôFlg¤ËTrue¤òÂåÆþ¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¡£¤³¤ì¤ò¥³¡¼¥É¤Çɽ¤¹¤È¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

If Image1.Top > 250 Then
    Flg = True
End If

Ifʸ¤ò»È¤Ã¤Æ¡¢½Ä°ÌÃÖ¤¬250¤òͤ¨¤Æ¤¤¤ë¤«¤É¤¦¤«¤òËè²ó¥Á¥§¥Ã¥¯¤·¤Þ¤¹¡£¤â¤·¡¢½Ä°ÌÃÖ¤¬250¤òͤ¨¤Æ¤¤¤¿¾ì¹ç¤Ë¤Ï¡¢Doʸ¤Î½ªÎ»¾ò·ï¤òËþ¤¿¤¹¤è¤¦¤ËÀßÄꤹ¤ì¤Ð¤¤¤¤¤ï¤±¤Ç¤¹¡£
¤³¤ì¤Ç¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î½Ä°ÌÃÖ¤¬¡¢250¥Ý¥¤¥ó¥È¤è¤êÂ礭¤¯¤Ê¤Ã¤¿»þÅÀ¤Ç¡¢¥á¥¤¥ó¥ë¡¼¥×¤¬½ªÎ»¤·¡¢·ë²ÌŪ¤Ë½èÍý¤¬»ß¤Þ¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

¤µ¤Æ¡¢¤È¤ê¤¢¤¨¤º¤³¤ì¤Ç°Üư¤Ë´Ø¤¹¤ë½èÍý¤ÏOK¤Ç¤¹¡£
¤¿¤À¤·¡¢¤â¤¦¤Ò¤È¤Ä¡¢¤È¤Æ¤âÂçÀڤʤ³¤È¤¬»Ä¤Ã¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤ò¥­¥Á¥ó¤È¤ä¤Ã¤Æ¤ª¤«¤Ê¤¤¤È¡¢¸¶°øÉÔÌÀ¤ÎÉÔ¶ñ¹ç¤ËǺ¤Þ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¼ÂºÝ¡¢»ä¤Ï¤è¤¯¤³¤ì¤Ç¥Ï¥Þ¤Ã¤Æ²¿»þ´Ö¤âǺ¤ó¤À¤ê¤·¤Þ¤·¤¿¡£


¢£DoEventsÍÍÅоì

VBA¤Î¥³¡¼¥É¤¬¼Â¹Ô¤µ¤ì¤Æ¤¤¤ë¤È¤­¤È¤¤¤¦¤Î¤Ï¡¢¸¶Â§¤È¤·¤Æ¥×¥í¥°¥é¥à¤¬¥Ñ¥½¥³¥ó¤Î½èÍý¤òÀêÍ­¤·¤Æ¤¤¤Þ¤¹¡£
¤ï¤«¤ê¤ä¤¹¤¯¸À¤¦¤È¡¢²èÌ̤ι¹¿·¤Ê¤É¡¢Ä̾ï¤Ê¤é°Õ¼±¤·¤Ê¤¯¤Æ¤â¹Ô¤ï¤ì¤Æ¤¤¤ë¤è¤¦¤Ê¥Ñ¥½¥³¥ó¤Îº¬ËÜŪ¤Ê½èÍý¤¬¡¢¹Ô¤ï¤ì¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£¤³¤ì¤Ï¤É¤¦¤¤¤¦¤³¤È¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£

Î㤨¤Ð¡¢ÉáÃʥѥ½¥³¥ó¤ò»È¤Ã¤Æ¤¤¤ë¤È¤­¡¢¥¦¥£¥ó¥É¥¦¤Î¥¿¥¤¥È¥ë¥Ð¡¼¤ò¥É¥é¥Ã¥°¤·¤Ê¤¬¤éư¤«¤¹¤È¡¢¼«Í³¤Ë¥¦¥£¥ó¥É¥¦¤Î¾ì½ê¤ò°Üư¤Ç¤­¤Þ¤¹¤è¤Í¡£¥Õ¥©¥ë¥À¤ò¤¿¤¯¤µ¤óƱ»þ¤Ë³«¤¤¤Æ¤·¤Þ¤Ã¤¿¤È¤­¤Ê¤É¤Ï¡¢¤³¤Îµ¡Ç½¤¬Èó¾ï¤ËÊØÍø¤Ç¤¹¡£
¿Í´Ö¤«¤é¸«¤ë¤È¤³¤Î½èÍý¤Ï¡¢¤¿¤À¥¦¥£¥ó¥É¥¦¤¬Æ°¤¤¤Æ¤¤¤ë¤À¤±¤Ç¤¹¡£¤Ç¤¹¤¬¥Ñ¥½¥³¥ó¤«¤é¸«¤ë¤È¾¯¤·°ã¤¤¤Þ¤¹¡£
¥Ñ¥½¥³¥ó¤Ï¤³¤Î¥¦¥£¥ó¥É¥¦¤Î°Üư¤È¤¤¤¦Áàºî¤¬¹Ô¤ï¤ì¤ë¤È¡¢¤¤¤Ã¤¿¤óº£É½¼¨¤µ¤ì¤Æ¤¤¤ë²èÌ̤ò¾Ã¤·¤Æ¤«¤é¡¢°ÜưÀè¤ËÁ´¤¯Æ±¤¸¥ì¥¤¥¢¥¦¥È¤Î¿·¤·¤¤²èÌ̤òºÆÉ½¼¨¤·¤Æ¤¤¤Þ¤¹¡£¥æ¡¼¥¶¡¼¤¬¥¦¥£¥ó¥É¥¦¤ò°Üư¤·¤Æ¤¤¤ë´Ö¤º¤Ã¤È¡¢¾Ã¤·¤ÆÉÁ¤¤¤Æ¡¢¾Ã¤·¤ÆÉÁ¤¤¤Æ¡¢¤ò·«¤êÊÖ¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¡£

¥Ñ¥½¥³¥ó¤Îº¬ËÜŪ¤Ê½èÍý¤È¤Ï¡¢Î㤨¤Ð¤³¤Î¤è¤¦¤Ê½èÍý¤ò¸À¤¤¤Þ¤¹¡£¤½¤·¤Æ¡¢VBA¤Î¥³¡¼¥É¤¬¼Â¹Ô¤µ¤ì¤Æ¤¤¤ë¤È¤­¤È¤¤¤¦¤Î¤Ï¡¢¤³¤ì¤é¤Î½èÍý¤¬¹Ô¤ï¤ì¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¤¹¡£¤³¤ì¤Ïº¤¤Ã¤¿ÌäÂê¤Ç¤¹¡£

¤½¤³¤Ç¡¢¤³¤ÎÌäÂê¤ò²óÈò¤¹¤ëÊýË¡¤È¤·¤Æ¡ØDoEvents¡Ù¤È¤¤¤¦´Ø¿ô¤¬VBA¤Ë¤Ï¥­¥Á¥ó¤ÈÍѰդµ¤ì¤Æ¤¤¤Þ¤¹¡£
DoEvents´Ø¿ô¤Ï¡¢¸Æ¤Ó½Ð¤µ¤ì¤¿½Ö´Ö¤Ë¡¢¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à(º¬ËÜŪ¤Ê½èÍý¤ò¹Ô¤¦Éôʬ)¤Ë½èÍý¤òÌÀ¤±ÅϤ·¤Þ¤¹¡£¤³¤¦¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥¦¥£¥ó¥É¥¦¤ÎºÆÉÁ²è¤Ê¤É¤¬Àµ¾ï¤Ë¹Ô¤ï¤ì¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

¥á¥¤¥ó¥ë¡¼¥×¤ÎÃæ¤Ç¥­¥Á¥ó¤ÈDoEvents´Ø¿ô¤ò¸Æ¤Ó½Ð¤¹¤è¤¦¤Ë¤·¤Æ¤¤¤Ê¤¤¤È¡¢²èÌ̤ι¹¿·¤Ê¤É¤¬Àµ¾ï¤Ë¹Ô¤ï¤ì¤Þ¤»¤ó¡£¤³¤Î¤¿¤á¡¢¤»¤Ã¤«¤¯¥­¥ã¥é¥¯¥¿¡¼¤ò°Üư¤¹¤ë¥³¡¼¥É¤ò¼Â¹Ô¤µ¤»¤Æ¤¤¤ë¤Î¤Ë¡¢²èÌ̾å¤Î¸«¤¿Ìܤ¬Á´¤¯ÊѤï¤é¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤º¡¼¤Ã¤È¥­¥ã¥é¥¯¥¿¡¼¤ÏºÇ½é¤Î°ÌÃÖ¤«¤éư¤«¤Ê¤¤¤ï¤±¤Ç¤¹¡£
ÆâÉôŪ¤Ë¤Ï¥­¥Á¥ó¤È·×»»¤Ê¤É¤¬¹Ô¤ï¤ì¡¢ÀßÄ꤬ÊѲ½¤·¤Æ¤¤¤Þ¤¹¡£¤·¤«¤·¸«¤¿Ìܤ¬ÊѤï¤é¤Ê¤¤¤È¤¢¤Ã¤Æ¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£¥ë¡¼¥×¤¹¤ë¤¿¤Ó¤Ë¡¢¤­¤Á¤ó¤ÈDoEvents´Ø¿ô¤ò¸Æ¤Ó½Ð¤¹¤è¤¦¤Ë¤·¤Æ¤ª¤«¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£

¥³¡¼¥É¤Îµ­½Ò¤Ï¤É¤³¤â´Ö°ã¤Ã¤Æ¤¤¤Ê¤¤¤Î¤Ë¡¢²èÌ̾å¤Ç¥­¥ã¥é¥¯¥¿¡¼¤¬°Üư¤·¤Æ¤¯¤ì¤Ê¤¤¤È¤­¤Ê¤É¤Ï¡¢¤³¤ÎDoEvents´Ø¿ô¤Î¸Æ¤Ó½Ð¤·¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤³¤È¤¬Â¿¤¤¤Ç¤¹¡£²èÌ̤ι¹¿·¤¬¹Ô¤ï¤ì¤Ê¤¤¤ï¤±¤Ç¤¹¤«¤é¡¢°Üư¤·¤Æ¤¯¤ì¤Ê¤¤¤Î¤ÏÅö¤¿¤êÁ°¤Ç¤¹¡£Ëè²ó¾¯¤·¤º¤Ä°Üư¤µ¤»¤ë¤ï¤±¤Ç¤¹¤«¤é¡¢DoEvents´Ø¿ô¤òËè²ó¸Æ¤Ó½Ð¤¹¤è¤¦¤ËÀßÄꤷ¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£

¤³¤ì¤ÏÈó¾ï¤ËÂçÀڤʤ³¤È¤Ç¤¹¡£¤Ä¤¤¤Ä¤¤Ëº¤ì¤Æ¤·¤Þ¤¤¤¬¤Á¤Ê¤³¤È¤Ç¤¹¤«¤é¡¢¤·¤Ã¤«¤ê³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¤Í¡£


¢£¥³¡¼¥É¤ÎÁ´ÍÆ

¤µ¤Æ¡¢¤Á¤ç¤Ã¤ÈÁ°ÃÖ¤­¤¬Ä¹¤¯¤Ê¤ê¤Þ¤·¤¿¤¬¡¢¥á¥¤¥ó¥ë¡¼¥×¤Ë°Üư½èÍý¤ò²Ã¤¨¤¿¡¢´°À®ÈÇ¥³¡¼¥É¤òºÜ¤»¤Þ¤¹¡£¤³¤Î¥³¡¼¥É¤ò¡¢¡ØÉ¸½à¥â¥¸¥å¡¼¥ë¡Ù¤Ëµ­½Ò¤·¤Þ¤·¤ç¤¦¡£¿·¤·¤¯É¸½à¥â¥¸¥å¡¼¥ë¤ò½àÈ÷¤¹¤ë¤È¤­¤Ï¡¢¥á¥Ë¥å¡¼¤Î¡ØÁÞÆþ¡Ù¤«¤é¡ØÉ¸½à¥â¥¸¥å¡¼¥ë¡Ù¤òÁªÂò¤¹¤ì¤ÐOK¤Ç¤¹¡£¤³¤ì¤Ç¶õ¤Îɸ½à¥â¥¸¥å¡¼¥ë¤¬¤Ç¤­¤ë¤Ï¤º¤Ç¤¹¤«¤é¡¢¤½¤³¤Ë²¼¤Î¥³¡¼¥É¤òµ­½Ò¤¹¤ì¤Ð¤¤¤¤¤ï¤±¤Ç¤¹¡£

Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub Main()
    Dim Flg As Boolean
    Dim Stm As Long
    Flg = False
    Do Until Flg
        Stm = GetTickCount
        With UserForm1.Image1 '­¡
            .Top = .Top + 1 '­¢
            If .Top > 250 Then '­£
                MsgBox "°Üư´°Î»"
                Flg = True '­¤
            End If
        End With
        DoEvents '­¥
        Do
            Call Sleep(1)
        Loop Until GetTickCount - Stm > 50 '­¦
    Loop
End Sub

¤Á¤ç¤Ã¤ÈŤ¤¤Ç¤¹¤Î¤ÇÂçÊѤǤ¹¤¬¡¢¤æ¤Ã¤¯¤ê¤Ò¤È¤Ä¤Ò¤È¤Ä¸«¤Æ¤¤¤­¤Þ¤·¤ç¤¦¡£

¥á¥¤¥ó¥ë¡¼¥×¤ÎÃæ¤Ç¡¢With¥¹¥Æ¡¼¥È¥á¥ó¥È¤ò»È¤Ã¤Æ¤¤¤ëÉôʬ¤¬¤¢¤ê¤Þ¤¹¤Í¡£­¡¤ÎÉôʬ¤Ç¤¹¡£¤½¤³¤Ë¤Ï¡ØWith UserForm1.Image1¡Ù¤Èµ­½Ò¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
°ÊÁ°¡¢With¥¹¥Æ¡¼¥È¥á¥ó¥È¤Ë¤Ä¤¤¤Æ¤Ï²òÀ⤷¤Þ¤·¤¿¤Í(Chapter23¤ò»²¾È)¡£¡ØEnd With¡Ù¤È¤¤¤¦µ­½Ò¤¬¤¢¤ë¤Þ¤Ç¤Ï¡¢¥Ô¥ê¥ª¥É¤Ë³¤±¤Æ¥×¥í¥Ñ¥Æ¥£¤òµ­½Ò¤¹¤ë¤À¤±¤ÇƱÍͤÎÀßÄê¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ë¤è¤ê̵Â̤ò¾Ê¤­¡¢´Êά²½¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ç¤·¤¿¤Í¡£

¤½¤·¤Æ­¢¤Î¤È¤³¤í¤Ç¡¢Image1¤ÎTop¥×¥í¥Ñ¥Æ¥£¤ò¡¢£±²ó¥ë¡¼¥×¤¹¤ë¤¿¤Ó¤Ë£±¥Ý¥¤¥ó¥È¤º¤ÄÁý¤ä¤·¤Æ¤¤¤­¤Þ¤¹¡£¤³¤ì¤Ë¤è¤ê¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î½Ä°ÌÃÖ¤¬¡¢Ëè²ó¾¯¤·¤º¤Ä²¼¤Ë°Üư¤·¤Æ¤¤¤­¤Þ¤¹¡£

­£¤ÎÉôʬ¤Ç¤Ï¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î¸½ºß¤Î°ÌÃÖ¤¬¡¢250¤òͤ¨¤Æ¤¤¤Ê¤¤¤«¤É¤¦¤«¥Á¥§¥Ã¥¯¤·¤Æ¤¤¤Þ¤¹¡£¤â¤·¤â¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î½Ä°ÌÃÖ¤¬¡¢250¤è¤ê¤âÂ礭¤Ê¤Ã¤Æ¤¤¤¿¾ì¹ç¤Ë¤Ï¡¢­¤¤Ç¼¨¤¹¤è¤¦¤Ë¡¢¥á¥¤¥ó¥ë¡¼¥×¤Î½ªÎ»¾ò·ï¤Ç¤¢¤ë¡ØÊÑ¿ôFlg¤Ø¤ÎTrue¤ÎÂåÆþ¡Ù¤ò¹Ô¤¤¤Þ¤¹¡£¤³¤ì¤Ç¡¢¥á¥¤¥ó¥ë¡¼¥×¤¬½ªÎ»¤·¡¢·ë²ÌŪ¤Ë¥³¡¼¥É¤¬»ß¤Þ¤ë¤ï¤±¤Ç¤¹¡£

˺¤ì¤Æ¤Ï¤¤¤±¤Ê¤¤¤Î¤¬­¥¤ÎÉôʬ¡£¥á¥¤¥ó¥ë¡¼¥×¤Î´Ö¤ÏËè²ó¥­¥Á¥ó¤ÈDoEvents´Ø¿ô¤ò¸Æ¤Ó½Ð¤¹¤è¤¦¤Ë¤·¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£¤³¤ì¤¬¤Ê¤¤¤È¥­¥ã¥é¥¯¥¿¡¼¤Ï°Üư¤·¤Æ¤¤¤ë¤è¤¦¤Ë¸«¤¨¤Þ¤»¤ó¤«¤é¤Í¡£

­¦¤Ç¤Ï¡¢£±²ó¤Î¥ë¡¼¥×¤ò¤É¤ì¤¯¤é¤¤¤ÎÁᤵ¤Ç¹Ô¤¦¤«¤òÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£º£²ó¤Ï¤³¤³¤Ç£µ£°¥ß¥êÉäòÀßÄꤷ¤Æ¤¤¤Þ¤¹¡££µ£°¥ß¥êÉäǣ±²ó¥ë¡¼¥×¤¹¤ë¤È¤¤¤¦¤³¤È¤Ï¡¢£±É䬣±£°£°£°¥ß¥êÉäǤ¹¤«¤é¡¢£±Éô֤ˤª¤è¤½£²£°²ó¥ë¡¼¥×¤¹¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£

¤É¤¦¤Ç¤¹¤«¡©¡¡¥³¡¼¥É¤ÎÆâÍÆ¤Ï¥­¥Á¥ó¤ÈÍý²ò¤Ç¤­¤¿¤Ç¤·¤ç¤¦¤«¡£


¢£»Å¾å¤²

¤µ¤Æ¡¢ºÇ¸å¤Î»Å¾å¤²¤Ç¤¹¡£
Àè¤Û¤É¤Î¥³¡¼¥É¤Ç¡¢°Üư½èÍý¤Ï´°àú¤Ç¤¹¡£¤¢¤È¤Ï¡¢¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à¤ËÀßÃÖ¤·¤¿¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤«¤é¡¢¤³¤Î¥³¡¼¥É¤¬¸Æ¤Ó½Ð¤µ¤ì¤ë¤è¤¦¤Ë¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¤Í¡£¤³¤ì¤Ï¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤Ç»È¤Ã¤¿¤Î¤ÈƱ¤¸¼êË¡¤Ç¤¹¡£

¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤Î¥¯¥ê¥Ã¥¯¥¤¥Ù¥ó¥È¤Ë¡¢¼¡¤Î¤è¤¦¤Ëµ­½Ò¤·¤Þ¤·¤ç¤¦¡£

Private Sub CommandButton1_Click()
    Call Main
End Sub

¤³¤ì¤Ç¡¢¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­¤Ë¡¢Àè¤Û¤É¤Î¥³¡¼¥É¤¬¸Æ¤Ó½Ð¤µ¤ì¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¥Õ¥©¡¼¥à¤ò¼Â¹Ô¤·¤ÆÉ½¼¨¤µ¤»¥³¥Þ¥ó¥É¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤Ð¡¢ÀÖ¤¤µ¡ÂΤ¬²¼¤ÎÊý¸þ¤Ë°Üư¤·¤Æ¤¤¤¯¤Ï¤º¤Ç¤¹¡£°ìÄê¤Î¾ì½ê¤Ë㤹¤ë¤È¡¢¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¡¢½èÍý¤¬½ªÎ»¤·¤Þ¤¹¡£

¤µ¤Æ¡¢¤¦¤Þ¤¯¤¤¤Ã¤¿¤Ç¤·¤ç¤¦¤«¡£

Á°²ó¤Èº£²ó¤Î£²²ó¤Ç¡¢Èó¾ï¤Ëñ½ã¤Ê°Üư¤Î½èÍý¤Ë¤Ä¤¤¤Æ²òÀ⤷¤Æ¤­¤Þ¤·¤¿¡£²¼¤Ë¸þ¤«¤Ã¤Æ°Üư¤¹¤ë¤À¤±¤È¤¤¤¦Ã±½ã¤Ê½èÍý¤Ç¤â¡¢·ë¹½¹Í¤¨¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¤³¤È¤¬¤¿¤¯¤µ¤ó¤¢¤ê¤Þ¤·¤¿¤Í¡£
¤Á¤ç¤Ã¤ÈÌÌÅݤʵ¤¤¬¤·¤¿¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¤É¤Î¤è¤¦¤ÊÊ£»¨¤Ê°Üư½èÍý¤Ç¤¢¤Ã¤Æ¤â¡¢¹Í¤¨Êý¤ÏƱ¤¸¤Ç¤¹¡£º£²ó¤ÎÆâÍÆ¤ò¤·¤Ã¤«¤êÍý²ò¤·¤Æ¤¤¤ì¤Ð¡¢¤³¤ì¤«¤éÀè¤Î¹ÖºÂ¤Ç¤â¡¢¤¹¤ó¤Ê¤êÍý²ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤Ç¤·¤ç¤¦¡£

ÅÓÃæ¡¢DoEvents´Ø¿ô¤Î¸Æ¤Ó½Ð¤·¤Ê¤É¡¢¤È¤Æ¤âÂçÀڤʻÅÁȤߤ¬½Ð¤Æ¤­¤Þ¤·¤¿¡£¾Ç¤é¤º¡¢¤Ò¤È¤Ä¤Ò¤È¤Ä³Î¼Â¤Ë³Ð¤¨¤Æ¤¤¤Ã¤Æ¤¯¤À¤µ¤¤¡£


¢£³Ê¸À

£±²ó¤Î¥ë¡¼¥×¤Ç¤É¤Î¤¯¤é¤¤°Üư¤¹¤ë¤«ÄêµÁ¤¹¤ë
¤É¤Î¥¿¥¤¥ß¥ó¥°¤Ç½ªÎ»¤¹¤ë¤«¥­¥Á¥ó¤ÈÄêµÁ¤¹¤ë
DoEvents´Ø¿ô¤ò¥­¥Á¥ó¤È¸Æ¤Ó½Ð¤¹


³Ð¤¨¤ë¤³¤È¤¬¤¿¤¯¤µ¤ó¤¢¤Ã¤ÆÂçÊѤǤ¹¡£





Comment

Name
E-mail
URL
Comment
Pass  *
Secret¡© ¡Ê´ÉÍý¼Ô¤Ë¤À¤±É½¼¨¡Ë

¥×¥í¥°¥é¥ß¥ó¥°´ØÏ¢¸¡º÷



¥×¥í¥°¥é¥ß¥ó¥°¤ä ExcelVBA ¤Ë´ØÏ¢¤·¤¿¸¡º÷¤Ë¤Ï¤³¤Á¤é¤ò¤É¤¦¤¾¡£

¥á¡¼¥ë¥Õ¥©¡¼¥à

±Æ»Â¤Ëʪ¿½¤¹¤È¤¤¤¦Êý¤Ï¤³¤Á¤é

̾Á°¡¡:
¥á¡¼¥ë:
·ï̾¡¡:
ËÜʸ¡¡:

²Äǽ¤Ê¸Â¤êÍ×˾¤Ë¤Ï±þ¤¨¤Þ¤¹¤¬¡¢É¬¤ºÊÖ¿®¤ä²óÅú¤¬¤Ç¤­¤ë¤³¤È¤ò¡¢Êݾ㤹¤ë¤â¤Î¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£
¤´Î»¾µ¤¯¤À¤µ¤¤¡£

£Ã£è£á£ð£ô£å£ò£ó

¥³¥ó¥Æ¥ó¥Ä°ìÍ÷


¢£Chapter °ìÍ÷¢£
    Á´¤Æ¤ÎChapter¤Î°ìÍ÷¤Ç¤¹¡£
    Ä¾ÀÜ¥¢¥¯¥»¥¹¤·¤¿¤¤Êý¤Ï¤³¤Á¤é¤ò¤´ÍøÍѲ¼¤µ¤¤¡£

    £Ã£è£á£ð£ô£å£ò.£± [ ÃΤäƤª¤¯¤Ù¤­¿´ÆÀ ]
    £Ã£è£á£ð£ô£å£ò.£² [ £Å£ø£ã£å£ì¤Ã¤Æ¤Ê¤ó¤À¤í¤¦ ]
    £Ã£è£á£ð£ô£å£ò.£³ [ £Å£ø£ã£å£ì¤Î´ðËܲèÌÌ ]
    £Ã£è£á£ð£ô£å£ò.£´ [ £Ö£Â£Á¤È¤Ï¡© ]
    £Ã£è£á£ð£ô£å£ò.£µ [ ¥â¥¸¥å¡¼¥ë¤Ë¤Ä¤¤¤Æ ]
    £Ã£è£á£ð£ô£å£ò.£¶ [ ÊÑ¿ô ]
    £Ã£è£á£ð£ô£å£ò.£· [ ÊÑ¿ô¤Î·¿¤ÈÀë¸À ]
    £Ã£è£á£ð£ô£å£ò.£¸ [ ¥×¥í¥·¡¼¥¸¥ã¤È¥¹¥³¡¼¥× ]
    £Ã£è£á£ð£ô£å£ò.£¹ [ ¥²¡¼¥à¤Ä¤¯¤ëÍÍ¡¹¤Ê¼êË¡ ]
    £Ã£è£á£ð£ô£å£ò.£±£° [ ¥æ¡¼¥¶¡¼¥Õ¥©¡¼¥à ]
    £Ã£è£á£ð£ô£å£ò.£±£± [ ¥×¥í¥Ñ¥Æ¥£¥¦¥£¥ó¥É¥¦ ]
    £Ã£è£á£ð£ô£å£ò.£±£² [ Íð¿ô ]
    £Ã£è£á£ð£ô£å£ò.£±£³ [ ¾ò·ïʬ´ô ]
    £Ã£è£á£ð£ô£å£ò.£±£´ [ ¥²¡¼¥à²èÌ̤Υǥ¶¥¤¥ó ]
    £Ã£è£á£ð£ô£å£ò.£±£µ [ ¥³¡¼¥Éµ­½Ò¤Î´ðËܺîË¡ ]
    £Ã£è£á£ð£ô£å£ò.£±£¶ [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£± ̾Á°¤ò¤Ä¤±¤ë ]
    £Ã£è£á£ð£ô£å£ò.£±£· [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£² ¥Õ¥©¡¼¥à¤Îµ¯Æ° ]
    £Ã£è£á£ð£ô£å£ò.£±£¸ [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£³ Íð¿ô¤Î¼ï ]
    £Ã£è£á£ð£ô£å£ò.£±£¹ [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£´ ¥¤¥Ù¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£²£° [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£µ °ú¿ô ]
    £Ã£è£á£ð£ô£å£ò.£²£± [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£¶ ÌòȽÄê ]
    £Ã£è£á£ð£ô£å£ò.£²£² [ ¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¡§£· ͽ¬¤ÈÀ©¸Â ]
    £Ã£è£á£ð£ô£å£ò.£²£³ [ With¥¹¥Æ¡¼¥È¥á¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£²£´ [ ²èÁü¤òɽ¼¨¤µ¤»¤ë ]
    £Ã£è£á£ð£ô£å£ò.£²£µ [ ²èÁüɽ¼¨¤ÎȯŸ·Á ]
    £Ã£è£á£ð£ô£å£ò.£²£¶ [ ·«¤êÊÖ¤·½èÍý Forʸ ]
    £Ã£è£á£ð£ô£å£ò.£²£· [ ·«¤êÊÖ¤·½èÍý Do¡ÁLoopʸ ]
    £Ã£è£á£ð£ô£å£ò.£²£¸ [ Exit¥¹¥Æ¡¼¥È¥á¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£²£¹ [ ¥Õ¥©¡¼¥à¾å¤Î°ÌÃÖ¾ðÊó ]
    £Ã£è£á£ð£ô£å£ò.£³£° [ API´ðÁÃÃμ± ]
    £Ã£è£á£ð£ô£å£ò.£³£± [ APIÊä­Ãμ± ]
    £Ã£è£á£ð£ô£å£ò.£³£² [ ¥á¥¤¥ó¥ë¡¼¥×¤ò¹Í¤¨¤ë ]
    £Ã£è£á£ð£ô£å£ò.£³£³ [ Ʊ´ü½èÍý¤Î³µÇ° ]
    £Ã£è£á£ð£ô£å£ò.£³£´ [ °Üư½èÍý¤½¤Î£±¡§²èÌÌÀßÄê¤È¹Í¤¨Êý ]
    £Ã£è£á£ð£ô£å£ò.£³£µ [ °Üư½èÍý¤½¤Î£²¡§DoEvents ]
    £Ã£è£á£ð£ô£å£ò.£³£¶ [ °Üư½èÍý¤½¤Î£³¡§¥­¡¼ÆþÎÏȽÄêAPI ]
    £Ã£è£á£ð£ô£å£ò.£³£· [ ¾ò·ïʬ´ô¤Î¤µ¤é¤Ê¤ëõµá Select Case ]
    £Ã£è£á£ð£ô£å£ò.£³£¸ [ ¥¢¥Ë¥á¡¼¥·¥ç¥ó ]
    £Ã£è£á£ð£ô£å£ò.£³£¹ [ ÇÛÎóÊÑ¿ô ]
    £Ã£è£á£ð£ô£å£ò.£´£° [ ¥²¡¼¥à¤Î½é´ü²½ ]
    £Ã£è£á£ð£ô£å£ò.£´£± [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±¡§¥²¡¼¥àÀß·× ]
    £Ã£è£á£ð£ô£å£ò.£´£² [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£²¡§¥á¥¤¥ó¥×¥í¥»¥¹ ]
    £Ã£è£á£ð£ô£å£ò.£´£³ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£³¡§¹½Â¤ÂÎ ]
    £Ã£è£á£ð£ô£å£ò.£´£´ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£´¡§Äê¿ô ]
    £Ã£è£á£ð£ô£å£ò.£´£µ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£µ¡§¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼ ]
    £Ã£è£á£ð£ô£å£ò.£´£¶ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£¶¡§¥·¥ç¥Ã¥È¤ò·â¤Ä­¡ ]
    £Ã£è£á£ð£ô£å£ò.£´£· [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£·¡§¥·¥ç¥Ã¥È¤ò·â¤Ä­¢ ]
    £Ã£è£á£ð£ô£å£ò.£´£¸ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£¸¡§Mod±é»»»Ò¤Î³èÍÑ ]
    £Ã£è£á£ð£ô£å£ò.£´£¹ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£¹¡§Å¨¥­¥ã¥é¥¯¥¿¡¼Åоì ]
    £Ã£è£á£ð£ô£å£ò.£µ£° [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£°¡§¾×ÆÍȽÄê ]
    £Ã£è£á£ð£ô£å£ò.£µ£± [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£±¡§¾×ÆÍ¤Î¼ÂÂÎ ]
    £Ã£è£á£ð£ô£å£ò.£µ£² [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£²¡§Å¨¤Î¹¶·â ]
    £Ã£è£á£ð£ô£å£ò.£µ£³ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£³¡§Çúȯ¥¨¥Õ¥§¥¯¥È ]
    £Ã£è£á£ð£ô£å£ò.£µ£´ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£´¡§»Äµ¡¿ôɽ¼¨­¡ ]
    £Ã£è£á£ð£ô£å£ò.£µ£µ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£µ¡§»Äµ¡¿ôɽ¼¨­¢ ]
    £Ã£è£á£ð£ô£å£ò.£µ£¶ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£¶¡§¥¹¥³¥¢¤Îɽ¼¨ ]
    £Ã£è£á£ð£ô£å£ò.£µ£· [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£·¡§¥¿¥¤¥È¥ë²èÌÌ ]
    £Ã£è£á£ð£ô£å£ò.£µ£¸ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£¸¡§¥Ü¥¹¥­¥ã¥é¥¯¥¿¡¼ ]
    £Ã£è£á£ð£ô£å£ò.£µ£¹ [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£¹¡§ºÇ¸å¤Î»Å¾å¤²¤Ø ]
    £Ã£è£á£ð£ô£å£ò.£¶£° [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£²£°¡§¤¤¤è¤¤¤è´°À®STG ]
    £Ã£è£á£ð£ô£å£ò.£¶£± [ ¥«¡¼¥É¥²¡¼¥à¤Ç»È¤¨¤ë¤á¤¯¤ê¸ú²Ì ]
    £Ã£è£á£ð£ô£å£ò.£¶£² [ ¥é¥¸¥¢¥ó¤È³ÑÅÙ ]
    £Ã£è£á£ð£ô£å£ò.£¶£³ [ ¥é¥¸¥¢¥ó¤Î³èÍÑ¡§±ß±¿Æ° ]
    £Ã£è£á£ð£ô£å£ò.£¶£´ [ ¥é¥¸¥¢¥ó¤Î³èÍÑ¡§Ç¤°Õ¤Î³ÑÅÙ¤Ø°ÜÆ°¤¹¤ë ]
    £Ã£è£á£ð£ô£å£ò.£¶£µ [ API¤Ë¤è¤ë¥µ¥¦¥ó¥ÉºÆÀ¸¡§´ðÁà ]
    £Ã£è£á£ð£ô£å£ò.£¶£¶ [ API¤Ë¤è¤ë¥µ¥¦¥ó¥ÉºÆÀ¸¡§MIDI¤È¿½ÅºÆÀ¸ ]
    £Ã£è£á£ð£ô£å£ò.£¶£· [ API¤Ë¤è¤ë¥µ¥¦¥ó¥ÉºÆÀ¸¡§MCI¥³¥Þ¥ó¥É¤È¥ë¡¼¥×ºÆÀ¸ ]
    £Ã£è£á£ð£ô£å£ò.£¶£¸ [ Function ¥×¥í¥·¡¼¥¸¥ã ]
    £Ã£è£á£ð£ô£å£ò.£¶£¹ [ ÃÍÅϤ·¤È»²¾ÈÅϤ· ]
    £Ã£è£á£ð£ô£å£ò.£·£° [ ¥Ç¥Ð¥Ã¥°£±¡§¥¤¥ß¥Ç¥£¥¨¥¤¥È¥¦¥£¥ó¥É¥¦ ]
    £Ã£è£á£ð£ô£å£ò.£·£± [ ¥Ç¥Ð¥Ã¥°£²¡§¥í¡¼¥«¥ë¥¦¥£¥ó¥É¥¦ ]
    £Ã£è£á£ð£ô£å£ò.£·£² [ ¥Ç¥Ð¥Ã¥°£³¡§¥³¡¼¥É¼Â¹Ô¤ÎÃæÃÇ ]
    £Ã£è£á£ð£ô£å£ò.£·£³ [ ¥ª¥Ö¥¸¥§¥¯¥È¤Ã¤Æ¤Ê¤ó¤À ]
    £Ã£è£á£ð£ô£å£ò.£·£´ [ ¥×¥í¥Ñ¥Æ¥£¡¦¥á¥½¥Ã¥É¡¦¥¤¥Ù¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£·£µ [ ¥ª¥Ö¥¸¥§¥¯¥ÈÊÑ¿ô ]
    £Ã£è£á£ð£ô£å£ò.£·£¶ [ ¥ª¥Ö¥¸¥§¥¯¥È¤È¥³¥ì¥¯¥·¥ç¥ó ]
    £Ã£è£á£ð£ô£å£ò.£·£· [ ÆÃ¼ì¤Ê·«¤êÊÖ¤·¡§For Each ]
    £Ã£è£á£ð£ô£å£ò.£·£¸ [ ¥¨¥é¡¼½èÍý ]
    £Ã£è£á£ð£ô£å£ò.£·£¹ [ On Error ¤È GoToʸ ]
    £Ã£è£á£ð£ô£å£ò.£¸£° [ Resume¥¹¥Æ¡¼¥È¥á¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£¸£± [ ¥Ð¥¤¥È¤È¥Ó¥Ã¥È ]
    £Ã£è£á£ð£ô£å£ò.£¸£² [ ¥¦¥£¥ó¥É¥¦¥á¥Ã¥»¡¼¥¸¤È¥¤¥Ù¥ó¥È ]
    £Ã£è£á£ð£ô£å£ò.£¸£³ [ ʸ»úÎó¤Î´ðÁà ]
    £Ã£è£á£ð£ô£å£ò.£¸£´ [ ʸ»úÎóÁàºî­¡ ]
    £Ã£è£á£ð£ô£å£ò.£¸£µ [ ʸ»úÎóÁàºî­¢ ]
    £Ã£è£á£ð£ô£å£ò.£¸£¶ [ ¥¿¥¤¥Ô¥ó¥°¥²¡¼¥à£±¡§»ÅÍͤò·è¤á¤ë ]
    £Ã£è£á£ð£ô£å£ò.£¸£· [ ¥¿¥¤¥Ô¥ó¥°¥²¡¼¥à£²¡§¥­¡¼ÆþÎϸ¡ÃÎ ]
    £Ã£è£á£ð£ô£å£ò.£¸£¸ [ ¥¿¥¤¥Ô¥ó¥°¥²¡¼¥à£³¡§Ê¸»úÎó¾È¹ç ]
    £Ã£è£á£ð£ô£å£ò.£¸£¹ [ ¥¿¥¤¥Ô¥ó¥°¥²¡¼¥à£´¡§È½Äê´Ø¿ô ]


    ¥³¡¼¥É¤äVBA¤Ë´Ø¤¹¤ë¼ÁÌä¤Ê¤É¤Ï¥µ¥Ý¡¼¥È·Ç¼¨ÈÄ¡ÊÊ̴ۡˤޤǤªµ¤·Ú¤Ë¤É¤¦¤¾¡£




fc2 seotool Excel VBA ¥²¡¼¥à ¥×¥í¥°¥é¥ß¥ó¥° ¹ÖºÂ

By FC2¥Ö¥í¥°

º£¤¹¤°¥Ö¥í¥°¤òºî¤í¤¦¡ª

Powered By FC2¥Ö¥í¥°

Counter

DigitalClock

¥×¥í¥Õ¥£¡¼¥ë

Author:
±Æ»Â
£Å£ø£ã£å£ì¤ò¤³¤è¤Ê¤¯°¦¤¹¤ë¤Ò¤È¡£
£²¡Á£³Ç¯¤Û¤ÉÁ°¤«¤é¡¢£Å£ø£ã£å£ì£Ö£Â£Á¤Ë¤è¤ë¥²¡¼¥à¥×¥í¥°¥é¥ß¥ó¥°¤ËÌܳФá¤ë¡£
ÆÀ°Õ¤Ê³«È¯Ê¬Ìî¤Ï¥¿¥¤¥Ô¥ó¥°¥²¡¼¥à(¼«¾Î)¡£

IT¥Ö¥í¥°¥é¥ó¥­¥ó¥°

IT´ØÏ¢¤Î¥Ö¥í¥°ÀìÍÑ¥é¥ó¥­¥ó¥°¤Ç¤¹¡£ Îɤ«¤Ã¤¿¤é¤ò¥¯¥ê¥Ã¥¯¤ª´ê¤¤¤·¤Þ¤¹¡£

edita


edita.jp¡Ú¥¨¥Ç¥£¥¿¡Û


From Omoituki