
Á°²óµ»ö¡¡¡Î ¿§ÉÕ¤¥»¥ë¤Î¤ß¤ò¹ç·×¤¹¤ë ¡Ï
SUMIF¤Î¤è¤¦¤Ëư¤«¤·¤¿SumColor¤Ç¤¹¤¬¡¢º£ÅÙ¤ÏCOUNTIFÈǤòºî¤Ã¤Æ¤ß¤Þ¤¹¡£
¤â¤È¤â¤È¤³¤ÎÄêµÁ´Ø¿ô¤òºî¤ë¤¤Ã¤«¤±¤Ë¤Ê¤Ã¤¿¤Î¤Ï¡¢¼¡Ç¯Å٤ζÐ̳ɽ¤òºîÀ®¤¹¤ë°Ù¤ËµÙÆüÆü¿ô¤ò¥«¥¦¥ó¥È¤·¤¿¤¤¡£¤È¤¤¤¦¤Î¤¬ÌÜŪ¤Ç¤·¤¿¡£
»ä¤Î²ñ¼Ò¤Ç¤Ïǯ´ÖµÙÆüÆü¿ô¤È¤¤¤¦¤Î¤¬·è¤Þ¤Ã¤Æ¤¤¤Þ¤¹¡£¤½¤ÎÆü¿ô¤òÂç·¿Ï¢µÙ¤Ë¤Ä¤®¹þ¤à¤Î¤«¡¢3Ï¢µÙ¤òºî¤ë¤Î¤«¡¦¡¦¡¦¡¦»×°Æ¤¹¤ë¤Î¤Ç¤¹¤¬¡¢¥«¥ì¥ó¥À¡¼¤Ç¿§¤ÎÉÕ¤±¤¿Æü¡áµÙÆü¤Ê¤Î¤Ç¤½¤ÎµÙÆüÆü¿ô¤ò´Ø¿ô¤Ç¹ç·×¤Ç¤¤ì¤Ð¡¢Ç¯´Ö¥«¥ì¥ó¥À¡¼¤ÎºîÀ®¤¬³Ú¤Ë¤Ê¤ë¤Î¤Ç¤¹¡£
Á°²ó¤ÎÌäÂêÅÀ
Á°²ó¤ÎÌäÂêÅÀ¤È¤·¤Æ¡¢½Ä1Îó¤·¤«¹ç·×¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£
¥«¥ì¥ó¥À¡¼¤Î¤è¤¦¤Ê2¼¡¸µ¥Æ¡¼¥Ö¥ë¤ËÂбþ¤Ç¤¤Ê¤«¤Ã¤¿¤Î¤¬½ÅÂç¤ÊÌäÂê¤Ç¤·¤¿¡£
¤½¤³¤ÇÁ°²ó¤Î¥³¡¼¥É¤Ç¤ÏRows¤·¤«»È¤Ã¤Æ¤¤¤Ê¤«¤Ã¤¿¤ó¤Ç¤¹¤¬¡¢Columns¤ÈÁȤ߹ç¤ï¤»¤ë»ö¤ÇÂбþ¤·¤Æ¤ß¤Þ¤¹¡£
Row¤Ï½Ä¡¢Column¤Ï²£¤Î°ÕÌ£¤Ç¤¹¡£
A1:C10¤ÎÈϰϻØÄê¤ÎÃæ¤Ç¡¢Rows(3).Columns(2)¡¡¤È¤Ê¤ì¤ÐB3¥»¥ë¤Î¤³¤È¤ò¼¨¤·¤Þ¤¹¡£
CountColor
| ´Ø¿ô̾ | CountColor( ·×»»ÈÏ°Ï , ¾ò·ï¿§¥»¥ë ) |
| µ¡Ç½ | ·×»»ÈϰϤÎÃæ¤Ç¾ò·ï¿§¥»¥ë¤ÈƱ¤¸¿§¤Î¥»¥ë¤ò¥«¥¦¥ó¥È¤¹¤ë ÈϰϻØÄê¤ÏÊ£¿ô¹Ô¡¢Ê£¿ôÎó²Äǽ |
Function CountColor(·×»»ÈϰÏ, ¾ò·ï¿§¥»¥ë) CountColor = 0 For y = 1 To ·×»»ÈϰÏ.Columns.Count For x = 1 To ·×»»ÈϰÏ.Rows.Count If ·×»»ÈϰÏ.Rows(x).Columns(y).Interior.ColorIndex = ¾ò·ï¿§¥»¥ë.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next Next End Function
|
¥¢¥ì¥ó¥¸¤¹¤ì¤Ð¤¤¤í¤¤¤í¤Ê»ö¤¬½ÐÍ褽¤¦¤Ç¤¹¤Í¡£¤³¤ó¤Ê¤Î¤Ë»È¤¨¤¿¡ª¤È¤¤¤¦Êó¹ð¤¤¤¿¤À¤±¤ì¤Ð´ò¤·¤¤¤Ç¤¹¡£
Á°²óµ»ö¡¡¡Î
¿§ÉÕ¤¥»¥ë¤Î¤ß¤ò¹ç·×¤¹¤ë ¡Ï
´ØÏ¢µ»ö¡¡¡Î
¼«Ê¬¤Ç´Ø¿ô¤òºî¤Ã¤Æ¤ß¤ë ¡Ï
¥³¥á¥ó¥È°ìÍ÷