{"published":"2017-11-17 09:56:06","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/d/dz_dzone/20170814/20170814233145.jpg","author_url":"https://blog.hatena.ne.jp/dz_dzone/","version":"1.0","blog_url":"https://dz11.hatenadiary.jp/","width":"100%","url":"https://dz11.hatenadiary.jp/entry/2017/11/17/095606","description":"\u884c\u306e\u5207\u308a\u53d6\u308a\uff06\u8cbc\u308a\u4ed8\u3051\u3092\u884c\u3063\u3066\u3044\u308b\u3068\u3001\u30b3\u30e1\u30f3\u30c8\u4f4d\u7f6e\u304c\u3050\u3061\u3083\u3050\u3061\u3083\u306b\u306a\u3063\u3066\u304f\u308b\u3053\u3068\u304c\u591a\u3044\u305f\u3081\u3001\u30b3\u30e1\u30f3\u30c8\u4f4d\u7f6e\u3092\u30ea\u30bb\u30c3\u30c8\u3059\u308b\u30de\u30af\u30ed\u3092\u7d44\u3093\u3067\u307f\u307e\u3057\u305f\u3002 Sub ResetCommentPosition() ' ** \u9078\u629e\u7bc4\u56f2\u306e\u30b3\u30e1\u30f3\u30c8\u8868\u793a\u4f4d\u7f6e\u3092\u30ea\u30bb\u30c3\u30c8\u3059\u308b ** Dim CL As Range Dim T, L, W, T2, L2 As Long For Each CL In Selection ' \u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\u304c\u3042\u308c\u3070\u51e6\u7406 If TypeName(CL.Comment) = \"Comment\" Then With CL T = .Top L = .Left W =.Width End With \u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdz11.hatenadiary.jp%2Fentry%2F2017%2F11%2F17%2F095606\" title=\"\u9078\u629e\u7bc4\u56f2\u306e\u30b3\u30e1\u30f3\u30c8\u4f4d\u7f6e\u3092\u30ea\u30bb\u30c3\u30c8\u3059\u308b - \u65e5\u672c\u8a9e\u5165\u529b\u30bd\u30d5\u30c8\u3068VBA\u306e\u899a\u3048\u66f8\u304d\" 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":"dz_dzone","provider_url":"https://hatena.blog","blog_title":"\u65e5\u672c\u8a9e\u5165\u529b\u30bd\u30d5\u30c8\u3068VBA\u306e\u899a\u3048\u66f8\u304d","height":"190","categories":["VBA(Excel)"],"type":"rich","title":"\u9078\u629e\u7bc4\u56f2\u306e\u30b3\u30e1\u30f3\u30c8\u4f4d\u7f6e\u3092\u30ea\u30bb\u30c3\u30c8\u3059\u308b","provider_name":"Hatena Blog"}