{"author_name":"shikaku","blog_url":"https://blog.systemjp.net/","image_url":null,"provider_url":"https://hatena.blog","categories":["Excel"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20080226%2Fp1\" title=\"\u6307\u5b9a\u306e\u30bb\u30eb\u3068\u5185\u5bb9\u304c\u4e00\u7dd2\u306a\u3089\u3001\u30bb\u30eb\u306e\u8272\u3092\u5909\u3048\u308b - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2008-02-26 00:00:00","blog_title":"shikaku's blog","width":"100%","provider_name":"Hatena Blog","height":"190","url":"https://blog.systemjp.net/entry/20080226/p1","version":"1.0","description":"3\u3064\u307e\u3067\u306e\u6761\u4ef6\u3067\u3044\u3044\u306a\u3089\u300c\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u306e\u8a2d\u5b9a\u300d\u3067\u3088\u3044\u3002 4\u4ee5\u4e0a\u306e\u6761\u4ef6\u306a\u3089\u30de\u30af\u30ed(VBA)\u4f7f\u3046\u3057\u304b\u306a\u3044\u3067\u3059\u3002 A2/A3/A4/A5/A6 \u306e\u30bb\u30eb\u306e\u5185\u5bb9\u3068\u4e00\u81f4\u3057\u305f\u30bb\u30eb\u306e\u8272\u3092\u5909\u3048\u308b\u30de\u30af\u30ed Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Exit_label Select Case Target.Value '\u5185\u5bb9\u3092\u6bd4\u8f03 Case ActiveSheet.Range(\"A2\").Value Target.Interior.ColorIndex = 38 '\u5857\u308a\u3064\u3076\u3057\u3092\u7d3a Target.Font.ColorIndex \u2026","title":"\u6307\u5b9a\u306e\u30bb\u30eb\u3068\u5185\u5bb9\u304c\u4e00\u7dd2\u306a\u3089\u3001\u30bb\u30eb\u306e\u8272\u3092\u5909\u3048\u308b","type":"rich","author_url":"https://blog.hatena.ne.jp/shikaku/"}