{"id":126,"date":"2023-07-22T08:22:11","date_gmt":"2023-07-21T23:22:11","guid":{"rendered":"https:\/\/rafa-system.com\/vba\/?p=126"},"modified":"2023-07-23T07:38:06","modified_gmt":"2023-07-22T22:38:06","slug":"post-126","status":"publish","type":"post","link":"https:\/\/rafa-system.com\/vba\/2023\/07\/22\/post-126\/","title":{"rendered":"\u884c\u756a\u53f7Collection\u3067\u9ad8\u901f\u5316\u3067\u304d\u308b\u304b\u691c\u8a3c"},"content":{"rendered":"\n<h2 class=\"wp-block-heading\">\u6761\u4ef6<\/h2>\n\n\n\n<p>\u30fbSheet1\u306b\u682a\u4fa1\u60c5\u5831\u306e\u30c6\u30fc\u30d6\u30eb\u304c\u3042\u308a\u30011\u5217\u76ee\u306b\u8a3c\u5238\u30b3\u30fc\u30c9\u30014\u5217\u76ee\u306b\u5e02\u5834\u540d\u304c\u3042\u308b<br>\u30fb\u682a\u4fa1\u60c5\u5831\u30c6\u30fc\u30d6\u30eb\u306e\u30ec\u30b3\u30fc\u30c9\u6570\u306f3832\u4ef6\u3042\u308b<br>\u30fbSheet2\u306b\u306f\u8a3c\u5238\u30b3\u30fc\u30c9\u304c473\u4ef6\u3042\u308b<br>\u30fbSheet2\u306e\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u5bfe\u3057\u3066\u3001Sheet1\u304b\u3089\u5e02\u5834\u540d\u3092\u53d6\u5f97\u3057\u305f\u3044<br>\uff08\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u306a\u3089VLOOKUP\u3067\u7c21\u5358\u306b\u53d6\u5f97\u3067\u304d\u308b\uff09<\/p>\n\n\n\n<p>\u6642\u9593\u8a08\u6e2c\u7528\u306e\u95a2\u6570<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub MeasureFunctionSpeed()\n    Dim startTime As Double\n    Dim endTime As Double\n    Dim elapsedTime As Double\n    \n    ' \u51e6\u7406\u6642\u9593\u8a08\u6e2c\u306e\u958b\u59cb\n    startTime = Timer\n    \n    ' \u6e2c\u5b9a\u3057\u305f\u3044\u95a2\u6570\u3092\u547c\u3073\u51fa\u3059\n    Call collectiontest\n    \n    ' \u51e6\u7406\u6642\u9593\u8a08\u6e2c\u306e\u7d42\u4e86\n    endTime = Timer\n    elapsedTime = endTime - startTime\n    \n    ' \u7d50\u679c\u3092\u8868\u793a\n    Debug.Print \"\u51e6\u7406\u6642\u9593: \" &amp; Round(elapsedTime, 2) &amp; \"\u79d2\"\nEnd Sub<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">For\u30eb\u30fc\u30d7\u3067\u884c\u756a\u53f7\u3092\u63a2\u3059\u5834\u5408\uff08Collection\u7121\u3057\uff09<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub speedtest()\n\n    '\u691c\u7d22\u5bfe\u8c613832\u884c\u304b\u3089\u4e00\u81f4\u3059\u308b\u884c\u3092\u63a2\u3057\u3066\u5e02\u5834\u540d\u3092\u53d6\u5f97\u3059\u308b\n    Dim i As Long, j As Long\n    For i = 1 To 473\n        For j = 1 To 3832\n            If Sheet1.Cells(j, 1).Value = Sheet2.Cells(i, 1).Value Then\n                Sheet2.Cells(i, 2).Value = Sheet1.Cells(j, 4).Value\n                Exit For\n            End If\n        Next j\n    Next i\n\nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u8a08\u6e2c\u7d50\u679c<\/p>\n\n\n\n<p>1\u56de\u76ee\uff1a6.89\u79d2<br>2\u56de\u76ee\uff1a6.63\u79d2<br>3\u56de\u76ee\uff1a6.64\u79d2<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">Collection\u3067\u884c\u756a\u53f7\u3092\u53d6\u5f97\u3059\u308b\u5834\u5408<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub collectiontest()\n    '\u884c\u756a\u53f7Collection\u306e\u4f5c\u6210\n    Dim kabu As Collection: Set kabu = New Collection\n    Dim arr: arr = Sheet1.Range(\"A1\").CurrentRegion\n    Dim i As Long\n    For i = 2 To UBound(arr)\n        kabu.Add i, CStr(arr(i, 1)) '\u5024\u304c\u884c\u756a\u53f7\u3001\u30ad\u30fc\u304c\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u306a\u308b\n    Next i\n    Erase arr\n    \n    'Collection\u306e\u30ad\u30fc\u3067\u884c\u756a\u53f7\u3092\u53d6\u5f97\u3059\u308b\n    Dim tmp As Long\n    For i = 1 To 473\n        tmp = Sheet2.Cells(i, 1).Value\n        tmp = kabu.Item(CStr(tmp))\n        Sheet2.Cells(i, 2).Value = Sheet1.Cells(tmp, 4).Value\n    Next i\nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u8a08\u6e2c\u7d50\u679c<\/p>\n\n\n\n<p>1\u56de\u76ee\uff1a0.07\u79d2<br>2\u56de\u76ee\uff1a0.06\u79d2<br>3\u56de\u76ee\uff1a0.08\u79d2<\/p>\n\n\n\n<p>6\u79d2\u3082\u7bc0\u7d04\u3067\u304d\u308b\u3058\u3083\u306a\u3044\u304b<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u3055\u3089\u306b\u51fa\u529b\u3092\u914d\u5217\u5909\u6570\u306b\u3057\u305f\u5834\u5408<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub collectiontest()\n    '\u884c\u756a\u53f7Collection\u306e\u4f5c\u6210\n    Dim kabu As Collection: Set kabu = New Collection\n    Dim arr: arr = Sheet1.Range(\"A1\").CurrentRegion\n    Dim i As Long\n    For i = 2 To UBound(arr)\n        kabu.Add i, CStr(arr(i, 1)) '\u5024\u304c\u884c\u756a\u53f7\u3001\u30ad\u30fc\u304c\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u306a\u308b\n    Next i\n    Erase arr\n    \n    ReDim arr(1 To 473, 1 To 1)\n    Dim tmp As Long\n    For i = 1 To 473\n        tmp = Sheet2.Cells(i, 1).Value\n        tmp = kabu.Item(CStr(tmp))\n        arr(i, 1) = Sheet1.Cells(tmp, 4).Value\n    Next i\n    \n    Sheet2.Range(\"B1\").Resize(UBound(arr)) = arr\n    \nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u8a08\u6e2c\u7d50\u679c<\/p>\n\n\n\n<p>1\u56de\u76ee\uff1a0.05\u79d2<br>2\u56de\u76ee\uff1a0.04\u79d2<br>3\u56de\u76ee\uff1a0.04\u79d2<\/p>\n\n\n\n<p>\u4e00\u898b\u3042\u3093\u307e\u6e1b\u3063\u3066\u306a\u3044\u3058\u3083\u3093\u3068\u601d\u3046\u304c\u3001\u3053\u306e\u691c\u8a3c\u3067\u306fSheet2\u306e\u30ec\u30b3\u30fc\u30c9\u6570\u304c473\u4ef6\u3057\u304b\u306a\u3044<br>\u3053\u308c\u304c1000\u4ef6\u4ee5\u4e0a\u3068\u304b\u3042\u308b\u306a\u3089\u51e6\u7406\u901f\u5ea6\u306e\u5dee\u306f\u3082\u3063\u3068\u5e83\u304c\u308b\u3068\u601d\u308f\u308c\u308b<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u7d50\u8ad6\uff1a\u884c\u756a\u53f7Collection\u306f\u9ad8\u901f\u5316\u306b\u5927\u5909\u5f79\u7acb\u3064<\/h2>\n\n\n\n<h2 class=\"wp-block-heading\">worksheetfunction\u3068\u306e\u6bd4\u8f03<\/h2>\n\n\n\n<p>\u7530\u4e2d\u6c0f\u306e\u52d5\u753b\uff1ahttps:\/\/www.youtube.com\/watch?v=gqcMa0Q17K0<br>\u306b\u304a\u3044\u3066\u300c\u9023\u60f3\u914d\u5217\u3088\u308a\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u65b9\u304c\u901f\u3044\u300d\u7684\u306a\u767a\u8a00\u304c\u3042\u308b\u306e\u3067\u691c\u8a3c<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub main()\n    On Error GoTo err\n    Dim ws As Worksheet: Set ws = Sheet2\n    Dim wf As WorksheetFunction: Set wf = WorksheetFunction\n    \n    Dim i As Long\n    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row\n        ws.Cells(i, 2) = wf.XLookup(ws.Cells(i, 1), Sheet1.columns(1), Sheet1.columns(4))\n    Next i\n    \n    Exit Sub\nerr:\n    MsgBox \"hello\"\nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u51e6\u7406\u6642\u9593: 0.37\u79d2<br>\u51e6\u7406\u6642\u9593: 0.34\u79d2<br>\u51e6\u7406\u6642\u9593: 0.34\u79d2<\/p>\n\n\n\n<p>\u51fa\u529b\u306b\u914d\u5217\u3092\u4f7f\u3063\u305f\u5834\u5408<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub main()\r\n    On Error GoTo err\r\r\n    Dim ws As Worksheet: Set ws = Sheet2\r\n    Dim wf As WorksheetFunction: Set wf = WorksheetFunction\r\r\n    Dim i As Long, arr() As Variant\r\n    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row\r\n        ReDim Preserve arr(1 To i)\r\n        arr(i) = wf.XLookup(ws.Cells(i, 1), Sheet1.columns(1), Sheet1.columns(4))\r\n    Next i\r\n    \r\n    ws.Range(\"B1\").Resize(UBound(arr)) = wf.Transpose(arr)\r\n    \r\n    Exit Sub\r\nerr:\r\n    MsgBox \"hello\"\r\nEnd Sub\r<\/code><\/pre>\n\n\n\n<p>\u51e6\u7406\u6642\u9593: 0.11\u79d2<br>\u51e6\u7406\u6642\u9593: 0.12\u79d2<br>\u51e6\u7406\u6642\u9593: 0.12\u79d2<\/p>\n\n\n\n<p>\u518d\u5ea6Collection\u3067\u691c\u8a3c\u3059\u308b\u3068<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub collectiontest()\n    '\u884c\u756a\u53f7Collection\u306e\u4f5c\u6210\n    Dim kabu As Collection: Set kabu = New Collection\n    Dim arr: arr = Sheet1.Range(\"A1\").CurrentRegion\n    Dim i As Long\n    For i = 2 To UBound(arr)\n        kabu.Add i, CStr(arr(i, 1)) '\u5024\u304c\u884c\u756a\u53f7\u3001\u30ad\u30fc\u304c\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u306a\u308b\n    Next i\n    Erase arr\n    \n    'Collection\u306e\u30ad\u30fc\u3067\u884c\u756a\u53f7\u3092\u53d6\u5f97\u3059\u308b\n    Dim tmp As Long\n    For i = 1 To 473\n        tmp = Sheet2.Cells(i, 1).Value\n        tmp = kabu.Item(CStr(tmp))\n        Sheet2.Cells(i, 2).Value = Sheet1.Cells(tmp, 2).Value\n    Next i\nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u51e6\u7406\u6642\u9593: 0.06\u79d2<br>\u51e6\u7406\u6642\u9593: 0.05\u79d2<br>\u51e6\u7406\u6642\u9593: 0.06\u79d2<\/p>\n\n\n\n<p>\u51fa\u529b\u3092\u914d\u5217\u306b\u3057\u305f\u5834\u5408<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub collectiontest()\r\n    '\u884c\u756a\u53f7Collection\u306e\u4f5c\u6210\r\n    Dim kabu As Collection: Set kabu = New Collection\r\n    Dim arr: arr = Sheet1.Range(\"A1\").CurrentRegion\r\n    Dim i As Long\r\n    For i = 2 To UBound(arr)\r\n        kabu.Add i, CStr(arr(i, 1)) '\u5024\u304c\u884c\u756a\u53f7\u3001\u30ad\u30fc\u304c\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u306a\u308b\r\n    Next i\r\n    Erase arr\r\n    \r\n    'Collection\u306e\u30ad\u30fc\u3067\u884c\u756a\u53f7\u3092\u53d6\u5f97\u3059\u308b\r\n    Dim tmp As Long\r\n    For i = 1 To 473\r\n        tmp = Sheet2.Cells(i, 1).Value\r\n        tmp = kabu.Item(CStr(tmp))\r\n        ReDim Preserve arr(1 To i)\r\n        arr(i) = Sheet1.Cells(tmp, 4).Value\r\n    Next i\r\n    \r\n    Sheet2.Range(\"B1\").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)\r\nEnd Sub<\/code><\/pre>\n\n\n\n<p>\u51e6\u7406\u6642\u9593: 0.05\u79d2<br>\u51e6\u7406\u6642\u9593: 0.04\u79d2<br>\u51e6\u7406\u6642\u9593: 0.04\u79d2<\/p>\n\n\n\n<p>\u7d50\u8ad6\uff1a\u9023\u60f3\u914d\u5217\uff08Collection\uff09\u306e\u65b9\u304c\u901f\u3044<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6761\u4ef6 \u30fbSheet1\u306b\u682a\u4fa1\u60c5\u5831\u306e\u30c6\u30fc\u30d6\u30eb\u304c\u3042\u308a\u30011\u5217\u76ee\u306b\u8a3c\u5238\u30b3\u30fc\u30c9\u30014\u5217\u76ee\u306b\u5e02\u5834\u540d\u304c\u3042\u308b\u30fb\u682a\u4fa1\u60c5\u5831\u30c6\u30fc\u30d6\u30eb\u306e\u30ec\u30b3\u30fc\u30c9\u6570\u306f3832\u4ef6\u3042\u308b\u30fbSheet2\u306b\u306f\u8a3c\u5238\u30b3\u30fc\u30c9\u304c473\u4ef6\u3042\u308b\u30fbSheet2\u306e\u8a3c\u5238\u30b3\u30fc\u30c9\u306b\u5bfe\u3057\u3066\u3001Shee [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[14,9,5],"class_list":["post-126","post","type-post","status-publish","format-standard","hentry","category-uncategorized","tag-collection","tag-9","tag-5"],"_links":{"self":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/126","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=126"}],"version-history":[{"count":10,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/126\/revisions"}],"predecessor-version":[{"id":165,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/126\/revisions\/165"}],"wp:attachment":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/media?parent=126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/categories?post=126"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/tags?post=126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}