{"id":392,"date":"2017-09-20T02:05:26","date_gmt":"2017-09-20T02:05:26","guid":{"rendered":"http:\/\/mio-web.net\/pcsupport\/?p=392"},"modified":"2017-09-20T02:06:59","modified_gmt":"2017-09-20T02:06:59","slug":"vba-%e3%82%a8%e3%82%af%e3%82%bb%e3%83%ab%e3%80%80%e8%a4%87%e6%95%b0%e8%a1%8c%e3%80%8010000%e8%a1%8c%e3%81%8f%e3%82%89%e3%81%84%e3%80%80%e3%81%be%e3%81%a8%e3%82%81%e3%81%a6%e9%9d%9e%e8%a1%a8%e7%a4%ba","status":"publish","type":"post","link":"https:\/\/mio-web.net\/pcsupport\/archives\/392\/","title":{"rendered":"VBA \u30a8\u30af\u30bb\u30eb\u3000\u8907\u6570\u884c\u300010000\u884c\u304f\u3089\u3044\u3000\u307e\u3068\u3081\u3066\u975e\u8868\u793a"},"content":{"rendered":"<p>&#8216;\u30a8\u30af\u30bb\u30eb\u3000A\u5217\u304c-1\u306e\u884c\u3092\u975e\u8868\u793a\u306b\u3059\u308b<br \/>\n \u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u306e\u6a5f\u80fd\u3092\u4f7f\u3046\u3053\u3068\u3067\u9ad8\u901f\u5316<\/p>\n<p>    Dim rng         As Range<br \/>\n    Dim strSTRING   As String<br \/>\n    strSTRING = -1<\/p>\n<p>    With wksTarget<br \/>\n        Set rng = .Range(&#8220;A1:A35000&#8221;)<br \/>\n        .AutoFilterMode = False<br \/>\n        rng.AutoFilter Field:=1, Criteria1:=strSTRING<br \/>\n        rng.SpecialCells(xlCellTypeVisible).Rows.Select<br \/>\n        .AutoFilterMode = False<br \/>\n        xls.Selection.EntireRow.Hidden = True<\/p>\n<p>    End With<\/p>\n","protected":false},"excerpt":{"rendered":"<p>&#8216;\u30a8\u30af\u30bb\u30eb\u3000A\u5217\u304c-1\u306e\u884c\u3092\u975e\u8868\u793a\u306b\u3059\u308b \u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u306e\u6a5f\u80fd\u3092\u4f7f\u3046\u3053\u3068\u3067\u9ad8\u901f\u5316 Dim rng As Range Dim strSTRING As String strSTRING = -1 With w [&hellip;]<\/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":[24],"tags":[],"class_list":["post-392","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/392","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=392"}],"version-history":[{"count":3,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/392\/revisions"}],"predecessor-version":[{"id":395,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/392\/revisions\/395"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=392"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=392"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=392"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}