Office TANAKA

Excel MVP¤ÎÉÔÄê´üBlog
ÅÄÃæµü
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

Íè·î¤¢¤¿¤ê¤Ï¡¢Âçºå¤Ç¤â¤ä¤ê¤¿¤¤¤È»×¤Ã¤Æ¤Þ¤¹¡£
¥Ñ¥½¥³¥ó¤ò»È¤¨¤ë¡¢°Â¤¤¶µ¼¼¤òõ¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¦¡¦¡¦
¤É¤³¤«¡¢¤è¤¤¶µ¼¼¤ò¤´Â¸¤¸¤ÎÊý¤Ï¡¢¤¼¤Ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¤Ê¡£

¾ì½ê¤¬¤¢¤Ã¤Æ¡¢¼õ¹ÖÀ¸¤¬½¸¤Þ¤ì¤Ð¡¢Á´¹ñ¤É¤³¤Ø¤Ç¤â»ä¤Ï¹Ô¤­¤Þ¤¹¡£
| Excel | 19:02 | comments(2) | trackbacks(0) |
¤½¤ó¤Ê´Êñ¤Ëºî¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¤ó¤Ç¤¹¤Í¡£
¤¹¤´¤¤¤Ç¤¹¤Í¡£
| denshikunn | 2009/07/06 8:17 PM |

¤Á¤ã¤ó¤È¶µ¤¨¤ì¤Ð¡¢Ã¯¤Ç¤âºî¤ì¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¤è¡£
VBA¤ò¶µ¤ï¤Ã¤Æ¤âʬ¤«¤é¤Ê¤¤¤Î¤Ï¡¢Ê¬¤«¤ë¤è¤¦¤Ë¶µ¤¨¤é¤ì¤Ê¤«¤Ã¤¿¡¢¶µ¤¨¤¿¿Í¤ÎÀÕǤ¤Ç¤¹¡£
| ÅÄÃæµü | 2009/07/07 5:18 PM |










http://blog.officetanaka.com/trackback/1190153
   1234
567891011
12131415161718
19202122232425
2627282930  
<< September 2010 >>
Pagerank¥Ú¡¼¥¸¥é¥ó¥¯¥Ö¥í¥° ¥«¥¦¥ó¥¿¡¼
[[[ ]]]
- PROFILE -
- LINKS -
Office TANAKA

Excel 2010 Preview Blog

Excel 2007 ¥Ö¥í¥°

Excel World

VSUG
- RECOMMEND -
- RECOMMEND -
- RECOMMEND -
- RECOMMEND -
- RECOMMEND -
- RECENT COMMENTS -
- CATEGORIES -
- ARCHIVES -
- OTHERS -
- MOBILE -

¢¨Åö¥Ö¥í¥°¤Ç¤ÏPNG·Á¼°¤Î²èÁü¤ò»È¤Ã¤Æ¤¤¤ë¤¿¤á¡¢·ÈÂӤǤϲèÁü¤òɽ¼¨¤Ç¤­¤Ê¤¤¤³¤È¤â¤¢¤ê¤Þ¤¹¡£

¤³¤Î¥Ú¡¼¥¸¤ÎÀèÆ¬¤Ø