{"width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Felve.club%2Fentry%2Farchives%2F1253\" title=\"\u6307\u5b9a\u7bc4\u56f2\u306e\u6307\u5b9a\u8272\u3092\u6570\u3048\u308b\u95a2\u6570 - \u30b9\u30ca\u30c3\u30af\u30a8\u30eb\u30d9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://elve.club/","version":"1.0","author_url":"https://blog.hatena.ne.jp/elated/","title":"\u6307\u5b9a\u7bc4\u56f2\u306e\u6307\u5b9a\u8272\u3092\u6570\u3048\u308b\u95a2\u6570","url":"https://elve.club/entry/archives/1253","author_name":"elated","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","blog_title":"\u30b9\u30ca\u30c3\u30af\u30a8\u30eb\u30d9","categories":["Excel","vba","\u30d7\u30ed\u30b0\u30e9\u30e0"],"published":"2021-07-27 20:30:03","description":"\u4f1a\u793e\u304b\u3089\u81ea\u5206\u306b\u9001\u3063\u305f\u30e1\u30fc\u30eb\u304c\u5c4a\u3044\u3066\u306a\u304f\u3066\u9854\u9762\u84bc\u767d\u3067\u3059\u30fb\u30fb\u30fb\u3002\u3084\u3070\u3044\u3002\u30af\u30d3\u306b\u306a\u3063\u305f\u3089\u7b11\u3044\u307e\u3057\u3087\u3046(\uff1b\u00b4\u0414\uff40) =cc(\u6570\u3048\u305f\u3044\u7bc4\u56f2,\u6570\u3048\u305f\u3044\u8272\u306e\u30bb\u30eb)\u3067\u6570\u3048\u308b\u95a2\u6570\u3060\u3088\u3002 \u2193\u3053\u3093\u306a\u611f\u3058\u3067\u4f7f\u3048\u307e\u3059 Function cc(a As Range, b As Range) As Long Set b = b.Item(1) Dim sh As Worksheet: Set sh = a.Parent If Intersect(a, sh.UsedRange) Is Nothing Then cc = 0 Exit Function End If Dim countcolor As Long: count\u2026","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/e/elve/20210727/20210727194148.png","type":"rich","height":"190"}