{"id":92,"date":"2023-07-19T20:29:18","date_gmt":"2023-07-19T11:29:18","guid":{"rendered":"https:\/\/rafa-system.com\/vba\/?p=92"},"modified":"2023-07-19T20:33:14","modified_gmt":"2023-07-19T11:33:14","slug":"post-92","status":"publish","type":"post","link":"https:\/\/rafa-system.com\/vba\/2023\/07\/19\/post-92\/","title":{"rendered":"VBA\u3067\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u30bd\u30fc\u30c8\u3092\u6d3b\u7528\u3059\u308b"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u6d41\u308c\uff1a\u65b0\u3057\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4f5c\u6210\u2192\u914d\u5217\u3092\u8cbc\u308a\u4ed8\u3051\u2192\u30bd\u30fc\u30c8\u5b9f\u884c\u2192\u914d\u5217\u3092\u683c\u7d0d\u2192\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u524a\u9664<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Range\u7bc4\u56f2\u306e\u5909\u66f4\u306b\u6ce8\u610f\uff08.SortFields.Add2 Key:=Range(&#8220;C2:C3833&#8221;)\u306e\u90e8\u5206\uff09<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub testing()\r\n    '\u65b0\u3057\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4f5c\u6210\r\n    Dim ws As Worksheet\r\n    Set ws = ThisWorkbook.Sheets.Add\r\n    \r\n    '\u914d\u5217\u3092\u8cbc\u308a\u4ed8\u3051\uff08arrBase\u306f\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\uff09\r\n    ws.Range(\"A1\").Resize(UBound(arrBase), UBound(arrBase, 2)) = arrBase\r\n    \r\n    '\u30bd\u30fc\u30c8\u5b9f\u884c\u3000\u6607\u9806\uff1axlAscending\u3000\u964d\u9806\uff1axlDescending\r\n    ws.Range(\"A1\").AutoFilter\r\n    With ws.Sort\r\n        .SortFields.Clear\r\n        .SortFields.Add2 Key:=Range(\"D2:D3833\"), _\r\n                              SortOn:=xlSortOnValues, _\r\n                              Order:=xlAscending, _\r\n                              DataOption:=xlSortNormal\r\n                              \r\n        .SortFields.Add2 Key:=Range(\"C2:C3833\"), _\r\n                              SortOn:=xlSortOnValues, _\r\n                              Order:=xlAscending, _\r\n                              DataOption:=xlSortNormal\r\n                              \r\n        .SortFields.Add2 Key:=Range(\"A2:A3833\"), _\r\n                             SortOn:=xlSortOnValues, _\r\n                             Order:=xlAscending, _\r\n                             DataOption:=xlSortNormal\r\n    \r\n        .SetRange Range(\"A1:Q3833\")\r\n        .Header = xlYes\r\n        .MatchCase = False\r\n        .Orientation = xlTopToBottom\r\n        .SortMethod = xlPinYin\r\n        .Apply\r\n    End With\r\n    \r\n    '\u30bd\u30fc\u30c8\u5f8c\u306e\u914d\u5217\u3092\u683c\u7d0d\r\n    arrNext = ws.Range(\"A1\").CurrentRegion\r\n\r\n    '\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u524a\u9664\r\n    Application.DisplayAlerts = False ' \u524a\u9664\u6642\u306e\u8b66\u544a\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u975e\u8868\u793a\u306b\u3059\u308b\r\n    ws.Delete\r\n    Application.DisplayAlerts = True\r\nEnd Sub<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u6d41\u308c\uff1a\u65b0\u3057\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4f5c\u6210\u2192\u914d\u5217\u3092\u8cbc\u308a\u4ed8\u3051\u2192\u30bd\u30fc\u30c8\u5b9f\u884c\u2192\u914d\u5217\u3092\u683c\u7d0d\u2192\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u524a\u9664 Range\u7bc4\u56f2\u306e\u5909\u66f4\u306b\u6ce8\u610f\uff08.SortFields.Add2 Key:=Range(&#8220;C2:C3833&#8221;)\u306e [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[12],"class_list":["post-92","post","type-post","status-publish","format-standard","hentry","category-11","tag-12"],"_links":{"self":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/92","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/comments?post=92"}],"version-history":[{"count":2,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/92\/revisions"}],"predecessor-version":[{"id":95,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/92\/revisions\/95"}],"wp:attachment":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/media?parent=92"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/categories?post=92"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/tags?post=92"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}