{"id":4235,"date":"2024-01-06T12:00:05","date_gmt":"2024-01-06T03:00:05","guid":{"rendered":"https:\/\/www.bold.ne.jp\/engineer-club\/?p=4235"},"modified":"2025-12-19T11:27:05","modified_gmt":"2025-12-19T02:27:05","slug":"vba-countif","status":"publish","type":"post","link":"https:\/\/www.bold.ne.jp\/engineer-club\/vba-countif","title":{"rendered":"VBA\u306eCountif\u30e1\u30bd\u30c3\u30c9\u3068\u306f\uff1f\u30e1\u30bd\u30c3\u30c9\u306e\u89e3\u8aac\u3068\u4f7f\u7528\u4f8b"},"content":{"rendered":"<p>VBA\u3092\u4f7f\u3063\u3066\u58f2\u4e0a\u8868\u7b49\u306e\u96c6\u8a08\u3092\u884c\u3046\u969b\u306b\u306f\u3001\u300c<span>Countif<\/span>\u30e1\u30bd\u30c3\u30c9\u300d\u3092\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<p>\u3053\u3053\u3067\u306f\u3001\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9\u3092\u7d39\u4ecb\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<div id=\"toc_container\" class=\"no_bullets\"><p class=\"toc_title\">\u76ee\u6b21<\/p><ul class=\"toc_list\"><li><a href=\"#VBACountif\">\uff11\uff0eVBA\u306eCountif\u30e1\u30bd\u30c3\u30c9\u306b\u3064\u3044\u3066<\/a><ul><li><a href=\"#-Countif\">\uff11-\uff11\uff0eCountif\u30e1\u30bd\u30c3\u30c9\u3068\u306f<\/a><\/li><li><a href=\"#-Countif-2\">\uff11-\uff12\uff0eCountif\u306e\u69cb\u6587<\/a><\/li><\/ul><\/li><li><a href=\"#VBA_Countif\">\uff12\uff0eVBA Countif\u30e1\u30bd\u30c3\u30c9\u306e\u4f7f\u7528\u4f8b<\/a><ul><li><a href=\"#i\">\uff12-\uff11\uff0e\u57fa\u672c\u7684\u306a\u4f7f\u7528\u4f8b<\/a><\/li><\/ul><\/li><li><a href=\"#i-2\">\uff13\uff0e\u7279\u6b8a\u306a\u66f8\u304d\u65b9\u3092\u3059\u308b\u5834\u5408<\/a><ul><li><a href=\"#i-3\">\uff13-\uff11\uff0e\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u3092\u4f7f\u3046<\/a><\/li><li><a href=\"#i-4\">\uff13-\uff12\uff0e\u6bd4\u8f03\u6f14\u7b97\u5b50\u3092\u4f7f\u3046<\/a><\/li><li><a href=\"#i-5\">\uff13-\uff13\uff0e\u305d\u306e\u4ed6\u306e\u4f7f\u7528\u4f8b<\/a><\/li><\/ul><\/li><li><a href=\"#i-6\">\uff14\uff0e\u6700\u5f8c\u306b<\/a><\/li><\/ul><\/div>\n<h2><span id=\"VBACountif\">\uff11\uff0eVBA\u306e<span>Countif<\/span>\u30e1\u30bd\u30c3\u30c9\u306b\u3064\u3044\u3066<\/span><\/h2>\n<h3><span id=\"-Countif\"><span>\uff11-\uff11\uff0eCountif<\/span>\u30e1\u30bd\u30c3\u30c9\u3068\u306f<\/span><\/h3>\n<p>\u6307\u5b9a\u3057\u305f\u7bc4\u56f2\u5185\u306e\u30bb\u30eb\u306e\u3046\u3061\u3001\u6761\u4ef6\u306b\u4e00\u81f4\u3059\u308b\u30bb\u30eb\u306e\u500b\u6570\u3092\u8fd4\u3057\u307e\u3059\u3002<\/p>\n<h3><span id=\"-Countif-2\"><span>\uff11-\uff12\uff0eCountif<\/span>\u306e\u69cb\u6587<\/span><\/h3>\n<p><span>WorksheetFunction.Countif([<\/span>\u30bb\u30eb\u306e\u7bc4\u56f2<span>], [<\/span>\u6761\u4ef6<span>])<\/span><\/p>\n<p>\u4ee5\u964d\u306e<span>VBA<\/span>\u3067\u306f\u3001\u3053\u3061\u3089\u306e\u8868\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u88681.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u88681.png\" alt=\"\u88681\" width=\"592\" height=\"307\" class=\"alignnone size-full wp-image-4236\" \/><\/a><\/p>\n<h2><span id=\"VBA_Countif\">\uff12\uff0eVBA <span>Countif<\/span>\u30e1\u30bd\u30c3\u30c9\u306e\u4f7f\u7528\u4f8b<\/span><\/h2>\n<h3><span id=\"i\">\uff12-\uff11\uff0e\u57fa\u672c\u7684\u306a\u4f7f\u7528\u4f8b<\/span><\/h3>\n<p>\u8868\u5168\u4f53\u304b\u3089\u300c\u30e2\u30cb\u30bf\u300d\u3068\u66f8\u304b\u308c\u305f\u30bb\u30eb\u306e\u500b\u6570\u3092\u53d6\u5f97<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample01()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.Countif(Range(\"A1:D7\"), \"\u30e2\u30cb\u30bf\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><\/strong><\/p>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c1.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c1.png\" alt=\"\u7d50\u679c1\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4237\" \/><\/a><\/p>\n<h2><span id=\"i-2\">\uff13\uff0e\u7279\u6b8a\u306a\u66f8\u304d\u65b9\u3092\u3059\u308b\u5834\u5408<\/span><\/h2>\n<h3><span id=\"i-3\">\uff13-\uff11\uff0e\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u3092\u4f7f\u3046<\/span><\/h3>\n<h4>\uff13-\uff11-\uff11\uff0e\u524d\u65b9\u4e00\u81f4<\/h4>\n<p>\u8868\u5168\u4f53\u304b\u3089\u300c\u30ce\u30fc\u30c8\u300d\u304b\u3089\u59cb\u307e\u308b\u30bb\u30eb\u306e\u500b\u6570\u3092\u53d6\u5f97<\/p>\n<pre class=\"prettyprint lang:default decode:true\">'\u524d\u65b9\u4e00\u81f4\r\nSub sample02()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.Countif(Range(\"A1:D7\"), \"\u30ce\u30fc\u30c8*\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c2.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c2.png\" alt=\"\u7d50\u679c2\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4238\" \/><\/a><\/p>\n<h4>\uff13-\uff11-\uff12\uff0e\u5f8c\u65b9\u4e00\u81f4<\/h4>\n<p>\u8868\u5168\u4f53\u304b\u3089\u300c\u30fc\u30c8\u300d\u3067\u7d42\u308f\u308b\u30bb\u30eb\u306e\u500b\u6570\u3092\u53d6\u5f97<\/p>\n<pre class=\"prettyprint lang:default decode:true\">'\u5f8c\u65b9\u4e00\u81f4\r\nSub sample03()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.Countif(Range(\"A1:D7\"), \"*\u30fc\u30c9\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c3.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c3.png\" alt=\"\u7d50\u679c3\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4239\" \/><\/a><\/p>\n<h4>\uff13-\uff11-\uff13\uff0e\u524d\u65b9\u5f8c\u65b9\u4e00\u81f4<\/h4>\n<p>\u8868\u5168\u4f53\u304b\u3089\u300c\u30c8\u30d1\u300d\u3092\u542b\u3080\u30bb\u30eb\u306e\u500b\u6570\u3092\u53d6\u5f97<\/p>\n<pre class=\"prettyprint lang:default decode:true\">'\u524d\u65b9\u5f8c\u65b9\u4e00\u81f4\r\nSub sample04()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.Countif(Range(\"A1:D7\"), \"*\u30c8\u30d1*\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c4.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c4.png\" alt=\"\u7d50\u679c4\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4240\" \/><\/a><\/p>\n<h3><span id=\"i-4\">\uff13-\uff12\uff0e\u6bd4\u8f03\u6f14\u7b97\u5b50\u3092\u4f7f\u3046<\/span><\/h3>\n<p><span>D<\/span>\u5217\uff08\u5024\u6bb5\u6b04\uff09\u304b\u3089\u300c<span>5000<\/span>\u8d85\u300d\u306e\u30bb\u30eb\u306e\u500b\u6570\u3092\u53d6\u5f97<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample05()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.CountIf(Range(\"D1:D7\"), \"&gt;5000\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c5.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c5.png\" alt=\"\u7d50\u679c5\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4241\" \/><\/a><\/p>\n<h3><span id=\"i-5\">\uff13-\uff13\uff0e\u305d\u306e\u4ed6\u306e\u4f7f\u7528\u4f8b<\/span><\/h3>\n<h4>\uff13-\uff13-\uff11\uff0e\u8907\u6570\u6761\u4ef6\u3092\u4f7f\u3046\u5834\u5408<\/h4>\n<p>\u4e0b\u8a18\u306e\u3088\u3046\u306b\u3001\u300c<span>countifs<\/span>\u300d\u3092\u4f7f\u3046\u3053\u3068\u3067\u30bb\u30eb\u306e\u7bc4\u56f2\u3068\u6761\u4ef6\u3092\u8907\u6570\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p><span>WorksheetFunction.CountIfCountif([<\/span>\u30bb\u30eb\u306e\u7bc4\u56f2\uff11<span>], [<\/span>\u6761\u4ef6\uff11<span>], [<\/span>\u30bb\u30eb\u306e\u7bc4\u56f2\uff12<span>], [<\/span>\u6761\u4ef6\uff12<span>], &#8230;)<\/span><\/p>\n<p>\u4f8b\uff09<span>A<\/span>\u793e\u3001\u304b\u3064\u5024\u6bb5\u304c<span>10<\/span>\u4e07\u5186\u8d85<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample06()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.CountIfs(Range(\"B1:B7\"), \"A\u793e\", Range(\"D1:D7\"), \"&gt;100000\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c6.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c6.png\" alt=\"\u7d50\u679c6\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4242\" \/><\/a><\/p>\n<h4>\uff13-\uff13-\uff12\uff0e\u5225\u30b7\u30fc\u30c8\u306e\u30bb\u30eb\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408<\/h4>\n<p>\u5225\u30b7\u30fc\u30c8\u306e\u30bb\u30eb\u3092\u53c2\u7167\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u30bb\u30eb\u7bc4\u56f2\u3067\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"prettyprint lang:default decode:true\">Sub sample07()\r\n    Dim cnt As Integer\r\n\r\n    cnt = WorksheetFunction.CountIf(Worksheets(\"\u5546\u54c1\u8868\").Range(\"C1:C7\"), \"\u30ce\u30fc\u30c8*\")\r\n\r\n    MsgBox cnt\r\n\r\nEnd Sub\r\n<\/pre>\n<p><strong><span class=\"f-marker-p\">\u7d50\u679c\uff1a<\/span><\/strong><\/p>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c7.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2024\/01\/\u7d50\u679c7.png\" alt=\"\u7d50\u679c7\" width=\"160\" height=\"186\" class=\"alignnone size-full wp-image-4243\" \/><\/a><\/p>\n<h2><span id=\"i-6\">\uff14\uff0e\u6700\u5f8c\u306b<\/span><\/h2>\n<p><span>Countif<\/span>\u30e1\u30bd\u30c3\u30c9\u306f\u3001<strong>\u7bc4\u56f2\u3084\u6761\u4ef6\u3092\u6307\u5b9a\u3057\u305f\u7d50\u679c\u3092\u3055\u3089\u306b\u6b21\u306e\u51e6\u7406\u3078\u3064\u306a\u3052\u308b\u3053\u3068<\/strong>\u304c\u3067\u304d\u307e\u3059\u3002\u305c\u3072\u3001\u4f7f\u3044\u3053\u306a\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA\u3092\u4f7f\u3063\u3066\u58f2\u4e0a\u8868\u7b49\u306e\u96c6\u8a08\u3092\u884c\u3046\u969b\u306b\u306f\u3001\u300cCountif\u30e1\u30bd\u30c3\u30c9\u300d\u3092\u4f7f\u3044\u307e\u3059\u3002 \u3053\u3053\u3067\u306f\u3001\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9\u3092\u7d39\u4ecb\u3057\u3066\u3044\u304d\u307e\u3059\u3002 \u76ee\u6b21\uff11\uff0eVBA\u306eCountif\u30e1\u30bd\u30c3\u30c9\u306b\u3064\u3044\u3066\uff11-\uff11\uff0eCountif\u30e1\u30bd\u30c3\u30c9\u3068\u306f\uff11-\uff12\uff0eCo [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":4244,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[18],"acf":[],"_links":{"self":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4235"}],"collection":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/comments?post=4235"}],"version-history":[{"count":6,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4235\/revisions"}],"predecessor-version":[{"id":6240,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/4235\/revisions\/6240"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media\/4244"}],"wp:attachment":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media?parent=4235"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/categories?post=4235"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}