{"id":2152,"date":"2015-02-18T11:08:17","date_gmt":"2015-02-18T02:08:17","guid":{"rendered":"http:\/\/www23.atpages.jp\/~inoni\/?p=2152"},"modified":"2017-10-20T17:27:23","modified_gmt":"2017-10-20T08:27:23","slug":"excelvba%e8%a6%9a%e6%9b%b8-%e3%82%bb%e3%83%ab%e3%81%ab%e3%82%b3%e3%83%a1%e3%83%b3%e3%83%88%e3%82%92%e3%81%a4%e3%81%91%e3%82%8b","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2152","title":{"rendered":"ExcelVBA\u899a\u66f8 \u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\u3092\u3064\u3051\u308b"},"content":{"rendered":"<p>\u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\uff08\u3075\u304d\u3060\u3057\uff09\u3092\u3064\u3051\u308b\u3084\u308a\u65b9\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\nDim rng As Range\nDim msg As String\nDim clear_flg As Boolean\n\n'\u9078\u629e\u4e2d\u306e\u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\u3092\u8ffd\u52a0\u3057\u3066\u3044\u304f\nSet rng = ActiveCell\nmsg = &quot;\u3042\u3044\u3046\u3048\u304a&quot;\nclear_flg = False         '\u30b3\u30e1\u30f3\u30c8\u3092\u5237\u65b0\u3059\u308b\u3068\u304d\u306fTrue\u306b\u5909\u3048\u308b\n\nOn Error Resume Next\nIf Not rng.Comment Is Nothing Then\n    If clear_flg Then\n        rng.Comment.Text  msg        '\u5237\u65b0\n    Else\n        rng.Comment.Text rng.Comment.Text() &amp; vbNewLine\n                         &amp; msg       '\u8ffd\u8a18\n    End If\n    Exit Sub\nEnd If\n\n'\u65b0\u3057\u3044\u30b3\u30e1\u30f3\u30c8\u3092\u8ffd\u52a0\u3059\u308b\nWith rng.AddComment(msg)\n    .Shape.TextFrame.Characters.Font.ColorIndex = 2 '\u30d5\u30a9\u30f3\u30c8\u306f\u767d\n    .Shape.TextFrame.Characters.Font.Size = 9\n    .Shape.TextFrame.AutoSize = True\n    .Shape.Fill.ForeColor.RGB = RGB(0, 0, 0)         '\u80cc\u666f\u306f\u9ed2\n    .Visible = True\nEnd With\n<\/pre>\n<p>clear_flg\uff1dTrue\u306a\u3089\u3070\u3001\u30b3\u30e1\u30f3\u30c8\u306f\u7f6e\u304d\u63db\u308f\u308b\u304c\u3001False\u306a\u3089\u3070\u6539\u884c\u3057\u3066\u8ffd\u8a18\u3057\u3066\u3044\u304f\u3002<br \/>\n\u306a\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u306f\u81ea\u52d5\u30b5\u30a4\u30ba\u8a2d\u5b9a\uff08AutoSize\uff1dTrue\uff09\u306b\u3057\u3066\u304a\u304f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\uff08\u3075\u304d\u3060\u3057\uff09\u3092\u3064\u3051\u308b\u3084\u308a\u65b9\u3002 Dim rng As Range Dim msg As String Dim clear_flg As Boolean &#8216;\u9078\u629e\u4e2d\u306e\u30bb\u30eb\u306b\u30b3\u30e1\u30f3\u30c8\u3092\u8ffd\u52a0\u3057\u3066\u3044\u304f Set rng  [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[43,74],"class_list":["post-2152","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2152","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2152"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2152\/revisions"}],"predecessor-version":[{"id":2673,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2152\/revisions\/2673"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2152"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2152"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2152"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}