August 03, 2009
Excel VBA ¥¹¥¥ë¥¢¥Ã¥×¥³¥ì¥¯¥·¥ç¥ó
Excel VBA ¥¹¥¥ë¥¢¥Ã¥×¥³¥ì¥¯¥·¥ç¥ó
¥¡¼¥ï¡¼¥É¡§
¡¡ÄÚºêÀ¿»Ê¡¢Excel¡¢VBA¡¢Tips¡¢µ»
Excel VBA¤Î¹âÅ٤ǼÂÁ©Åª¤Êµ»¤¬¼¨¤µ¤ì¤Æ¤¤¤ëËÜ¡£¹àÌܤ¬Â¿¤¤¤¬¡¢µ»½Ñ½ñ¤ÏÌܼ¡¤¬Ä¶½ÅÍײսê¤Ê¤Î¤Ç¡¢°Ê²¼¤Ë¤¹¤Ù¤ÆÎóµó¡£¤Þ¤¡¡¢¤³¤ÎÌܼ¡¤ò¸«¤ì¤Ð¡¢Excel VBA¤ò»È¤¦¿Í¤Ë¤Ï²¿¤¬¼¨¤µ¤ì¤Æ¤¤¤Æ¡¢¤É¤¦¤¤¤¦·¹¸þ¤ÎËܤǤ¢¤ë¤«¤¬¤ï¤«¤ë¤À¤í¤¦¡£µÕ¤Ë¡¢VBA¤Ï¤ª¤í¤«Excel¼«ÂÎÉáÃÊ»ÈÍѤ·¤Ê¤¤¿Í¤Ë¤È¤Ã¤Æ¤Ï¡¢²¿¤Î¤³¤È¤«¤ï¤«¤é¤Ê¤¤¤È»×¤ï¤ì¤ë¡£
- ¶¦ÄÌ¥»¥ëÈϰϤòɽ¤¹Range ¥ª¥Ö¥¸¥§¥¯¥È¤Î¼èÆÀ
- ¥»¥ëÈϰϤν¸¹ç¤òɽ¤¹Range ¥ª¥Ö¥¸¥§¥¯¥È¤Î¼èÆÀ
- Ï¢ÁÛÇÛÎó¤òºîÀ®
- ưŪÇÛÎó¤òÍøÍÑ
- ¥·¡¼¥È¾å¤Ø¹â®¤Ë¥Ç¡¼¥¿¤ò½ñ½Ð¤¹
- ¥·¡¼¥È¾å¤Î¥Ç¡¼¥¿¤ò¹â®¤ËÇÛÎó¤Ë¼è¹þ¤à
- VBA ¤ÇExcel ´Ø¿ô¤ò»ÈÍѤ·¤¿Êý¤¬¹â®½èÍý¤Ç¤¤ë¾ì¹ç¤¬¤¢¤ë
- »þ´Ö¤Îº¹Ê¬¤ò·×»»
- »þ´Ö¤Îº¹Ê¬¤ò¥ß¥êÉÃñ°Ì¤Ç·×»»
- ¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤Îʸ»úÎó¤òÁàºî
- ¥æ¡¼¥¶¥Õ¥©¡¼¥à¤Ç¥«¥ì¥ó¥À¡¼¤ò»È¤¦
- ±¦¥¯¥ê¥Ã¥¯¥á¥Ë¥å¡¼¤Ë¼«ºî¥Þ¥¯¥í¤òÄɲÃ
- ¥á¥Ë¥å¡¼¥Ð¡¼¤Ë¼«ºî¥Þ¥¯¥í¤òÄɲÃ
- ¥Ä¡¼¥ë¥Ð¡¼¤Ë¼«ºî¥Þ¥¯¥í¤òÅÐÏ¿
- ¥Ä¡¼¥ë¥Ð¡¼¤òÍøÍѤ·¤ÆFaceId ¤Î°ìÍ÷¤òºîÀ®
- ±¦¥¯¥ê¥Ã¥¯¥á¥Ë¥å¡¼¤Ë¥µ¥Ö¥á¥Ë¥å¡¼¤òºîÀ®
- ¥á¥Ë¥å¡¼¥Ð¡¼¤Ë¥µ¥Ö¥á¥Ë¥å¡¼¤òºîÀ®
- ¥Õ¥¡¥¤¥ëÁªÂò¥À¥¤¥¢¥í¥°¤òÍøÍÑ
- ¥Õ¥©¥ë¥À»²¾È¥À¥¤¥¢¥í¥°¤òÍøÍÑ
- CSV ·Á¼°¤Îʸ»úÎó¤òʬ²ò¤·¤ÆÇÛÎó¤Ë³ÊǼ
- ʸ»úÎóÇÛÎó¤Î¥Ç¡¼¥¿¤òCSV ·Á¼°¤Îʸ»úÎó¤Ë¤¹¤ë
- ¥Õ¥©¥ë¥ÀÆâ¤Ë¸ºß¤¹¤ë¥Õ¥¡¥¤¥ë¤Î°ìÍ÷¤òºîÀ®
- ¥Õ¥©¥ë¥ÀÆâ¤Ë¸ºß¤¹¤ë¥µ¥Ö¥Õ¥©¥ë¥À¤Î°ìÍ÷¤òºîÀ®
- ¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤òºîÀ®
- ¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÆâÍƤòÆɤ߹þ¤à
- ¥Õ¥©¥ë¥À¤òºîÀ®
- ¥Õ¥¡¥¤¥ë¡¢¥Õ¥©¥ë¥À¤òºï½ü
- ¥Õ¥¡¥¤¥ë¡¢¥Õ¥©¥ë¥À¤ò¥³¥Ô¡¼
- ¥Õ¥¡¥¤¥ë¡¢¥Õ¥©¥ë¥À¤Î¸ºß¤òÄ´¤Ù¤ë
- ¥Õ¥¡¥¤¥ëÁàºî¤òWin32 API ¤òÍøÍѤ·¤Æ¹âÅ٤˼¸½
- ¥Õ¥¡¥¤¥ë¥Ñ¥¹¤òʬ²ò
- ¥Õ¥¡¥¤¥ë¤Î¹Ô¿ô¤ò´Êñ¤ËÄ´¤Ù¤ë
- ¥Õ¥¡¥¤¥ë¤òÆɤ߼è¤êÀìÍѤdz«¤Êݸ¤»¤º¤ËÊĤ¸¤ë
- ¥Õ¥¡¥¤¥ë¤ò³«¤¯¤ÈƱ»þ¤Ëµ¯Æ°¤¹¤ë¥¤¥Ù¥ó¥È¥×¥í¥·¥¸¥ã¤òµ¡Ç½¤µ¤»¤Ê¤¤
- ¥Õ¥¡¥¤¥ë¤ò³«¤¯ºÝ¤Ë¼«Æ°¥ê¥ó¥¯¹¹¿·¤ò̵»ë
- XLSTART ¥Õ¥©¥ë¥À¤òÍøÍÑ
- ¾¤ÎExcel ¥Ö¥Ã¥¯¤Î¥Þ¥¯¥í¤ò¼Â¹Ô
- ¹½Â¤ÂΤòÄêµÁ¤·¤ÆÍøÍÑ
- ²èÌ̤Υ¹¥¯¥í¡¼¥ë¤òVBA ¤«¤é¹Ô¤¦
- VBA ¼Â¹ÔÃæ¤Ë¿ôÉôֽèÍý¤ò»ß¤á¤ë
- VBA ¤«¤éÈóƱ´ü½èÍý¤ò¼Â¹Ô
- VBA ¤«¤é¼Â¹Ô¤·¤¿ÈóƱ´ü½èÍý¤Î½ªÎ»¤ò´Æ»ë
- ¥¨¥¯¥¹¥×¥í¡¼¥é¤Ç¥Õ¥©¥ë¥À¤ò³«¤¯
- ¥¨¥é¡¼¤ò̵»ë
- ¥¨¥é¡¼È¯À¸»þ¤Ë½èÍý¤òʬ´ô
- ¥á¥Ã¥»¡¼¥¸¥Ü¥Ã¥¯¥¹¤ò¤È¤³¤È¤ó³èÍÑ
- ¥¤¥ó¥×¥Ã¥È¥Ü¥Ã¥¯¥¹¤ò¤È¤³¤È¤ó³èÍÑ
- ±ß¼þΨ¤ò¼èÆÀ
- Íð¿ô¤ò»È¤¦
- ¾ò·ïʬ´ô¤ò°ì¹Ô¤Ç¼Â¸½
- ÇÛÎó¤òºîÀ®¤»¤º¤Ë¥ê¥¹¥È¤ò»È¤Ã¤¿½èÍý¤ò¼Â¸½
- 2¤Ä¤Îʸ»úÎó¤òÈæ³Ó
- ¥°¥ë¡¼¥×¤òÍøÍѤ·¤¿Àޤꤿ¤¿¤ßµ¡Ç½¤òVBA ¤«¤éÀ©¸æ
- Excel ¥Õ¥¡¥¤¥ë¤Ë¸ºß¤¹¤ë¥ê¥ó¥¯¤òÄ´¤Ù¤ë
- ¥¡¼¥Ü¡¼¥ÉÁàºî¤òVBA ¤Ç¼Â¸½
- Ê£¿ô¤Î¥Õ¥¡¥¤¥ë¤Ë¸ºß¤¹¤ë¸Ä¿Í¾ðÊó¤ò°ìÅ٤˺ï½ü
- VBE ¤ò¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¤Çµ¯Æ°
- ÄêµÁ¤µ¤ì¤Æ¤¤¤ë¾ì½ê¤Ø¥¸¥ã¥ó¥×
- ÊÑ¿ô¤ä´Ø¿ô¤Î·¿¤òÄ´¤Ù¤ë
- ¥×¥í¥°¥é¥à¤Î¹Ô¤ò¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¤Çºï½ü/ ÄɲÃ
- ¥Ö¥Ã¥¯Æâ¤ÎÁ´¥â¥¸¥å¡¼¥ë¤òÂоݤˤ·¤¿Ê¸»úÎ󸡺÷
- ¥³¡¼¥É¥¦¥£¥ó¥É¥¦¤ò¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¤ÇÀÚ¤êÂؤ¨
- ¥â¥¸¥å¡¼¥ëÆâ¤Î¥×¥í¥·¥¸¥ã¤òÁ°¸å¤Ø¹Ô¤Ã¤¿¤êÍ褿¤ê
(Ìܼ¡¤«¤éÈ´¿è)
¤³¤ÎËܤϡ¢¥»¥ë¤Î¿ô¼°¤òÁàºî¤¹¤ëÄøÅÙ¤ÎExcel VBA¤ÎÆþÌç½ñŪ¤Ê¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢VBA¤Î´ðËܤϤ¢¤ëÄøÅ٤狼¤ë¿Í¸þ¤±¤Î¼ÂÁ©Åª¤ÊÆâÍƤȤʤäƤ¤¤ë¡£¤³¤ì¤Ï·ë¹½ÃΤé¤Ê¤¤¤³¤È¤¬Â¿¤¯ºÜ¤Ã¤Æ¤¤¤Æ¡¢ËÜÅö¤ËÈëÅÁ½ñ¤ß¤¿¤¤¤ÊÆâÍƤÀ¤Ã¤¿¡£
¤Þ¤º¡¢Excel VBA¤ÇÏ¢ÁÛÇÛÎ󤬻Ȥ¨¤ë¤È¤Ï»×¤ï¤Ê¤«¤Ã¤¿¡£¤³¤ì¤ÏÃΤé¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢¤Ê¤ë¤Û¤É¤È»×¤Ã¤¿¡£°Ê²¼¤Î¤è¤¦¤ËÄêµÁ¤¹¤ë¤è¤¦¤À¡£
¡¡'Ï¢ÁÛÇÛÎó¤òºîÀ®¤¹¤ë¡£Ï¢ÁÛÇÛÎó¤Ï¡¢Scripting.Dictionary¤È¤¤¤¦¥ª¥Ö¥¸¥§¥¯¥È¤òºîÀ®¤¹¤ë¤Î¤¬¥Ý¥¤¥ó¥È¤é¤·¤¤¡£¤µ¤é¤Ë¡¢Ï¢ÁÛÇÛÎó¤Î¾ì¹ç¤Ï¡¢ÇÛÎ󥤥ó¥Ç¥Ã¥¯¥¹¤¬Ç¤°Õ¤Î·¿¤Ç¤è¤¤¤é¤·¤¤¡£¤³¤ì¤âÊØÍø¤À¡£
¡¡Dim HS As Object
¡¡Set HS As CreateObject("Scripting.Dictionary")
¡¡
¡¡'Ï¢ÁÛÇÛÎó¤Ë¥Ç¡¼¥¿¤ò³ÊǼ¤¹¤ë¡£
¡¡HS.Add "¸¤", "Dog"
¡¡HS.Add "Ç", "Cat"
¡¡HS.Add "·§", "Bear"
(Ãæά)
¡¡¡¡Debug.Print HS.Item("¸¤")
(pp.017)
¤¢¤È¡¢·ë¹½¾×·âŪ¤À¤Ã¤¿¤¬¡¢¡Ø Tips05 ¥·¡¼¥È¾å¤Ø¹â®¤Ë¥Ç¡¼¥¿¤ò½ñ¤½Ð¤¹¡Ù¤È¤¤¤¦¤â¤Î¡£VBA½èÍý¤Ç¤Ï¡¢¿ôÀé·ï¤È¤¤¤¦¥Ç¡¼¥¿¤ò¥·¡¼¥È¤Î³Æ¥»¥ë¤Ë½ñ¤½Ð¤¹¡¢¤È¤¤¤¦¤â¤Î¤ò¤è¤¯¼ÂÁõ¤¹¤ë¤È»×¤ï¤ì¤ë¤¬¡¢¤½¤Î¼ÂÁõÊýË¡¤·¤À¤¤¤Ç¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹¤¬¤À¤¤¤Ö²þÁ±¤¹¤ë¤È¤¤¤¦¤â¤Î¡£¤¿¤¤¤Æ¤¤¤Î¿Í¤Ï¡¢²èÌ̤μ«Æ°ºÆÉÁ²è¤ò¥ª¥Õ¤Ë¤¹¤ë¡¢Application.ScreenUpdating¤òFalse¤Ë¤·¤Æ¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹²þÁ±¤Þ¤Ç¤¹¤ë¤È»×¤ï¤ì¤ë¤¬¡¢¤µ¤é¤Ë¤½¤Î°ìÊâÀ褬¤¢¤ë¤³¤È¤Ï¤¢¤Þ¤êÃΤé¤ì¤Æ¤¤¤Ê¤¤¤È»×¤¦¡£¼«Ê¬¤âÃΤé¤Ê¤«¤Ã¤¿¡£¤½¤ì¤¬°Ê²¼¤ÎÊýË¡¡£
Public Sub test3()11¹ÔÌܤΥ³¥á¥ó¥È¤Ë¡ØÆ󼡸µÇÛÎó¡Ù¤È¤¢¤ë¤Î¤Ë¡¢16¹ÔÌܤΥ³¥á¥ó¥È¤Ë¤Ï¡Ø2¼¡¸µÇÛÎó¡Ù¤È¼¨¤µ¤ì¤Æ¤¤¤¿¤Î¤Ç¡¢¤½¤Î¤Þ¤ÞÈ´¿è¡£
¡¡¡¡Application.ScreenUpdating = False '²èÌ̹¹¿·¤ÎÍÞ»ß
¡¡¡¡Dim lpl As Long, lp2 As Long
¡¡¡¡Dim dataArr(1000 - 1, 100 - 1) As Variant
¡¡¡¡' ¹Ô¿ôʬ¥ë¡¼¥×¤¹¤ë
¡¡¡¡For lpl = 1 To 1000
¡¡¡¡¡¡¡¡' ¹Ô¿ôʬ¥ë¡¼¥×¤¹¤ë
¡¡¡¡¡¡¡¡For lp2 = 1 To 100
¡¡¡¡¡¡¡¡¡¡¡¡'"¹Ô¿ô+¹Ô¿ô"¤ÎÃͤòÆ󼡸µÇÛÎó¤Ë³ÊǼ¤¹¤ë¡£
¡¡¡¡¡¡¡¡¡¡¡¡dataArr(lpl - 1, lp2 - 1) = lp1 + lp2
¡¡¡¡¡¡¡¡Next
¡¡¡¡Next
¡¡¡¡'ºîÀ®¤·¤¿2¼¡¸µÇÛÎó¤ò¥·¡¼¥È¤Ë°ì³ç½ñ½Ð¤·¤¹¤ë¡£
¡¡¡¡Range("A1:CV1000") = dataArr
¡¡¡¡Application.ScreenUpdating = True '²èÌ̹¹¿·¤ÎºÆ³«
End Sub(pp.028-029)
¾åµ¤Î´Ø¿ô¤Ï¡¢A1¤«¤éCV1000¤ÎÈϰϤΥ»¥ë¤Ë"¹Ô¿ô+Îó¿ô"¤ÎÃͤò½ñ¤½Ð¤¹Ã±½ã¤Ê½èÍý¤Ç¤¢¤ë¡£¼ÂºÝ¤Ë¾åµ¤ò¼Â¹Ô¤·¤Æ¤ß¤¿¤é¡¢¶Ã¤¯¤Û¤É®¤«¤Ã¤¿¡£Ëܽñ¤Ë¤è¤ì¤Ð¡¢ÉáÄ̤ËÆþ¤ì»Ò¥ë¡¼¥×¤ÎÃæ¤Ç¥»¥ë¤ÎÃͤòÀßÄꤹ¤ë¤â¤Î¤è¤ê¤â¡¢50Çܹ⮤Ǥ¢¤ë¤È¼¨¤µ¤ì¤Æ¤¤¤ë¡£2¼¡¸µÇÛÎó¤ÎÃͤòRange¥ª¥Ö¥¸¥§¥¯¥È¤Ë¥»¥Ã¥È¤¹¤ë¤Î¤¬¥Ý¥¤¥ó¥È¤È¤Ê¤ë¤è¤¦¤À¡£
¤³¤ì¤Ïñ½ã¤Ë¤¹¤´¤¤¤Ê¤¡¤È»×¤Ã¤¿¡£¥Ç¡¼¥¿·ï¿ô¤¬Ëüñ°Ì¤Î¤â¤Î¤òÆþ¤ì»Ò¥ë¡¼¥×½èÍý¤ò¤¹¤ë¤È¡¢¥á¥â¥ê¡¢CPU¤¬Éϼå¤ÊPC¤À¤È²èÌ̤¬¥Õ¥ê¡¼¥º¤·¤½¤¦¤Ë¤Ê¤ë¡£¤³¤ÎÊýË¡¤ÏÃΤé¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢¤â¤Î¤¹¤´¤¯¤Ø¡¼¡¢¤½¤ó¤ÊÊýË¡¤¬¤¢¤ë¤Î¤«!!¤È´¶Ã²¤·¤¿¡£¤Þ¤¿¡¢¤³¤¦¤¤¤¦½ñ¤Êý¤Ï¥Í¥Ã¥È¾å¤Ë¤Ï¤¢¤Þ¤êºÜ¤Ã¤Æ¤¤¤Ê¤¤¤È»×¤¦¡£
¾¤Ë¤â¤¤¤í¤¤¤í¤È¼¨¤·¤¿¤¤¤¬¡¢¤½¤ì¤Ï¤µ¤¹¤¬¤Ë¥Í¥¿¤Ð¤ì¤·¤¹¤®¤Ê¤Î¤Ç¡¢¼«½Å¡£
Tips¤Î¹ç´Ö¤ËÃø¼Ô¤Î°Õ¸«¤¬¼¨¤µ¤ì¤Æ¤¤¤ë¥³¥é¥à¤¬ºÜ¤Ã¤Æ¤¤¤ë¡£¤½¤³¤â¤È¤Æ¤âÊÙ¶¯¤Ë¤Ê¤ë¡£°Ê²¼¡¢¡Ø¥³¡¼¥É¤ÎÎɤ·°¤·¡Ù¤È¤¤¤¦¤â¤Î¤«¤é°ìÉôÈ´¿è¡£
¡¡¡ÉÎɤ¤¥×¥í¥°¥é¥à¡É¤È¤Ï¡¢Èó¾ï¤ËÄêµÁ¤·¤Å¤é¤¤¤â¤Î¤Ç¤¹¡£»ä¤â¤³¤ì¤Þ¤Ç¤¤¤¯¤Ä¤â¤Î¥×¥í¥°¥é¥à¤ò¸«¤ë¡¦½ñ¤¯¤·¤Æ¤¤Þ¤·¤¿¤¬¡¢¡Ö²ÄÆÉÀ¡×¤ò°Õ¼±¤·²á¤®¤Æñ½ã¤Ê¥×¥í¥°¥é¥à¹½Ê¸¤Ð¤«¤êÍøÍѤ·¤¿¤é¡Ö¹â®À¡×¤ò¼º¤Ã¤Æ¤·¤Þ¤Ã¤¿¤È¤«¡¢¥×¥í¥°¥é¥à¤Î¡Ö¹â®À¡×¤òÄɵڤ·¤¿¤é¡Ö³ÈÄ¥À¡×¤¬¤Ê¤¤¤â¤Î¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¤Ê¤É¡¢¤¤¤¯¤Ä¤â¤Î»öÎã¤òÌܤÎÅö¤¿¤ê¤Ë¤·¤Æ¤¤Þ¤·¤¿¡£¡ÉÎɤ¤¥×¥í¥°¥é¥à¡É¤Ïɬ¤º¤·¤âɾ²Á´ð½à¤ò¥ª¡¼¥ëA¤Ç¥¯¥ê¥¢¤¹¤ë¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢¥±¡¼¥¹¤Ë±þ¤¸¤¿¡Éɾ²Á¥Ð¥é¥ó¥¹¡É¤¬¤½¤³¤Ë¸ºß¤·¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£DȽÄ꤬¤É¤ÎÄøÅ٤Τâ¤Î¤«¡©¤Ë¤â¤è¤ë¤Î¤«¤Ê¤È»×¤Ã¤¿¡£¤Þ¤¡¡¢¤ä¤Ï¤ê°ìÈ֤βÝÂê¤ÏÀ¸»ºÀ¤À¤è¤Í¡£Ç¼´ü¤¬¤¤Ä¤¤¤È¤¤Ë¡¢¤¹¤°¤Ë»×¤¤¤Ä¤¤¤¿¥³¡¼¥É¤Ï¡¢ºÇÄã¸Â¤Î»ÅÍͤòËþ¤¿¤»¤ë¤¬¡¢²ÄÆÉÀ¤ä³ÈÄ¥À¡¢ÊݼéÀ¤¬Ä㤯¤Ê¤ê¤ä¤¹¤¤¤â¤Î¤Ç¤¢¤Ã¤¿¤ê¤¹¤ë¡£¤«¤È¤¤¤Ã¤Æ¡¢²ÄÆÉÀ¡¢³ÈÄ¥À¡¢ÊݼéÀ¤Þ¤Ç¤ò¹Íθ¤·¤Æ¼«Ê¬¤Ê¤ê¤ËǼÆÀ¤·¤Ä¤Ä¥¤¥±¤Æ¤¤¤ë¥³¡¼¥É¤ò½ñ¤¯»þ´Ö¤¬¤Ê¤¤¤È¡¢¤É¤¦¤·¤è¤¦¤«¤È¥¸¥ì¥ó¥Þ¤Ë´Ù¤Ã¤Æ¡¢·ë¶É¼«Ê¬¤Ç¤ÏǼÆÀ¤¤¤«¤Ê¤¤Èù̯¤Ê¥³¡¼¥É¤ò½ñ¤¯¤³¤È¤Ë¤Ê¤ë¡£¤½¤·¤Æ¡¢¸å¤Ç¥ê¥Õ¥¡¥¯¥¿¤·¤è¤¦¤È»×¤Ã¤Æ¤¤¤¿¤é¡¢·ë¶É¤ä¤é¤Ê¤¯¤Æ¤½¤ÎÉôʬ¤Ç¥Ð¥°¤Ã¤¿¤ê¤¹¤ë¡Ê¾Ð¡Ë¤Þ¤¿¡¢À¸»ºÀ¤ò¸ì¤ë¤È¤¤Ë¡¢¸«ÀѤâ¤ê¤È¥×¥í¥°¥é¥Þ¡¼¤ÎǽÎÏÃͤδط¸¤ÏÀÚ¤êÎ¥¤»¤Ê¤¤¡£
¡ÊÃæά¡Ë
¡¡¸½¼ÂŪ¤Ë¤Ï¡ÖÀ¸»ºÀ¡×¤È¤¤¤¦ºÇÂç¤Î²ÝÂê¤â¤¢¤ê¡¢¥ª¡¼¥ëAȽÄꤵ¤ì¤ë¥×¥í¥°¥é¥à¤ÎºîÀ®¤ÏÆñ¤·¤¤¤Ç¤·¤ç¤¦¡£¤»¤á¤ÆDȽÄê¤Î¤â¤Î¤¬°ì¤Ä¤â¤Ê¤¤¾õÂÖ¤Î¥×¥í¥°¥é¥à¤òÌܻؤ·¤Þ¤·¤ç¤¦¡£¼ÂºÝ¤Î³«È¯¸½¾ì¤Ë¤ª¤¤¤Æ¤Ï¡¢DȽÄê¤Î¤â¤Î¤¬°ì¤Ä¤â¤Ê¤¤¾õÂÖ¤Î¥×¥í¥°¥é¥à¤ò¡ÉÎɤ¤¥×¥í¥°¥é¥à¡É¤È¸Æ¤ó¤ÇÎɤ¤¤Î¤À¤È»×¤¤¤Þ¤¹¡£(pp.052-053)
¤³¤ÎËܤϡ¢Excel VBAËܤòõ¤·¤Æ¤¤¤¿¤È¤¤Ë½ñŹ¤Çȯ¸«¤·¤¿¡£Ì¯¤Ëɽ»æ¤¬¤«¤Ã¤³¤¤¤¤¤È»×¤¤¡¢Ãæ¤ò¸«¤Æ¤ß¤ë¤È¡¢¥â¥Î¥¯¥í¤Ç¸¼¿Í¤Ã¤Ý¤¤¥Ú¡¼¥¸¹½À®¤Ç¡¢¼«Ê¬¤ÎÃΤé¤Ê¤¤µ»¤¬Â¿¤¯ºÜ¤Ã¤Æ¤¤¤¿¤Î¤Ç®¹¶¤ÇÇã¤Ã¤¿¡£ÀµÄ¾¤³¤ì¤ò¤â¤Î¤Ë¤¹¤ì¤Ð¡¢2,200±ß¤Ï°Â¤¤¤È»×¤¦¡£
¼«Ê¬¼«¿È¤Ï¡¢Excel VBA¤òËܳÊŪ¤Ë»È¤¦¤è¤¦¤Ë¤Ê¤Ã¤¿¤Î¤Ï¡¢¤Á¤ç¤¦¤É1ǯ¤Û¤ÉÁ°¤À¤Ã¤¿¤Î¤Ç¡¢¤â¤¦1ǯ¤Î¥¥ã¥ê¥¢¤Ë¤Ê¤ë¡£VBA¤Î´ðËܹ½Ê¸¤Ï¥Í¥Ã¥È¤Ç¤â½½Ê¬½¬ÆÀ¤Ç¤¤ë¤¬¡¢¥Õ¥¡¥¤¥ë¤ÎÆþ½ÐÎϤʤɤΤÊÄêÀÐŪ¤Êµ»¡¢¥¢¥ë¥´¥ê¥º¥à¤Ï¡¢¤¢¤Þ¤ê¤Þ¤È¤Þ¤Ã¤ÆºÜ¤Ã¤Æ¤¤¤ë¥Ú¡¼¥¸¤¬¾¯¤Ê¤¤¡£¤½¤Î¤¿¤á¡¢¤³¤ÎËܤϤ«¤Ê¤ê½ÅÊõ¤¹¤ë¤È»×¤¦¡£
ÀΤÏExcel¤Ï¤¿¤À¤Îɽ·×»»¥½¥Õ¥È¤À¤È»×¤Ã¤Æ¤¤¤¿¤±¤É¡¢´Ø¿ô¤ò¿¤¯³Ð¤¨¡¢¤½¤·¤Æ¥Þ¥¯¥í¤ò³Ð¤¨¡¢¤µ¤é¤Ë¤ÏVBA¤Þ¤Ç½¬ÆÀ¤¹¤ë¤È¡¢Excel VBA¤Ç²¿¤Ç¤â¤Ç¤¤½¤¦¤Ê´¶¤¸¤¬¤·¤Æ¤¯¤ë¡Ê¾Ð¡Ë¾¯¤Ê¤¯¤È¤â¡¢Excel¾å¤Ç¼êÆ°¤Ç¤Ç¤¤ë¤³¤È¤Ï¤Û¤ÜÁ´Éô¼«Æ°²½¤Ç¤¤ë¤È»×¤¦¡£¤½¤¦»×¤¦¤È¡¢Excel¤Ï¤¹¤´¤¯±ü¤¬¿¼¤¯¡¢¿À¤¬¤«¤Ã¤¿¥½¥Õ¥È¤Ê¤ó¤À¤è¤Ê¤¡¤È»×¤¦¡£¤Á¤Ê¤ß¤ËExcel¤òºî¤Ã¤¿¿À¤Ï°Ê²¼¤Î¿Í¡£¼«Ê¬¤â¤³¤ó¤Ê¤Îºî¤ì¤¿¤é¤Ê¤¡¡¦¡¦¡¦¤ÈÌÑÁÛ¤·¤Æ¤â¤·¤ç¤¦¤¬¤Ê¤¤¡£
Excel VBA¤Ï¥×¥í¥°¥é¥ß¥ó¥°¤½¤Î¤â¤Î¤ò¹Íθ¤¹¤ë¤È¡¢¸¼¿Í¥×¥í¥°¥é¥Þ¡¼¤«¤é¤·¤Æ¤ß¤¿¤éVBA¡Ê¾Ð¡Ë¤Ã¤Æ´¶¤¸¤«¤â¤·¤ì¤Ê¤¤¤±¤É¡¢¥×¥í¥°¥é¥ß¥ó¥°½é¿´¼Ô¤¬¥¢¥ë¥´¥ê¥º¥à¤Î¹Í¤¨¤ò½¬ÆÀ¤¹¤ë¤Ë¤Ï¤è¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤Ê¤È»×¤¦¡£Æä˹ÔÎó°ÌÃÖ¤ò»ØÄꤷ¤Æ¥»¥ë¤òÁàºî¤¹¤ë¤È¤¤¤¦¤Î¤¬·ë¹½¤ï¤«¤ê¤ä¤¹¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¦¡£
¼ÂÁ©Åª¤Êµ»¤¬¼¨¤µ¤ì¤Æ¤ë¥¹¥¥ë¥¢¥Ã¥×¥³¥ì¥¯¥·¥ç¥ó¥·¥ê¡¼¥º¤Ï¡¢Â¾¤Ë¤â¤¤¤í¤¤¤í¤È½ÐÈǤµ¤ì¤Æ¤¤¤ë¤è¤¦¤Ê¤Î¤Ç¡¢¥Á¥§¥Ã¥¯¤·¤Æ¤ª¤¤¿¤¤¡£
Excel VBA ¥¹¥¥ë¥¢¥Ã¥×¥³¥ì¥¯¥·¥ç¥ó
Æɤà¤Ù¤¿Í¡§
- Excel VBA¥Ä¡¼¥ë¤Î¥Ñ¥Õ¥©¡¼¥Þ¥ó¥¹¤ò²þÁ±¤·¤¿¤¤¿Í
- ÂηÏŪ¤Ë¼ÂÁ©Åª¤Êµ»¤ò½¬ÆÀ¤·¤¿¤¤¿Í
- Excel VBA¤Ç²¿¤Ç¤â»ÅÍͤò¼Â¸½¤Ç¤¤ë¤È»×¤Ã¤Æ¤¤¤ë¿Í
VBA¥¨¥¥¹¥Ñ¡¼¥È¥¯¥ê¥Ã¥¯¡ù ¡¡
type5w4_lion at 22:42¨¢¥³¥á¥ó¥È(2)¨¢¥È¥é¥Ã¥¯¥Ð¥Ã¥¯(0)
µ»½ÑËÜ¡Ê¥³¥ó¥Ô¥å¡¼¥¿´ØÏ¢¡Ë | ½ñɾÁí¿ô¡ÊÆüÉÕ½ç¡Ë
1. Posted by shocky August 04, 2009 01:11