\u30a8\u30af\u30bb\u30ebVBA\u3067\u4e0d\u8981\u5217\u3092\u81ea\u52d5\u7684\u306b\u4f55\u5341\u884c\u3082\u524a\u9664\u3059\u308b\u5834\u5408\u3001\u305f\u3068\u3048\u3070\u30b7\u30a7\u30fc\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u914d\u7f6e\u3057\u3066\u3042\u3063\u305f\u5834\u5408\u306b\u3001\u305d\u306e
\n\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u304c\u3001\u524a\u9664\u3057\u305f\u5217\u6570\u306b\u5408\u308f\u305b\u3066\u5de6\u306b\u79fb\u52d5\u3057\u3066\u304f\u308c\u306a\u3044\u30b1\u30fc\u30b9\u304c\u3042\u308b\u3002
\n\u305d\u306e\u5834\u5408\u306f\u3001\u5217\u6570\u3092\u6307\u5b9a\u3057\u3066\u3001\u305d\u306e\u4f4d\u7f6e\u307e\u3067\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u79fb\u52d5\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u304f\u3053\u3068\u306b\u3088\u308a\u5bfe\u5fdc\u3067\u304d\u305f\u3002<\/p>\n
\uff08\u5909\u6570\u300ci\u300d\u306f\u524a\u9664\u958b\u59cb\u5217\u3092\u8a08\u7b97\u3059\u308b\u305f\u3081\u306e\u5909\u6570\uff09
\nleft \u306f\u3000\u30b7\u30fc\u30c8\u306e\u5de6\u7aef\u304b\u3089\u56f3\u5f62\uff08\u30bb\u30eb\uff09\u306e\u5de6\u7aef\u307e\u3067\u306e\u8ddd\u96e2\u3092\u8868\u3059\u30d7\u30ed\u30d1\u30c6\u30a3<\/p>\n
‘\u4e0d\u8981\u5217\u524a\u9664\u3000<\/p>\n
Set wksTarget = wkb.Worksheets(“\u4e88\u7b97”)<\/p>\n
With wksTarget
\n.Activate
\n.Range(.Cells(4, i + 2), .Cells(45, 102)).Delete Shift:=xlShiftToLeft\u3000\u2192\u3000\u5217\u524a\u9664
\n.Shapes(1).Left = .Cells(4, i + 16).Left\u3000\u2192\u3000\u56f3\u5f62\u3092\u6307\u5b9a\u306e\u30bb\u30eb\u4f4d\u7f6e\u3078\u79fb\u52d5
\n.Columns(i + 15).Hidden = True
\n.Range(“D2”).Select
\nEnd With<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30a8\u30af\u30bb\u30ebVBA\u3067\u4e0d\u8981\u5217\u3092\u81ea\u52d5\u7684\u306b\u4f55\u5341\u884c\u3082\u524a\u9664\u3059\u308b\u5834\u5408\u3001\u305f\u3068\u3048\u3070\u30b7\u30a7\u30fc\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u3092\u914d\u7f6e\u3057\u3066\u3042\u3063\u305f\u5834\u5408\u306b\u3001\u305d\u306e \u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u304c\u3001\u524a\u9664\u3057\u305f\u5217\u6570\u306b\u5408\u308f\u305b\u3066\u5de6\u306b\u79fb\u52d5\u3057\u3066\u304f\u308c\u306a\u3044\u30b1\u30fc\u30b9\u304c\u3042\u308b\u3002 \u305d\u306e\u5834\u5408\u306f\u3001\u5217\u6570\u3092\u6307\u5b9a\u3057\u3066 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"vkexunit_cta_each_option":"","footnotes":""},"categories":[32],"tags":[],"class_list":["post-464","post","type-post","status-publish","format-standard","hentry","category-excel"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/464","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/comments?post=464"}],"version-history":[{"count":1,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/464\/revisions"}],"predecessor-version":[{"id":465,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/464\/revisions\/465"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=464"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=464"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=464"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}