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

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

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



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


£Ã£è£á£ð£ô£å£ò.£µ£± [ ¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à£±£±¡§¾×ÆÍ¤Î¼ÂÂÎ ]

¢£¥­¥ã¥é¥¯¥¿¡¼¤È¾×ÆÍȽÄê

Á°²ó¤Ï¾×ÆÍȽÄê¤Ë¤Ä¤¤¤Æ²òÀ⤷¤Þ¤·¤¿¡£¾×ÆÍȽÄê¤Î´ðËܤˤĤ¤¤Æ¤Ï¡¢Á°²ó¤Î¹ÖºÂ¤ò¥­¥Á¥ó¤ÈÍý²ò¤·¤Æ¤¤¤ì¤ÐÂç¾æÉפǤ¹¡£

¤µ¤Æº£²ó¤Ï¡¢¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Ë¾×ÆÍȽÄê¤ò¼ÂÁõ¤µ¤»¡¢¼ÂºÝ¤ËŨ¥­¥ã¥é¥¯¥¿¡¼¤ò¹¶·â¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤Þ¤¹¡£
¤¿¤À¤·¡¢¼ÂºÝ¤Ë¥³¡¼¥É¤ò½ñ¤­»Ï¤á¤ëÁ°¤Ë¡¢¡Ø¾×ÆÍȽÄê¤È¤¢¤¿¤êȽÄê¤Î°ã¤¤¡Ù¤Ë¤Ä¤¤¤Æ¹Í¤¨¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£¾×ÆÍȽÄê¤È¡¢¤¢¤¿¤êȽÄê¡¢¤³¤Î¤Õ¤¿¤Ä¤Ï¤Ê¤ó¤È¤Ê¤¯Æ±¤¸¤è¤¦¤Ê´¶¤¸¤¬¤·¤Þ¤¹¤¬¡¢¼Â¤Ï·ë¹½°ã¤¤¤Þ¤¹¡£¤Þ¤º¤Ï¤³¤Î°ã¤¤¤«¤é¹Í¤¨¤Æ¤¤¤­¤Þ¤·¤ç¤¦¡£


¤µ¤Æ¡¢¤½¤ì¤Ç¤Ï¾×ÆÍȽÄê¤È¤¢¤¿¤êȽÄê¤Î°ã¤¤¤È¤Ï²¿¤Ç¤·¤ç¤¦¤«¡©¡¡°ìÈÌŪ¤Ë¤Ï¤É¤¦¹Í¤¨¤é¤ì¤Æ¤¤¤ë¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¤¬¡¢¾¯¤Ê¤¯¤È¤â»ä¤Ï¼¡¤Î¤è¤¦¤Ë¶èÊ̤·¤Æ¤¤¤Þ¤¹¡£

¾×ÆÍȽÄê¡§
¾×ÆÍ¤·¤Æ¤¤¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ÆÈ½Äꤹ¤ë¤³¤È¡£
¤Ä¤Þ¤êȽÄꤹ¤ëºî¶È¤Î¤³¤È¡£

¤¢¤¿¤êȽÄê¡§
¥­¥ã¥é¥¯¥¿¡¼¤Î¼ÂÂΤòɽ¤¹ÆÃÄê¤ÎÉô°Ì¡£
¼ÂºÝ¤Î¥­¥ã¥é¥¯¥¿¡¼¤Î¡¢¾×ÆÍ¤òȽÄꤹ¤ë¼ÂÂÎÉôʬ¡£

¤Á¤ç¤Ã¤È¤¤¤¤ÆüËܸ줬É⤫¤Ó¤Þ¤»¤ó¡Ä¡Ä¡£¥¤¥á¡¼¥¸¤·¤Å¤é¤«¤Ã¤¿¤é¤¹¤¤¤Þ¤»¤ó¡£¤Ê¤ó¤È¤Ê¤¯»¡¤·¤Æ¤¯¤À¤µ¤¤¡£

¾×ÆÍȽÄê¤È¤Ï¡¢¤Õ¤¿¤Ä¤ÎʪÂΤ¬¾×ÆÍ¤·¤Æ¤¤¤ë¤«¤ò¼ÂºÝ¤ËȽÄꤹ¤ëºî¶È¤Ç¤¹¡£¤¤¤¦¤Ê¤ì¤Ð¡¢¤½¤Î¥í¥¸¥Ã¥¯¤Î¤³¤È¤Ç¤¹¡£
¤½¤ì¤ËÂФ·¤Æ¡¢¤¢¤¿¤êȽÄê¤È¤Ï¡¢¥­¥ã¥é¥¯¥¿¡¼¼«ÂΤ¬»ý¤Ã¤Æ¤¤¤ë¼ÂÂÎÉôʬ¤Î¤³¤È¤Ç¤¹¡£Àè¤Û¤É¤â½ñ¤¤¤¿¤è¤¦¤Ë¡¢°ìÈÌŪ¤Ë¤³¤Î¤è¤¦¤Ê°ã¤¤¤¬ÌÀ³Î¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤«¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£¤¿¤À¡¢Ëֺܹ¤Ǥϡ¢¤³¤Î¤è¤¦¤ËÁÐÊý¤Î°ã¤¤¤òÄêµÁ¤·¤Þ¤¹¡£¤³¤³¤«¤éÀè¤ËÆÉ¤ß¿Ê¤á¤Æ¤¤¤¯²áÄø¤Ç¤Ï¡¢¤³¤Î°ã¤¤¤òÍý²ò¤·¤¿¤¦¤¨¤ÇÆÉ¤ó¤Ç¤ß¤Æ¤¯¤À¤µ¤¤¡£


¢£¥­¥ã¥é¥¯¥¿¡¼¤ÎÂ礭¤µ¤È¼ÂÂÎ

¤µ¤Æ¡¢º£²óºîÀ®¤·¤Æ¤¤¤ë¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Ç¤Ï¡¢ÀÖ¤¤¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤¬Åо줷¤Þ¤¹¤Í¡£¤½¤·¤Æ¡¢¤½¤Î¥­¥ã¥é¥¯¥¿¡¼¤Î¥Ç¡¼¥¿¤ò°·¤¤¤ä¤¹¤¯¤¹¤ë¤¿¤á¤Ë¡¢¹½Â¤ÂÎ(Àµ¼°Ì¾¥æ¡¼¥¶¡¼ÄêµÁ·¿ÊÑ¿ô)¤òÍøÍѤ·¤Æ¥Ç¡¼¥¿¤ò´ÉÍý¤·¤Æ¤¤¤Þ¤·¤¿¡£¤³¤³¤Þ¤Ç¤ÏÂç¾æÉפǤ¹¤«¡©¡¡¤â¤·É԰¤ʤ顢¹½Â¤ÂΤˤĤ¤¤Æ°ÊÁ°²òÀ⤷¤¿¹ÖºÂ¤¬¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢¤½¤Á¤é¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¤Í(Chapter43¤ò»²¾È)¡£

¤µ¤é¤Ë¡¢¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤ÎºÂɸ·×»»¤ò¹Ô¤¤¤ä¤¹¤¯¤¹¤ë¤¿¤á¤Ë¡¢Äê¿ô¤ò»È¤Ã¤Æ¡¢¥­¥ã¥é¥¯¥¿¡¼¤½¤Î¤â¤Î¤¬¤É¤Î¤¯¤é¤¤¤ÎÂ礭¤µ¤Ê¤Î¤«¤ò¡¢¤¢¤é¤«¤¸¤áÄêµÁ¤·¤Æ¤¤¤Þ¤·¤¿¤Í¡£

'¢£¥­¥ã¥é¥¯¥¿¡¼¡¡¹½Â¤ÂÎÀë¸À

Type Chara
    X As Single '²£°ÌÃÖ
    Y As Single '½Ä°ÌÃÖ
    W As Single '²£Éý
    H As Single '½ÄÉý
    Lif As Long '¥é¥¤¥Õ
    Typ As Long '¥¿¥¤¥×
    Par As Long 'ÈÆÍѥѥé¥á¡¼¥¿
End Type


'¢¥Äê¿ôÀë¸À

Public Const Player_Size As Single = 9
'¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤Î¼ÂºÝ¤ÎÂ礭¤µ

¤µ¤Æ¡¢º£¹¹¤³¤ó¤Ê¤â¤Î¤ò»ý¤Á½Ð¤·¤Æ¡¢²¿¤¬¸À¤¤¤¿¤¤¤Î¤«¤È»×¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤Í¡£

¤½¤ì¤Ç¤Ï¥­¥ã¥é¥¯¥¿¡¼¹½Â¤ÂΤò¤è¤¯¸«¤Æ²¼¤µ¤¤¡£¤½¤ÎÃæ¤Ë¡Ø W ¡Ä¡Ä ²£Éý ¡Ù¤È¡Ø H ¡Ä¡Ä½ÄÉý ¡Ù¤È¤¤¤¦Í×ÁǤ¬¤¢¤ê¤Þ¤¹¤Í¡£
¤Ç¤â¤³¤ì¤Ã¤Æ¹Í¤¨¤Æ¤ß¤ë¤È¾¯¤·ÊѤÀ¤È»×¤¤¤Þ¤»¤ó¤«¡©¡¡¤À¤Ã¤Æ¡¢¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤ÎÂ礭¤µ¤Ï¡¢¤½¤Î¤¢¤ÈÄê¿ôPlayer_Size¤È¤·¤ÆÀë¸À¤µ¤ì¤Æ¤¤¤Þ¤¹¤è¤Í¡£²£Éý¤È½ÄÉý¤Ê¤ó¤Æ¡¢¤è¤¦¤Ï¥­¥ã¥é¥¯¥¿¡¼¤ÎÂ礭¤µ¤òɽ¤¹¤ï¤±¤Ç¤¹¤«¤é¡¢Æ±¤¸¤Ê¤ó¤¸¤ã¤Ê¤¤¤Î¡¢¤È»×¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

¤µ¤¡º£²ó¤Î¥Ý¥¤¥ó¥È¤Ï¤³¤³¤Ç¤¹¡£
¤Ê¤¼¡¢Â礭¤µ¤òɽ¤¹¹½Â¤ÂΤÎÍ×ÁǤȡ¢Â礭¤µ¤òɽ¤¹Äê¿ô¤È¡¢»÷¤¿¤è¤¦¤Ê¤â¤Î¤¬¤Õ¤¿¤Ä¤¢¤ë¤Î¤«¡£²èÁü¤ò»È¤Ã¤ÆÀâÌÀ¤·¤Þ¤¹¤Î¤Ç¡¢¤½¤Î°ã¤¤¤ò¤è¤¯Íý²ò¤·¤Æ¤¯¤À¤µ¤¤¡£

¤Þ¤º¡¢Äê¿ô¤È¤·¤ÆÀë¸À¤·¤Æ¤¤¤ëPlayer_Size¤Ï¡¢¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤ÎÂ礭¤µ¤òɽ¤·¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤Ï¸À¤¤´¹¤¨¤ë¤È¡¢¥­¥ã¥é¥¯¥¿¡¼¤Îɽ¼¨¤Ë»È¤ï¤ì¤ë¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î¡¢¼ÂºÝ¤ÎÂ礭¤µ¤Ç¤¹¤Í¡£ºÂɸ·×»»¤Ë»È¤¤¤ä¤¹¤¯¤¹¤ë¤¿¤á¤Ë¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ëËÜÍè¤ÎÂ礭¤µ¤Î¡¢È¾Ê¬¤Î¿ôÃͤǤ¢¤ë9¤¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

280.gif

¤â¤·¡¢Á°²ó²òÀ⤷¤¿¾×ÆÍȽÄê¤ò¡¢¤³¤ÎÄê¿ô¤ò»È¤Ã¤Æ·×»»¤·¤¿¤é¤É¤¦¤Ê¤ë¤Ç¤·¤ç¤¦¤«¡£
¾×ÆÍȽÄê¤Ï¡¢£²¤Ä¤ÎʪÂΤˡ¢½Å¤Ê¤Ã¤Æ¤¤¤ëÉôʬ¤¬¤¢¤ë¤«¤É¤¦¤«¤òȽÄꤷ¤Þ¤¹¡£¤â¤·¡¢Äê¿ôPlayer_Size¤ò»È¤Ã¤Æ·×»»¤ò¹Ô¤Ã¤Æ¤·¤Þ¤¦¤È¡¢¼¡¤Î¤è¤¦¤Ê¾õÂ֤Ǥâ¾×ÆÍ¤·¤Æ¤¤¤ë¤ÈȽÃǤµ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

281.gif

¤³¤ì¤Ïº¤¤Ã¤¿ÌäÂê¤Ç¤¹¤Í¡£¼ÂºÝ¤Ë¤Ï¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ëƱ»Î¤Ï³Î¤«¤Ë½Å¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤¬¡¢¥­¥ã¥é¥¯¥¿¡¼¤Î²èÁü¤¬É¬¤º¤·¤â¥³¥ó¥È¥í¡¼¥ë¤ÎÂ礭¤µ¤È°ìÃפ·¤Æ¤¤¤Ê¤¤¤¿¤á¤Ë¡¢¤³¤ì¤Ç¾×ÆÍ¤·¤¿¤³¤È¤Ë¤·¤Æ¤·¤Þ¤¦¤È¡¢¤«¤Ê¤êÉÔ¼«Á³¤Ê´¶¤¸¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

¤½¤³¤Ç¡¢Àè¤Û¤ÉÅо줷¤¿¹½Â¤ÂΤÎÍ×ÁÇ¡Ø W ¡¦ H ¡Ù¤¬³èÌö¤·¤Æ¤¯¤ì¤ë¤ï¤±¤Ç¤¹¡£
¹½Â¤ÂΤÎÍ×ÁǤǤ¢¤ë W ¤È H ¤Ë¤Ï¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Î¼ÂºÝ¤ÎÂ礭¤µ¤Ë¤Ï´Ø·¸¤Ê¤¯¡¢¥­¥ã¥é¥¯¥¿¡¼¤Î¸«¤¿Ìܤɤª¤ê¤Î²£Éý¤È½ÄÉý¤òÀßÄꤷ¤Æ¤ª¤­¤Þ¤¹¡£¤½¤·¤Æ¡¢¤½¤Î¿ôÃͤò¸µ¤Ë¡¢¾×ÆÍȽÄê¤ò¹Ô¤¦¤è¤¦¤Ë¤¹¤ë¤Î¤Ç¤¹¡£
¥­¥ã¥é¥¯¥¿¡¼¤Î¾×ÆÍȽÄê¤Ï¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤ÎÂ礭¤µ¤½¤Î¤â¤Î¤ò¸µ¤Ë·×»»¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢µ¼»÷Ū¤Ëºî¤ê½Ð¤·¤¿¤¢¤¿¤êȽÄêÍѤλͳѷÁ¤ò»È¤Ã¤Æ·×»»¤¹¤ë¤Î¤Ç¤¹¡£

282.gif

¤³¤Î²èÁü¤Ï¡¢¹½Â¤ÂΤÎÍ×ÁÇ W ¤È H ¤ò¡¢¤½¤ì¤¾¤ì4¤ËÀßÄꤷ¤¿¾ì¹ç¤Î¤¢¤¿¤êȽÄê¤òɽ¤·¤Æ¤¤¤Þ¤¹¡£¤³¤Î¤è¤¦¤Ê¥­¥ã¥é¥¯¥¿¡¼¤è¤ê¤â°ì²ó¤ê¾®¤µ¤¤¤°¤é¤¤¤ÎȽÄê¤Ë¤·¤Æ¤ª¤±¤Ð¡¢¾×ÆÍȽÄ꤬ÉÔ¼«Á³¤Ë´¶¤¸¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£
Ãæ±û¤Ë¤¢¤ë¾®¤µ¤á¤Î»Í³Ñ·Á¤Ç¾×ÆÍ¤òȽÃǤ¹¤ë¤Î¤Ç¡¢Î㤨¤Ð¥­¥ã¥é¥¯¥¿¡¼¤Î±©º¬¤Îü¤Ã¤³¤¢¤¿¤ê¤òŨ¤Î¥·¥ç¥Ã¥È¤¬Ä̤俤Ȥ·¤Æ¤â¡¢¤½¤ì¤Ç¾×ÆÍ¤È¤Ï¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¡£


¢£¥³¡¼¥É¤ò½¤Àµ¤¹¤ë

¤µ¤Æ¡¢¤½¤ì¤Ç¤Ï¼ÂºÝ¤Ë¥³¡¼¥É¤ò½¤Àµ¤·¤Æ¡¢¥×¥ì¥¤¥ä¡¼¤ÎÊü¤Ã¤¿¥·¥ç¥Ã¥È¤¬¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤ò¹¶·â¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£

º£²ó½¤Àµ¤¹¤ë¤Ù¤­²Õ½ê¤Ï¡¢¼¡¤ÎÉôʬ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£

­¡Å¨¤Î½Ð¸½´ÉÍý¥×¥í¥·¡¼¥¸¥ã¤ò½¤Àµ
­¢¥×¥ì¥¤¥ä¡¼¤Î¥·¥ç¥Ã¥È¤ò´ÉÍý¤¹¤ë¥×¥í¥·¡¼¥¸¥ã¤ò½¤Àµ


¤½¤ì¤Ç¤Ï¤Þ¤º­¡¤«¤é¤Ç¤¹¡£
Ũ¥­¥ã¥é¥¯¥¿¡¼¤ÎÀ¸À®¤ò¹Ô¤¦¥×¥í¥·¡¼¥¸¥ã¤Ç¤Ï¡¢¸½ºß¤Î¤È¤³¤í¡¢Å¨¤ÎÀ¸À®¤ÈƱ»þ¤Ë¡¢Äê¿ôEnemy_Size¤ò¤½¤Î¤Þ¤Þ W ¤È H ¤ËÂåÆþ¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤Î¤Þ¤Þ¤À¤È¡¢¼ÂºÝ¤Ë¤ÏÅö¤¿¤Ã¤Æ¤¤¤Ê¤¤¤è¤¦¤Ë¸«¤¨¤ëµ÷Î¥¤Ç¤â¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤Î¾×ÆÍȽÄ꤬µ¯¤³¤Ã¤Æ¤·¤Þ¤¦²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£¤½¤³¤Ç¡¢¤³¤ÎÉôʬ¤Ë¡¢¤Ò¤È¤Þ¤ï¤ê¾®¤µ¤¤ÃͤòÀßÄꤷ¤Æ¤ª¤­¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤Î¼ÂÂÎÉôʬ¤ò¾¯¤·¾®¤µ¤¯¤·¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£
¤½¤ì¤¬¡¢°Ê²¼¤Î¥³¡¼¥É¤Î­¡¤ÎÉôʬ¤Ë¤¢¤¿¤ê¤Þ¤¹¡£

Sub Enemy_Begin(X As Single, Y As Single, Typ As Long)

    Dim L As Long
    
    For L = 0 To 9
        With Enemy_Data(L)
            If .Lif = 0 Then
                .X = X
                .Y = Y
                .W = 5 '­¡
                .H = 5 '­¡
                .Typ = Typ
                .Lif = 1
                .Par = 0
                With UserForm1.Controls("Enemy" & L + 1)
                    .Visible = True
                    Select Case Typ
                        Case 1
                            .Picture = UserForm1.Enemy_s1.Picture
                        Case 2, 3
                            .Picture = UserForm1.Enemy_s2.Picture
                    End Select
                End With
                Exit For
            End If
        End With
    Next
    
End Sub

¤³¤ì¤Ï´Êñ¤Ç¤¹¤Í¡£
Í×ÁÇ W ¤È H ¤Ë¡¢5¤òÀßÄꤹ¤ë¤è¤¦¤ËÊѹ¹¤¹¤ë¤À¤±¤Ç¤¹¡£

¤µ¤ÆÂ³¤¤¤Æ¤Ï¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤ÎÊü¤Ã¤¿¥·¥ç¥Ã¥È¤Î½èÍý¤ò½¤Àµ¤·¤Þ¤¹¡£
¤³¤Á¤é¤Ï·ë¹½¹Ô¿ô¤¬Â¿¤¤¤Ç¤¹¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£

Á°²ó²òÀ⤷¤¿¡¢¾×ÆÍȽÄê¤Î¤ä¤êÊý¤¬Íý²ò¤Ç¤­¤Æ¤¤¤ì¤Ð¡¢É¬¤º¥³¡¼¥É¤ò¸«¤¿¤À¤±¤Ç»ÅÁȤߤ¬¤ï¤«¤ë¤Ï¤º¤Ç¤¹¡£°ì¸«¤·¤ÆÊ¸»ú¿ô¤¬Â¿¤¤¤Î¤Ç¡¢¤Á¤ç¤Ã¤È¤ï¤«¤ê¤Ë¤¯¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¤ä¤Ã¤Æ¤¤¤ë¤³¤È¤ÏÁ°²ó¤ÎÆâÍÆ¤ÈÁ´¤¯Æ±¤¸¤Ç¤¹¡£

Sub P_Shot_Action()

    Dim L As Long
    Dim LL As Long '­¡

    For L = 0 To 4
        With P_Shot_Data(L)
            If .Vis Then
                .Y = .Y - 6
                If .Y < -5 Then .Vis = False
                For LL = 0 To 9 '­¢
                    If Enemy_Data(LL).Lif > 0 Then
                        If .X - 2 < Enemy_Data(LL).X + Enemy_Data(LL).W Then
                            If .X + 2 > Enemy_Data(LL).X - Enemy_Data(LL).W Then
                                If .Y - 2 < Enemy_Data(LL).Y + Enemy_Data(LL).H Then
                                    If .Y + 2 > Enemy_Data(LL).Y - Enemy_Data(LL).H Then
                                        .Vis = False '­£
                                        With Enemy_Data(LL)
                                            .Lif = 0 '­¤
                                        End With
                                        Exit For '­¥
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next

                With UserForm1.Controls("P_Shot" & L + 1)
                    If P_Shot_Data(L).Vis Then
                        .Left = P_Shot_Data(L).X - Shot_Size
                        .Top = P_Shot_Data(L).Y - Shot_Size
                    Else
                        .Visible = False
                    End If
                End With
            End If
        End With
    Next

End Sub

¤³¤³¤Ç½ÅÍפȤʤëÉôʬ¤ò¡¢½ç¤ËÀâÌÀ¤·¤Æ¤¤¤­¤Þ¤¹¡£
Îп§¤Î¥³¡¼¥É¤Ç½ñ¤«¤ì¤Æ¤¤¤ëÉôʬ¤¬¡¢º£²óÄɲ䵤줿Éôʬ¤Ç¤¹¡£

¤Þ¤º­¡¤Ç¤¹¤¬¡¢¤³¤³¤Ç¿·¤·¤¯¥×¥í¥·¡¼¥¸¥ã¥ì¥Ù¥ë¤ÎÊÑ¿ô¤ò¤Ò¤È¤ÄÀë¸À¤·¤Æ¤¤¤Þ¤¹¡£
¤³¤ÎÊÑ¿ô¤Ï¡¢Å¨¤È¤Î¾×ÆÍȽÄê¤ò¹Ô¤¦ºÝ¤Ë»È¤¤¤Þ¤¹¡£¤¢¤È¤Ç½Ð¤Æ¤­¤Þ¤¹¤Î¤Ç¡¢Àë¸À¤·¤Æ¤ª¤¯¤Î¤ò˺¤ì¤Ê¤¤¤è¤¦¤Ë¤·¤Þ¤·¤ç¤¦¤Í¡£

¼¡¤Ï­¢¤Ç¤¹¡£
¤³¤³¤Ç¤ÏÁ´¤Æ¤ÎŨ¥­¥ã¥é¥¯¥¿¡¼¤È¤Î¾×ÆÍȽÄê¤ò¹Ô¤¦¤¿¤á¤Ë¡¢Forʸ¤ò»È¤Ã¤Æ·«¤êÊÖ¤·½èÍý¤ò¼Â¹Ô¤·¤Æ¤¤¤Þ¤¹¡£ÂçÀڤʤΤϡ¢Â¸ºß¤·¤Æ¤¤¤Ê¤¤Å¨¥­¥ã¥é¥¯¥¿¡¼¤È¤Î¾×ÆÍȽÄê¤ò¤·¤Æ¤â°ÕÌ£¤¬¤Ê¤¤¤Î¤Ç¡¢ºÇ½é¤Ë¡ØIf Enemy_Data(LL).Lif > 0 Then¡Ù¤È¤¤¤¦¾ò·ïʬ´ô¤¬¤«¤«¤Ã¤Æ¤¤¤ë¤È¤¤¤¦ÅÀ¤Ç¤¹¡£
Í×ÁÇLif¤¬£°¤Î¾ì¹ç¤Ï¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤Ï²èÌ̾å¤Ë¸ºß¤·¤Æ¤¤¤Þ¤»¤ó¡£¤Ç¤¹¤«¤é¡¢¤³¤Î¾ò·ïʬ´ô¤ò»È¤Ã¤Æ¡¢¸½ºßŨ¥­¥ã¥é¥¯¥¿¡¼¤¬É½¼¨¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤Æ¤¤¤ë¤Î¤Ç¤¹¤Í¡£
¸ºß¤·¤Æ¤¤¤Ê¤¤Å¨¥­¥ã¥é¥¯¥¿¡¼¤È¤Î¾×ÆÍȽÄê¤Ï¡¢ÌµÂ̤ʽèÍý¤¬È¯À¸¤¹¤ë¤À¤±¤Ç¤Ê¤¯¡¢¤Ê¤ó¤Ë¤â¤Ê¤¤¾ì½ê¤Ç¾¡¼ê¤Ë¾×ÆÍ¤¬µ¯¤­¤Æ¤·¤Þ¤¦¤Ê¤É¡¢ÉÔ¶ñ¹ç¤¬È¯À¸¤¹¤ë¸µ¤È¤Ê¤ê¤Þ¤¹¡£½½Ê¬µ¤¤ò¤Ä¤±¤Þ¤·¤ç¤¦¡£

³¤¤¤Æ­£¡£
¤³¤³¤Ç¤Ï¡¢¾×ÆÍ¤¬µ¯¤­¤Æ¤¤¤¿¾ì¹ç¤Ë¡¢¥·¥ç¥Ã¥È¼«ÂΤò¾Ã¤·¤Æ¤·¤Þ¤¦¤¿¤á¤Ë¡¢Í×ÁÇVis¤ËFalse¤òÂåÆþ¤·¤Æ¤¤¤Þ¤¹¡£²èÌ̤γ°¤Ë¾Ã¤¨¤Æ¤·¤Þ¤Ã¤¿¾ì¹ç¤ÈƱ¤¸°·¤¤¤Ë¤¹¤ë¤Î¤Ç¤¹¤Í¡£

­¤¤Ç¤Ï¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¼«ÂΤò¾Ã¤·¤Æ¤·¤Þ¤¦¤¿¤á¤Ë¡¢Í×ÁÇLif¤ò£°¤Ë¤·¤Æ¤¤¤Þ¤¹¡£¤³¤¦¤·¤Æ¤ª¤±¤Ð¡¢¥­¥ã¥é¥¯¥¿¡¼¼«ÂΤ¬Â¸ºß¤·¤Æ¤¤¤Ê¤¤¤³¤È¤Ë¤Ê¤ë¤Î¤Ç¡¢·ë²ÌŪ¤Ë²èÌ̾夫¤éŨ¥­¥ã¥é¥¯¥¿¡¼¤¬»Ñ¤ò¾Ã¤·¤Þ¤¹¡£
Enemy_Action¤È¤¤¤¦Ì¾Á°¤Î¥×¥í¥·¡¼¥¸¥ãÆâ¤Ç¡¢Í×ÁÇLif¤ÎÃͤò¸µ¤Ë¡¢¥¤¥á¡¼¥¸¥³¥ó¥È¥í¡¼¥ë¤Îɽ¼¨¡¢Èóɽ¼¨¤òÀÚ¤êÂØ¤¨¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤«¤é¡¢¤³¤³¤Ç¤ÏÍ×ÁÇLif¤Ë£°¤òÀßÄꤹ¤ë¤À¤±¤ÇOK¤Ç¤¹¡£

¤½¤·¤ÆºÇ¸å¤Ë­¥¤ÎÉôʬ¡£
¥·¥ç¥Ã¥È¤¬Å¨¥­¥ã¥é¥¯¥¿¡¼¤È¾×ÆÍ¤·¤Æ¤¤¤¿¾ì¹ç¡¢¤³¤³¤Ç¡ØExit For¡Ù¤È¤·¤Æ¡¢·«¤êÊÖ¤·½èÍý¤òÈ´¤±¤Æ¤ª¤­¤Þ¤¹¡£
¤³¤ì¤ò¤ä¤Ã¤Æ¤ª¤«¤Ê¤¤¤È¡¢·«¤êÊÖ¤·½èÍý¤Ë¤è¤Ã¤ÆÁ´¤Æ¤ÎŨ¤È¤Î¾×ÆÍȽÄ꤬¹Ô¤ï¤ì¤ë¤Î¤Ç¡¢¾ì¹ç¤Ë¤è¤Ã¤Æ¤ÏƱ»þ¤ËÊ£¿ô¤ÎŨ¤ËÃåÃÆ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Æ¤·¤Þ¤¤¤Þ¤¹¡££±È¯¤Î¥·¥ç¥Ã¥È¤Ç¡¢Æ±»þ¤Ë£²ÂΤÎŨ¤ò·âÇˤ¹¤ë¡¢¤Ê¤ó¤Æ¤³¤È¤¬µ¯¤³¤Ã¤¿¤ê¤¹¤ë¤ï¤±¤Ç¤¹¡£
¤â¤Á¤í¤ó¡¢¤½¤Î¤è¤¦¤Ê»ÅÍͤΥ²¡¼¥à¤òÀ߷פ·¤Æ¤¤¤ë¾ì¹ç¤ÏÊ̤Ǥ¹¤¬¡¢º£²ó¤Ï£±È¯¤Î¥·¥ç¥Ã¥È¤Ç¤Ï£±ÂΤÎŨ¥­¥ã¥é¥¯¥¿¡¼¤·¤«Åݤ»¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤ª¤­¤Þ¤¹¡£


¤µ¤Æ¡¢°ÊÁ°¤Þ¤Ç¤Ë´°À®¤·¤Æ¤¤¤ë¥³¡¼¥É¤ò¡¢º£²ó¤ÎÆâÍÆ¤Ë½¤Àµ¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤¹¤ë¤È¡¢¥×¥ì¥¤¥ä¡¼¤ÎÊü¤Ã¤¿¥·¥ç¥Ã¥È¤¬Å¨¥­¥ã¥é¥¯¥¿¡¼¤Ë¥Ò¥Ã¥È¤·¤¿¾ì¹ç¤Ë¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤¬Èóɽ¼¨¤Ë¤Ê¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¤Ï¤º¤Ç¤¹¡£

¤Ä¤Þ¤ê¡¢¥×¥ì¥¤¥ä¡¼¥­¥ã¥é¥¯¥¿¡¼¤¬¹¶·â¤¹¤ë»ÅÁȤߤ¬¼ÂÁõ¤Ç¤­¤¿¤ï¤±¤Ç¤¹¡ª
¤³¤ì¤Ç¡¢¤È¤ê¤¢¤¨¤º¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤È¤¤¤¦ÏÈÁȤߤΡ¢´ðËÜÉôʬ¤¬´°À®¤·¤¿¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤³¤ì¤«¤éÀ衢ƱÍͤιͤ¨Êý¤ò»È¤Ã¤Æ¡¢Å¨¥­¥ã¥é¥¯¥¿¡¼¤¬¤³¤Á¤é¤ò¹¶·â¤¹¤ë¤è¤¦¤Ë¤¹¤ë½èÍý¤Ê¤É¤òÄɲ䷤Ƥ¤¤­¤Þ¤¹¡£¤½¤¦¤¹¤ì¤Ð¡¢¤È¤ê¤¢¤¨¤ºÍ·¤Ö¤³¤È¤¬¤Ç¤­¤ë¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤¬´°À®¤Ç¤¹¡£
¤â¤¦°ì©¤Ç¤¹¡£¤¸¤Ã¤¯¤ê¤Ç¹½¤¤¤Þ¤»¤ó¡£¤·¤Ã¤«¤êÍý²ò¤ò¿¼¤á¤Ê¤¬¤éº£²ó¤Î¹ÖºÂÆâÍÆ¤ò¤·¤Ã¤«¤ê½¬ÆÀ¤·¤Æ¤¯¤À¤µ¤¤¡£


¥µ¥ó¥×¥ë¥À¥¦¥ó¥í¡¼¥É¡¡¢Í¡¡¥³¥Á¥é¤è¤ê¥À¥¦¥ó¥í¡¼¥É¤Ç¤­¤Þ¤¹¡£¡ÊÊÌ´Û¡Ë


¢£³Ê¸À

¾×ÆÍȽÄê¤È¤¢¤¿¤êȽÄê¤Ï°Û¤Ê¤ë³µÇ°
¸«¤¿Ìܤɤª¤ê¤ËȽÄ꤬¹Ô¤ï¤ì¤ë¤è¤¦¤Ë¤·¤Æ¤ª¤¯


¤³¤ì¤Ç¤«¤Ê¤ê¥²¡¼¥à¤é¤·¤¯¤Ê¤ê¤Þ¤¹¤Í¡£





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