{"url":"https://blog.systemjp.net/entry/20081023/p2","provider_url":"https://hatena.blog","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20081023%2Fp2\" title=\"\u7bc4\u56f2\u3092\u9078\u629e\u3057\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af - 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>","author_name":"shikaku","width":"100%","title":"\u7bc4\u56f2\u3092\u9078\u629e\u3057\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af","description":"'\u7bc4\u56f2\u9078\u629e\u3057\u3066\u3044\u308b\u304b\u30c1\u30a7\u30c3\u30af If Application.Selection.Count = 1 Then '\u9078\u629e\u3057\u3066\u3044\u306a\u3044 Exit Sub Else '\u9078\u629e\u3057\u3066\u3044\u308b Exit Sub End If \u53c2\u8003 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=14237;id=excel","provider_name":"Hatena Blog","categories":["ExcelVBA"],"blog_url":"https://blog.systemjp.net/","version":"1.0","published":"2008-10-23 00:00:01","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_title":"shikaku's blog","height":"190","image_url":null}