2009.07.05 Sunday
VBA¥»¥ß¥Ê¡¼¤ä¤ê¤Þ¤¹
![]() VBA¤Î¥»¥ß¥Ê¡¼¤ä¤ê¤Þ¤¹¡£ »ÈÍѤ¹¤ë¥Æ¥¥¹¥È¤«¤é¡ÖVBA¥¨¥¥¹¥Ñ¡¼¥ÈÀäÂйç³Ê¥»¥ß¥Ê¡¼¡×¤ÈÌÃÂǤäƤ¤¤Þ¤¹¤¬¡¢Íפ¹¤ë¤Ë¡ÖVBA¤Î´ðËܤò¥Þ¥¹¥¿¡¼¤¹¤ë¥»¥ß¥Ê¡¼¡×¤Ç¤¹¡£ ¼Â¤ÏÀè·î¡¢Æ±¤¸¥»¥ß¥Ê¡¼¤ò³«ºÅ¤·¤¿¤Î¤Ç¤¹¤¬¡¢¤Þ¤Ã¤¿¤¯¥Þ¥¯¥í¤òºî¤Ã¤¿¤³¤È¤¬¤Ê¤¤¿Í¤Ç¤â¡¢¥»¥ß¥Ê¡¼½ªÎ»¸å¤Ï¼«Ê¬¤ÎÎϤÀ¤±¤Ç¥Þ¥¯¥í¤òºîÀ®¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£ ¤Á¤Ê¤ß¤Ë¡¢¤½¤Î¥³¡¼¥É¤Ï¡¦¡¦¡¦ Sub juryosuukei() ¡¡¡¡Dim i As Long ¡¡¡¡Dim hantei As Long ¡¡¡¡Dim gyocount As Long ¡¡¡¡gyocount = Cells(Rows.Count, 1).End(xlUp).Row ¡¡¡¡'¥½¡¼¥È¥¡¼¤Ïȯ¹Ôâ ǼÆþÆü ¡¡¡¡Range(Cells(4, 1), Cells(gyocount, 13)).Sort key1:=Range("H4"), key2:=Range("G4") ¡¡¡¡For i = gyocount To 4 Step -1 ¡¡¡¡'Ʊ¤¸È¯¹Ôâ¤Î¹Ô¤¬Ê£¿ô¤¢¤Ã¤¿¤é ¡¡¡¡¡¡¡¡If Cells(i, 8) = Cells(i - 1, 8) Then ¡¡¡¡¡¡¡¡¡¡¡¡'¿ôÎ̤ò¹ç·×¤¹¤ë ¡¡¡¡¡¡¡¡¡¡¡¡Cells(i, 6) = Cells(i, 6) + Cells(i - 1, 6) ¡¡¡¡¡¡¡¡¡¡¡¡'hantei¤Ï¡¢Æ±¤¸È¯¹Ôâ¤Î¹Ô¤¬¤¢¤Ã¤¿¤«¤É¤¦¤«¤ÎȽÄê¤Ë»ÈÍÑ ¡¡¡¡¡¡¡¡¡¡¡¡hantei = hantei + 1 ¡¡¡¡¡¡¡¡Else ¡¡¡¡¡¡¡¡¡¡¡¡If hantei > 0 Then ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡'½ÅÊ£¹Ô¤òºï½ü ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Range(Cells(i, 2), Cells(i, 3)).EntireRow.Delete ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡'hantei¥«¥¦¥ó¥È¥¯¥ê¥¢ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡hantei = 0 ¡¡¡¡¡¡¡¡¡¡¡¡End If ¡¡¡¡¡¡¡¡End If ¡¡¡¡Next i End Sub ¤Ç¤¹¡£°ì¿Í¤Ç¤³¤³¤Þ¤ÇºîÀ®¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£ »ä¤Î¥»¥ß¥Ê¡¼¤ò¼õ¤±¤ì¤Ð¡¢ÀäÂФ˥ޥ¯¥í¤òºîÀ®¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ¤â¤·º£¤Þ¤ÇVBA¤Î³Ø½¬¤ËºÃÀÞ¤·¤¿¤Î¤Ê¤é¡¢¤½¤ì¤Ï¶µ¤¨¤ë¿Í¤¬°¤«¤Ã¤¿¤Î¤Ç¤·¤ç¤¦¡£¤¢¤Ê¤¿¤¬¸¶°ø¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡¢¤¢¤¤é¤á¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤è¡£ Ëü¤¬°ì¡¢»ä¤Î¥»¥ß¥Ê¡¼¤Ë½Ð¤Æ¡¢¤½¤ì¤Ç¤â¥Þ¥¯¥í¤òºîÀ®¤Ç¤¤Ê¤¤¤È¤·¤¿¤é¡¢¤½¤ì¤Ï»ä¤ÎÀÕǤ¤Ç¤¹¡£»ä¤ÏExcel¤ò¶µ¤¨¤ë¥×¥í¤Ç¤¹¤«¤é¡¢°Â¿´¤·¤Æ¤ª¤Þ¤«¤»¤¯¤À¤µ¤¤¡£ ¤È¤¤¤¦¤³¤È¤Ç¡¢¥»¥ß¥Ê¡¼¤Î¾ÜºÙ¤Ï²¼µ¤ò¤´Í÷¤¯¤À¤µ¤¤¡£ http://officetanaka.net/seminar/seminar1.htm Íè·î¤¢¤¿¤ê¤Ï¡¢Âçºå¤Ç¤â¤ä¤ê¤¿¤¤¤È»×¤Ã¤Æ¤Þ¤¹¡£ ¥Ñ¥½¥³¥ó¤ò»È¤¨¤ë¡¢°Â¤¤¶µ¼¼¤òõ¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¦¡¦¡¦ ¤É¤³¤«¡¢¤è¤¤¶µ¼¼¤ò¤´Â¸¤¸¤ÎÊý¤Ï¡¢¤¼¤Ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¤Ê¡£ ¾ì½ê¤¬¤¢¤Ã¤Æ¡¢¼õ¹ÖÀ¸¤¬½¸¤Þ¤ì¤Ð¡¢Á´¹ñ¤É¤³¤Ø¤Ç¤â»ä¤Ï¹Ô¤¤Þ¤¹¡£ |













