{"id":2789,"date":"2018-09-07T13:12:45","date_gmt":"2018-09-07T04:12:45","guid":{"rendered":"http:\/\/anada.cloudfree.jp\/?p=2789"},"modified":"2018-09-07T13:12:45","modified_gmt":"2018-09-07T04:12:45","slug":"excel-vba%e8%a6%9a%e6%9b%b8-%e3%82%af%e3%83%aa%e3%83%83%e3%83%97%e3%83%9c%e3%83%bc%e3%83%89","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2789","title":{"rendered":"Excel VBA\u899a\u66f8 \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9"},"content":{"rendered":"<p>\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3068\u304d\u306b\u3001\u8cbc\u308a\u4ed8\u304b\u306a\u3044\u30b1\u30fc\u30b9\u304c\u3042\u3063\u305f\u306e\u3067\u3001<br \/>\n\u5225\u306e\u65b9\u6cd5\u3092\u8abf\u3079\u3066\u307f\u305f\u3002<\/p>\n<p>String\u578b\u5909\u6570 buf \u306e\u5185\u5bb9\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u8a2d\u5b9a\u3059\u308b\u3068\u3044\u3046\u3053\u3068\u3067\u30fb\u30fb\u30fb<br \/>\na) DataObject\u3092\u4f7f\u3046\u65b9\u6cd5\uff11<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n        Dim cb As Object\r\n        Set cb = New DataObject\r\n        cb.SetText buf\r\n        cb.PutInClipboard\r\n<\/pre>\n<p>b) DataObject\u3092\u4f7f\u3046\u65b9\u6cd5\uff12<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n        With New MSForms.DataObject\r\n            .SetText buf\r\n            .PutInClipboard\r\n        End With\r\n<\/pre>\n<p>c) TextBox\u3092\u4f7f\u3046\u65b9\u6cd5<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n       With CreateObject(&quot;Forms.TextBox.1&quot;)\r\n          .MultiLine = True\r\n          .Text = buf\r\n          .SelStart = 0\r\n          .SelLength = .TextLength\r\n          .Copy\r\n        End With\r\n        If cb.CanPaste Then cb.Paste\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3068\u304d\u306b\u3001\u8cbc\u308a\u4ed8\u304b\u306a\u3044\u30b1\u30fc\u30b9\u304c\u3042\u3063\u305f\u306e\u3067\u3001 \u5225\u306e\u65b9\u6cd5\u3092\u8abf\u3079\u3066\u307f\u305f\u3002 String\u578b\u5909\u6570 buf \u306e\u5185\u5bb9\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u8a2d\u5b9a\u3059\u308b\u3068\u3044\u3046\u3053\u3068\u3067\u30fb\u30fb\u30fb a) DataObject\u3092\u4f7f\u3046\u65b9\u6cd5\uff11  [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-2789","post","type-post","status-publish","format-standard","hentry","category-excelvba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2789","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=2789"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2789\/revisions"}],"predecessor-version":[{"id":2790,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2789\/revisions\/2790"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2789"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2789"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2789"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}