|
¡Ú£Ö£Â£Á¤ò»ÈÍѤ·¤¿·×»»¼°¡Û ¡ÌR20C1¡Í¤Î¥»¥ë¤Ë¡ÌVBA¤ò»ÈÍѤ·¤¿·ë²Ì¡Í¤ÈÆþÎϤ·¤Þ¤¹ ¡Ì¼Â¹Ô¡Í¤Î¥Ü¥¿¥ó¤òºîÀ®¤·¤Þ¤¹ ¥á¥Ë¥å¡¼¤Î¡Ì¥Ä¡¼¥ë¡Í¢ª¡Ì¥Þ¥¯¥í¡Í¢ª¡ÌVusial Basic Editor¡Í¤òÁªÂò¤·¤Þ¤¹ Visual Basic Editor¤Î¡ÌÁÞÆþ¡Í¢ª¡Ìɸ½à¥â¥¸¥å¡¼¥ë¡Í¤òÁªÂò¤·¤Þ¤¹ ³¤¤¤Æ¡ÌÁÞÆþ¡Í¢ª¡Ì¥×¥í¥·¡¼¥¸¥ã¡Í¤òÁªÂò¤·¤Þ¤¹ ¡Ì¥×¥í¥·¡¼¥¸¥ã¤Î²èÌ̡ͤ¬É½¼¨¤µ¤ì¤¿¤é¡Ì̾Á°¡Í¤Ë¡ÌCalc¡Í¤ÈÆþÎϤ·¤Þ¤¹ Public Sub Cal¡Ê¡Ë End Sub ¤¬ºîÀ®¤µ¤ì¤Þ¤¹¤Î¤Ç¤½¤ÎÃæ¤Ë ¡¡Dim s_line As Integer ¡¡Dim e_line As Integer ¡¡Dim step_cnt As Integer ¡¡Dim i As Integer ¡¡Dim gokei As Integer ¡¡s_line = 6 ¡¡e_line = 16 ¡¡step_cnt = 5 ¡¡gokei = 0 ¡¡For i = s_line To e_line Step step_cnt ¡¡gokei = gokei + Sheet1.Cells(i, 3) ¡¡Next ¡¡Sheet1.Cells(20, 3) = gokei¡¡¤Èµ½Ò¤·¤Þ¤¹¡£ ¡ÌExcel¡Í¤Î²èÌ̤ËÌá¤Ã¤Æ¡Ì¥Ü¥¿¥ó¡Í¤ÎÏȤòÁªÂò¾õÂ֤ˤ·¤Æ¡Ì±¦¡Í¥¯¥ê¥Ã¥¯
¡Ì¥Þ¥¯¥í¤ÎÅÐÏ¿¡Í¤òÁªÂò¤·¤Þ¤¹ ¡Ì¥Þ¥¯¥í¤ÎÅÐÏ¿²èÌ̡ͤ¬É½¼¨¤µ¤ì¤¿¤é¡ÌCalc¡Í¤òÁªÂò¤·¡Ì£Ï£Ë¡Í¤ò²¡¤·¤Þ¤¹ ¡Ì¼Â¹Ô¡Í¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡ÌR20C3¡Í¤Î¥»¥ë¤Ë·ë²Ì¤¬½Ð¤Þ¤·¤¿ |
¥¨¥¯¥»¥ë¶µ¼¼
[ ¥ê¥¹¥È ]





Ʊ¤¸·ë²Ì¤Ë¤Ê¤ë¤³¤È¤Ç¤â¤¤¤í¤¤¤í¤Ê¤ä¤ê¤«¤¿¤¢¤ë¤·¡¢¤½¤Î¤È¤¤Î±þ¤¸¤¿ÊýË¡¤Ç¤¹¤ë¤Î¤¬¤¤¤¤¤è¤Í¡Á(^^
2006/3/30(ÌÚ) ¸á¸å 8:32 [ ¤Ê¤ª ]
¤Ê¤ª¤µ¤ó¡¢¤ä¤Ã¤Æ¤ß¤Æ¤¤¤í¤ó¤ÊÊýË¡¤¬¤¢¤ë¤Î¤Ë²þ¤á¤Æµ¤¤¬¤Ä¤¤Þ¤·¤¿¡£(^^¢ö
2006/3/30(ÌÚ) ¸á¸å 9:07