{"id":7330,"date":"2016-10-13T06:00:25","date_gmt":"2016-10-12T21:00:25","guid":{"rendered":"http:\/\/fujiitoshiki.com\/improvesociety\/?p=7330"},"modified":"2017-04-28T10:47:12","modified_gmt":"2017-04-28T01:47:12","slug":"excel-vba%e3%81%aeweb-query%e3%82%92%e7%94%a8%e3%81%84%e3%81%a6%e6%b0%97%e8%b1%a1%e5%ba%81%e3%81%ae%e9%81%8e%e5%8e%bb%e3%81%ae%e3%83%87%e3%83%bc%e3%82%bf%e3%82%92%e3%83%80%e3%82%a6%e3%83%b3%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=7330","title":{"rendered":"EXCEL VBA\u306eWeb Query\u3092\u7528\u3044\u3066\u6c17\u8c61\u5e81\u306e\u904e\u53bb\u306e\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u6e29\u91cf\u6307\u6570\u304a\u3088\u3073\u590f\u67af\u308c\u6307\u6570\u3092\u6c42\u3081\u308b\u306b\u306f"},"content":{"rendered":"<div class=\"theContentWrap-ccc\"><p>\u3000\u68ee\u6797\u3092\u69cb\u6210\u3059\u308b\u6a39\u6728\u306e\u5206\u5e03\u3068\u7a4d\u7b97\u6e29\u5ea6\u306b\u306f\u5bfe\u5fdc\u304c\u898b\u3089\u308c\u307e\u3059\uff0e\u6696\u304b\u3044\u5730\u65b9\u3067\u306f\u51ac\u306e\u5bd2\u3055\u304c\uff0c\u5bd2\u3044\u5730\u65b9\u3067\u306f\u590f\u306e\u6691\u3055\u304c\u690d\u7269\u306e\u5206\u5e03\u3092\u5236\u7d04\u3059\u308b\u305f\u3081\u3067\u3059\uff0e\u5409\u826f\u7adc\u592b\u306f\u3053\u306e\u70b9\u306b\u6ce8\u76ee\u3057\uff0c\u6696\u304b\u3055\u306e\u6307\u6570warmth index\u304a\u3088\u3073\u5bd2\u3055\u306e\u6307\u6570coldness index\u3068\u3044\u3046\u6e29\u91cf\u6307\u6570\u3092\u8003\u6848\u3057\u307e\u3057\u305f\uff0e<\/p>\n<p>\u3000\u6696\u304b\u3055\u306e\u6307\u6570\u3068\u306f\u300e\u6708\u5e73\u5747\u6c17\u6e29\u304c\uff15\u2103\u3092\u8d8a\u3059\u6708\u306e\u5e73\u5747\u6c17\u6e29\u304b\u3089\uff15\u2103\u3092\u5f15\u3044\u305f\u5024\u306e\u5408\u8a08\u300f\u3067\u3059\uff0e\u5bd2\u3055\u306e\u6307\u6570\u3068\u306f\u300e\u6708\u5e73\u5747\u6c17\u6e29\u304c\uff15\u2103\u672a\u6e80\u306e\u6708\u306b\u3064\u3044\u3066\uff0c\u6708\u306e\u5e73\u5747\u6c17\u6e29\u3068\uff15\u2103\u3068\u306e\u5dee\u306e\u5408\u8a08\u300f\u3067\u30de\u30a4\u30ca\u30b9\u3092\u3064\u3051\u3066\u8868\u73fe\u3057\u307e\u3059\uff0e\u6e29\u91cf\u6307\u6570\u3068\u8a00\u3046\u5834\u5408\uff0c\u666e\u901a\u306f\u6696\u304b\u3055\u306e\u6307\u6570\u3092\u6307\u3057\u307e\u3059\uff0e<\/p>\n<p>\u3000\u65e5\u672c\u306e\u690d\u751f\u5e2f\u3092\u7279\u5fb4\u3065\u3051\u308b\u6a39\u6728\u306e\u5206\u5e03\u5e2f\u3068\u6696\u304b\u3055\u306e\u6307\u6570\u3068\u306e\u95a2\u4fc2\u3092\u307f\u308b\u3068\uff0c180, 85, 45, 15\u306e\u3068\u3053\u308d\u306b\u305d\u308c\u305e\u308c\u306e\u690d\u751f\u5e2f\u306e\u4e0a\u7aef\uff08\u3059\u306a\u308f\u3061\u4f4e\u6e29\u5074\u306e\u5206\u5e03\u9650\u754c\uff09\u304c\u96c6\u4e2d\u3057\u3066\u3044\u308b\u3068\u8a00\u308f\u308c\u307e\u3059\uff0e\u305d\u308c\u306b\u57fa\u3065\u3044\u3066\u65e5\u672c\u306e\u6c17\u5019\u306f\u6b21\u306e\u3088\u3046\u306b\u5206\u985e\u3055\u308c\u307e\u3059\uff0e<\/p>\n<ul>\n<li>\u4e9c\u71b1\u5e2f240\u304b\u3089180<\/li>\n<li>\u6696\u6e29\u5e2f\uff08\u4e18\u9675\u5e2f\uff09180\u304b\u308985<\/li>\n<li>\u51b7\u6e29\u5e2f\uff08\u5c71\u5730\u5e2f\uff0985\u304b\u308945<\/li>\n<li>\u4e9c\u5bd2\u5e2f\uff08\u4e9c\u9ad8\u5c71\u5e2f\uff0945\u304b\u308915<\/li>\n<li>\u9ad8\u5c71\u5e2f15\u672a\u6e80<\/li>\n<\/ul>\n<p><a href=\"\/\/www.biodic.go.jp\/reports\/3-4\/c217.html\" target=\"_blank\">\u690d\u751f\u985e\u578b\u53ca\u3073\u52d5\u7269\u306e\u5206\u5e03\u3092\u898f\u5b9a\u3059\u308b\u8981\u56e0<\/a><\/p>\n<p>\u3000\u6c17\u8c61\u5e81\u306e\u30b5\u30a4\u30c8\u3067\u306f\u65e5\u672c\u5168\u56fd\u306e\u904e\u53bb\u306e\u6c17\u8c61\u30c7\u30fc\u30bf\u3092\u84c4\u7a4d\u3057\u3066\u304a\u308a\uff0c\u305d\u308c\u3089\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\uff0e\u4eca\u56de\u306f EXCEL VBA \u3092\u7528\u3044\u3066 Web Query \u306b\u3088\u308a\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\uff0c\u6e29\u91cf\u6307\u6570\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5\u3092\u8ff0\u3079\u307e\u3059\uff0e<\/p>\n<p>\u3000\u65b9\u6cd5\u306f\u3053\u3061\u3089\u306e\u30da\u30fc\u30b8\uff08<a href=\"\/\/d.hatena.ne.jp\/fujii_toshiki\/20111019\/1319003389\" target=\"_blank\">EXCEL VBA\u3067\u6c17\u8c61\u5e81\u30db\u30fc\u30e0\u30da\u30fc\u30b8\u304b\u3089\u98a8\u5411\u98a8\u901f\uff0c\u964d\u6c34\u91cf\uff0c\u6c17\u6e29\uff0c\u65e5\u7167\u6642\u9593\u306e\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b<\/a>\uff09\u306b\u8a73\u3057\u3044\u3067\u3059\u304c\uff0c\u540c\u30da\u30fc\u30b8\u306e\u30b3\u30fc\u30c9\u304c\u52d5\u304b\u306a\u304b\u3063\u305f\u305f\u3081\uff0c\u518d\u5ea6\u30de\u30af\u30ed\u306e\u8a18\u9332\u304b\u3089\u63a5\u7d9a\u6587\u5b57\u5217\u306a\u3069\u3092\u691c\u8a3c\u3057\u307e\u3057\u305f\uff0e<\/p>\n<p>\u3000\u307e\u305a\u306f\u624b\u52d5\u3067\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u5834\u5408\u3067\u3059\uff0e\u6c17\u8c61\u5e81\u306e<a href=\"\/\/www.data.jma.go.jp\/obd\/stats\/etrn\/index.php\" target=\"_blank\">\u904e\u53bb\u306e\u6c17\u8c61\u30c7\u30fc\u30bf\u691c\u7d22<\/a>\u30da\u30fc\u30b8\u3092\u958b\u304d\u307e\u3059\uff0e\u5730\u70b9\uff0c\u5e74\u6708\u65e5\uff0c\u30c7\u30fc\u30bf\u306e\u7a2e\u985e\u3067\u7d5e\u308a\u8fbc\u307f\u307e\u3059\uff0e\u4efb\u610f\u306e\u5730\u70b9\u3092\u9078\u629e\u3057\u307e\u3059\uff0e\u3053\u3053\u3067\u5fc5\u8981\u306a\u306e\u306f\u6708\u5e73\u5747\u6c17\u6e29\u3067\u3059\u306e\u3067\uff0c\u5e74\u6708\u65e5\u306f\u5e74\u3092\u6307\u5b9a\u3057\uff0c\u6708\u3068\u65e5\u306f\u6307\u5b9a\u305b\u305a\u306b\u304a\u304d\u307e\u3059\uff0e\u30c7\u30fc\u30bf\u306e\u7a2e\u985e\u306f\u300e****\u5e74\u306e\u6708\u3054\u3068\u306e\u5024\u3092\u8868\u793a\u300f\u3067\u3059\uff0e<\/p>\n<p>\u3000\u3053\u3053\u3067\u30d6\u30e9\u30a6\u30b6\u306eURL\u3092\u53d6\u5f97\u3057\u307e\u3059\uff0e<\/p>\n<p><code>https:\/\/www.data.jma.go.jp\/obd\/stats\/etrn\/view\/monthly_a1.php?prec_no=55&block_no=0552&year=1977&month=&day=&view=p1<\/code><\/p>\n<p>\u3000year= \u3067\u5e74\u3092\u6307\u5b9a\u3057\u3066\u304a\u308a\uff0c\u3053\u3053\u3092\u5909\u6570\u5316\u3057\u3066\u30eb\u30fc\u30d7\u3059\u308c\u3070EXCEL\u3067\u30c7\u30fc\u30bf\u3092\u81ea\u52d5\u62bd\u51fa\u3067\u304d\u307e\u3059\uff0e\u4ee5\u4e0b\u30b3\u30fc\u30c9\u3067\u3059\uff0e<\/p>\n<pre class=\"lang:vb decode:true \" >Option Explicit\r\n\r\nSub WarmthIndex()\r\n\r\nDim mySht               As Worksheet\r\nDim myWeather(1048574, 15)  As Variant\r\nDim myURL               As String\r\nDim myYear              As Integer\r\nDim myMonth             As Integer\r\nDim myDate              As Date\r\nDim myRng               As Range\r\nDim myPlace             As String\r\nDim i                   As Integer\r\nDim j                   As Long\r\nDim myTime              As Single\r\n\r\n    Application.ScreenUpdating = False\r\n    j = 0\r\n    myDate = Date\r\n    myPlace = \"**\"\r\n    myTime = Timer\r\n    \r\n    For myYear = 1977 To Year(myDate) - 1\r\n        \r\n        myURL = \"URL;https:\/\/www.data.jma.go.jp\/obd\/stats\/etrn\/view\/monthly_a1.php?prec_no=55&amp;block_no=0552&amp;year=\" &amp; myYear &amp; \"&amp;month=&amp;day=&amp;view=p1\"\r\n        Set mySht = Worksheets.Add\r\n        Set myRng = mySht.Range(\"$A$1\")\r\n        \r\n        With mySht.QueryTables.Add(Connection:=myURL, Destination:=myRng)\r\n            .WebSelectionType = xlSpecifiedTables\r\n            .WebFormatting = xlWebFormattingNone\r\n            .WebTables = \"\"\"tablefix1\"\"\"\r\n            .Refresh BackgroundQuery:=False\r\n        End With\r\n        \r\n        Set myRng = myRng.CurrentRegion\r\n        With myRng\r\n            .Replace What:=\" \", Replacement:=\"\"\r\n            .Replace What:=\"]\", Replacement:=\"\"\r\n            .Replace What:=\")\", Replacement:=\"\"\r\n            .Replace What:=\"\/\", Replacement:=\"\"\r\n        End With\r\n        \r\n        For i = 0 To myRng.Rows.Count - 4\r\n            myWeather(j, 0) = myPlace\r\n            myWeather(j, 1) = myYear\r\n            myWeather(j, 2) = myRng(i + 4, 1)\r\n            myWeather(j, 3) = myRng(i + 4, 2)\r\n            myWeather(j, 4) = myRng(i + 4, 3)\r\n            myWeather(j, 5) = myRng(i + 4, 4)\r\n            myWeather(j, 6) = myRng(i + 4, 6)\r\n            myWeather(j, 7) = myRng(i + 4, 7)\r\n            myWeather(j, 8) = myRng(i + 4, 8)\r\n            myWeather(j, 9) = myRng(i + 4, 9)\r\n            myWeather(j, 10) = myRng(i + 4, 10)\r\n            myWeather(j, 11) = myRng(i + 4, 11)\r\n            myWeather(j, 12) = myRng(i + 4, 12)\r\n            myWeather(j, 13) = myRng(i + 4, 13)\r\n            myWeather(j, 14) = myRng(i + 4, 16)\r\n            Select Case True\r\n            Case myRng(i + 4, 6) - 5 &lt;= 0\r\n                myWeather(j, 15) = 0\r\n            Case Else\r\n                myWeather(j, 15) = myRng(i + 4, 6) - 5\r\n            End Select\r\n            j = j + 1\r\n        Next i\r\n        \r\n        Application.DisplayAlerts = False\r\n        mySht.Delete\r\n        Application.DisplayAlerts = True\r\n        \r\n    Next myYear\r\n    \r\n    Set mySht = Worksheets.Add\r\n    With mySht\r\n        .Name = myYear &amp; myPlace &amp; \"\u6e29\u91cf\u6307\u6570\"\r\n        .Range(\"$A$1\") = \"\u5730\u70b9\"\r\n        .Range(\"$B$1\") = \"\u5e74\"\r\n        .Range(\"$C$1\") = \"\u6708\"\r\n        .Range(\"$D$1\") = \"\u964d\u6c34\u91cf\u5408\u8a08\"\r\n        .Range(\"$E$1\") = \"\u65e5\u6700\u5927\u964d\u6c34\u91cf\"\r\n        .Range(\"$F$1\") = \"1\u6642\u9593\u6700\u5927\u964d\u6c34\u91cf\"\r\n        .Range(\"$G$1\") = \"\u65e5\u5e73\u5747\u6c17\u6e29\"\r\n        .Range(\"$H$1\") = \"\u65e5\u6700\u9ad8\u6c17\u6e29\"\r\n        .Range(\"$I$1\") = \"\u65e5\u6700\u4f4e\u6c17\u6e29\"\r\n        .Range(\"$J$1\") = \"\u6700\u9ad8\u6c17\u6e29\"\r\n        .Range(\"$K$1\") = \"\u6700\u4f4e\u6c17\u6e29\"\r\n        .Range(\"$L$1\") = \"\u5e73\u5747\u98a8\u901f\"\r\n        .Range(\"$M$1\") = \"\u6700\u5927\u98a8\u901f\"\r\n        .Range(\"$N$1\") = \"\u6700\u5927\u98a8\u5411\"\r\n        .Range(\"$O$1\") = \"\u65e5\u7167\u6642\u9593\"\r\n        .Range(\"$P$1\") = \"\u6e29\u91cf\u6307\u6570\"\r\n        .Range(\"$A$2:$P$1048576\") = myWeather\r\n    End With\r\n    \r\n    Debug.Print Round(Timer - myTime, 2)\r\n    Set myRng = Nothing\r\n    Set mySht = Nothing\r\n    Application.ScreenUpdating = True\r\n    \r\nEnd Sub\r\n\r\n<\/pre>\n<p>\u3000\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3092\u633f\u5165\u3057\u307e\u3059\uff0e\u8a2d\u5b9a\u306f\u30c7\u30d5\u30a9\u30eb\u30c8\u3067\u7d50\u69cb\u3067\u3059\uff0e\u300e\u884c\u300f\u306b\u306f\u5e74\u3092\u30c9\u30e9\u30c3\u30b0\u3057\u307e\u3059\uff0e\u300e\u5024\u300f\u306b\u306f\u6e29\u91cf\u6307\u6570\u3092\u30c9\u30e9\u30c3\u30b0\u3057\u307e\u3059\uff0e\u300e\u96c6\u8a08\u65b9\u6cd5\u300f\u306f\u30c7\u30fc\u30bf\u306e\u5408\u8a08\u3067\u3059\uff0e\u3053\u308c\u3067\u6e29\u91cf\u6307\u6570\u304c\u7b97\u51fa\u3055\u308c\u307e\u3059\uff0e<\/p>\n<p>\u3000\u30b0\u30e9\u30d5\u3092\u8ffd\u52a0\u3059\u308b\u306a\u3089\u6298\u308c\u7dda\u30b0\u30e9\u30d5\u304c\u826f\u3044\u3067\u3057\u3087\u3046\uff0e\u4e0b\u56f3\u306f\u5f53\u5730\u306e\u6e29\u91cf\u6307\u6570\u306e\u63a8\u79fb\u3067\u3059\u304c\uff0c1987\u5e74\u307e\u3067\u306f95\u304b\u3089105\u306e\u7bc4\u56f2\u3092\u63a8\u79fb\u3057\u3066\u3044\u305f\u306e\u304c\uff0c1988\u5e74\u304b\u30892004\u5e74\u307e\u3067\u306f95\u304b\u3089115\u307e\u3067\u306e\u7bc4\u56f2\u3092\u4e71\u9ad8\u4e0b\u3092\u7e70\u308a\u8fd4\u3057\uff0c2005\u5e74\u4ee5\u964d\u306f110\u8fd1\u8fba\u306e\u7bc4\u56f2\u306b\u53ce\u307e\u3063\u3066\u304d\u3066\u3044\u308b\u3088\u3046\u306b\u898b\u3048\u307e\u3059\uff0e\u5168\u4f53\u3068\u3057\u3066\u6e29\u6696\u5316\u50be\u5411\u304c\u898b\u3089\u308c\u307e\u3059\uff0e<\/p>\n<p><a href=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/da3e23900dea0e6cf66812e06da60003.png\"><img loading=\"lazy\" decoding=\"async\" src=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/da3e23900dea0e6cf66812e06da60003-300x293.png\" alt=\"WarmthIndex\" width=\"300\" height=\"293\" class=\"aligncenter size-medium wp-image-7355\" srcset=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/da3e23900dea0e6cf66812e06da60003-300x293.png 300w, https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/da3e23900dea0e6cf66812e06da60003.png 480w\" sizes=\"auto, (max-width: 300px) 85vw, 300px\" \/><\/a><\/p>\n<p>\u3000\u6b21\u306b\uff0c\u590f\u67af\u308c\u6307\u6570\u3092\u7b97\u51fa\u3057\u307e\u3059\uff0e\u590f\u67af\u308c\u6307\u6570\u3068\u306f\u300e\u65e5\u6700\u9ad8\u6c17\u6e29\u304c25\u2103\u3092\u8d85\u3048\u305f\u65e5\u306b\u3064\u3044\u306625\u2103\u3068\u306e\u5dee\u3092\u5e74\u9593\u3067\u5408\u8a08\u3057\u305f\u5024\u300f<a href=\"\/\/amzn.to\/2dJlFts\" target=\"_blank\">\uff08\u6b66\u4e95\u548c\u4e45\uff09<\/a>\u306e\u3053\u3068\u3067\u3059\uff0e\u57fa\u6e96\u3068\u3057\u305f25\u2103\u306f\u5bd2\u5730\u578b\u829d\u8349\u304c\u5f31\u308a\u59cb\u3081\u308b\u6e29\u5ea6\u3067\u3059\uff0e\u30b3\u30fc\u30c9\u306e\u307f\u8f09\u305b\u307e\u3059\uff0e<\/p>\n<pre class=\"lang:vb decode:true \" >Option Explicit\r\n\r\nSub SummerSlumpIndex()\r\n\r\nDim mySht               As Worksheet\r\nDim myWeather(1048574, 13)  As Variant\r\nDim myURL               As String\r\nDim myYear              As Integer\r\nDim myMonth             As Integer\r\nDim myDate              As Date\r\nDim myRng               As Range\r\nDim myPlace             As String\r\nDim i                   As Integer\r\nDim j                   As Long\r\nDim myTime              As Single\r\n\r\n    Application.ScreenUpdating = False\r\n    j = 0\r\n    myDate = Date\r\n    myPlace = \"**\"\r\n    myTime = Timer\r\n    \r\n    For myYear = 1977 To Year(myDate) - 1\r\n        \r\n        On Error Resume Next\r\n        If DateSerial(myYear, myMonth, 1) - DateSerial(Year(myDate), Month(myDate), 1) &gt;= 0 Then\r\n            Exit For\r\n        End If\r\n        On Error GoTo 0\r\n        \r\n        For myMonth = 1 To 12\r\n            \r\n            myURL = \"URL;https:\/\/www.data.jma.go.jp\/obd\/stats\/etrn\/view\/daily_a1.php?prec_no=55&amp;block_no=0552&amp;year=\" &amp; myYear &amp; \"&amp;month=\" &amp; myMonth &amp; \"&amp;day=&amp;view=p1\"\r\n            Set mySht = Worksheets.Add\r\n            Set myRng = mySht.Range(\"$A$1\")\r\n    \r\n            With mySht.QueryTables.Add(Connection:=myURL, Destination:=myRng)\r\n                .WebSelectionType = xlSpecifiedTables\r\n                .WebFormatting = xlWebFormattingNone\r\n                .WebTables = \"\"\"tablefix1\"\"\"\r\n                .Refresh BackgroundQuery:=False\r\n            End With\r\n            \r\n            Set myRng = myRng.CurrentRegion\r\n            With myRng\r\n                .Replace What:=\" \", Replacement:=\"\"\r\n                .Replace What:=\"]\", Replacement:=\"\"\r\n                .Replace What:=\")\", Replacement:=\"\"\r\n                .Replace What:=\"\/\", Replacement:=\"\"\r\n            End With\r\n            \r\n            For i = 0 To myRng.Rows.Count - 4\r\n                myWeather(j, 0) = myPlace\r\n                myWeather(j, 1) = DateSerial(myYear, myMonth, myRng(i + 4, 1))\r\n                myWeather(j, 2) = myRng(i + 4, 2)\r\n                myWeather(j, 3) = myRng(i + 4, 3)\r\n                myWeather(j, 4) = myRng(i + 4, 5)\r\n                myWeather(j, 5) = myRng(i + 4, 6)\r\n                myWeather(j, 6) = myRng(i + 4, 7)\r\n                myWeather(j, 7) = myRng(i + 4, 8)\r\n                myWeather(j, 8) = myRng(i + 4, 9)\r\n                myWeather(j, 9) = myRng(i + 4, 10)\r\n                myWeather(j, 10) = myRng(i + 4, 13)\r\n                myWeather(j, 11) = myRng(i + 4, 14)\r\n                Select Case True\r\n                Case myRng(i + 4, 5) - 5 &lt;= 0\r\n                    myWeather(j, 12) = 0\r\n                Case Else\r\n                    myWeather(j, 12) = myRng(i + 4, 5) - 5\r\n                End Select\r\n                Select Case True\r\n                Case myRng(i + 4, 6) - 25 &lt;= 0\r\n                    myWeather(j, 13) = 0\r\n                Case Else\r\n                    myWeather(j, 13) = myRng(i + 4, 6) - 25\r\n                End Select\r\n                j = j + 1\r\n            Next i\r\n                        \r\n            Application.DisplayAlerts = False\r\n            mySht.Delete\r\n            Application.DisplayAlerts = True\r\n            \r\n        Next myMonth\r\n    Next myYear\r\n    \r\n    Set mySht = Worksheets.Add\r\n    With mySht\r\n        .Name = myYear &amp; myPlace\r\n        .Range(\"$A$1\") = \"\u5730\u70b9\"\r\n        .Range(\"$B$1\") = \"\u5e74\u6708\u65e5\"\r\n        .Range(\"$C$1\") = \"\u964d\u6c34\u91cf\u5408\u8a08\"\r\n        .Range(\"$D$1\") = \"1\u6642\u9593\u6700\u5927\u964d\u6c34\u91cf\"\r\n        .Range(\"$E$1\") = \"\u5e73\u5747\u6c17\u6e29\"\r\n        .Range(\"$F$1\") = \"\u6700\u9ad8\u6c17\u6e29\"\r\n        .Range(\"$G$1\") = \"\u6700\u4f4e\u6c17\u6e29\"\r\n        .Range(\"$H$1\") = \"\u5e73\u5747\u98a8\u901f\"\r\n        .Range(\"$I$1\") = \"\u6700\u5927\u98a8\u901f\"\r\n        .Range(\"$J$1\") = \"\u6700\u5927\u98a8\u5411\"\r\n        .Range(\"$K$1\") = \"\u6700\u591a\u98a8\u5411\"\r\n        .Range(\"$L$1\") = \"\u65e5\u7167\u6642\u9593\"\r\n        .Range(\"$M$1\") = \"\u6e29\u91cf\u6307\u6570\"\r\n        .Range(\"$N$1\") = \"\u590f\u67af\u308c\u6307\u6570\"\r\n        .Range(\"$A$2:$N$1048576\") = myWeather\r\n    End With\r\n    \r\n    Debug.Print Round(Timer - myTime, 2)\r\n    Set myRng = Nothing\r\n    Set mySht = Nothing\r\n    Application.ScreenUpdating = True\r\n    \r\nEnd Sub<\/pre>\n<p>\u3000\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3092\u633f\u5165\u3057\u307e\u3059\uff0e\u300e\u884c\u300f\u306b\u306f\u5e74\u6708\u65e5\u3092\u30c9\u30e9\u30c3\u30b0\u3057\u307e\u3059\uff0e\u300e\u5024\u300f\u306b\u306f\u590f\u67af\u308c\u6307\u6570\u3092\u30c9\u30e9\u30c3\u30b0\u3057\u307e\u3059\uff0e\u300e\u96c6\u8a08\u65b9\u6cd5\u300f\u306f\u30c7\u30fc\u30bf\u306e\u5408\u8a08\u3067\u3059\uff0e\u66f4\u306b\u300e\u5206\u6790\u300f\u30bf\u30d6\u306e\u300e\u30b0\u30eb\u30fc\u30d7\u306e\u9078\u629e\u300f\u30b3\u30de\u30f3\u30c9\u3092\u30af\u30ea\u30c3\u30af\u3057\uff0c\u300e\u30b0\u30eb\u30fc\u30d7\u5316\u300f\u30a6\u30a3\u30f3\u30c9\u30a6\u3067\u300e\u5e74\u300f\u306e\u307f\u3092\u9078\u629e\u3057\u3066\u5e74\u6708\u65e5\u3092\u96c6\u7d04\u3057\u307e\u3059\uff0e\u3053\u308c\u3067\u590f\u67af\u308c\u6307\u6570\u304c\u7b97\u51fa\u3055\u308c\u307e\u3059\uff0e\u540c\u69d8\u306b\u6e29\u6696\u5316\u50be\u5411\u304c\u898b\u3089\u308c\u307e\u3059\uff0e<\/p>\n<p><a href=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/0dd715b3065b48a785653b806b4a03b9.png\"><img loading=\"lazy\" decoding=\"async\" src=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/0dd715b3065b48a785653b806b4a03b9-300x293.png\" alt=\"SummerSlumpIndex\" width=\"300\" height=\"293\" class=\"aligncenter size-medium wp-image-7360\" srcset=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/0dd715b3065b48a785653b806b4a03b9-300x293.png 300w, https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/0dd715b3065b48a785653b806b4a03b9.png 480w\" sizes=\"auto, (max-width: 300px) 85vw, 300px\" \/><\/a><br \/>\n<iframe style=\"width:120px;height:240px;\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\" frameborder=\"0\" src=\"\/\/rcm-fe.amazon-adsystem.com\/e\/cm?lt1=_blank&#038;bc1=000000&#038;IS2=1&#038;bg1=FFFFFF&#038;fc1=000000&#038;lc1=0000FF&#038;t=fujiitoshiki-22&#038;o=9&#038;p=8&#038;l=as4&#038;m=amazon&#038;f=ifr&#038;ref=as_ss_li_til&#038;asins=425956501X&#038;linkId=54d5a5384e0da18ca1a046f5998947ed\"><\/iframe><iframe style=\"width:120px;height:240px;\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\" frameborder=\"0\" src=\"\/\/rcm-fe.amazon-adsystem.com\/e\/cm?lt1=_blank&#038;bc1=000000&#038;IS2=1&#038;bg1=FFFFFF&#038;fc1=000000&#038;lc1=0000FF&#038;t=fujiitoshiki-22&#038;o=9&#038;p=8&#038;l=as4&#038;m=amazon&#038;f=ifr&#038;ref=as_ss_li_til&#038;asins=4140402156&#038;linkId=acb26e312e7a3543534e3590222fbbbd\"><\/iframe><\/p>\n<\/div>","protected":false},"excerpt":{"rendered":"<p>\u3000\u68ee\u6797\u3092\u69cb\u6210\u3059\u308b\u6a39\u6728\u306e\u5206\u5e03\u3068\u7a4d\u7b97\u6e29\u5ea6\u306b\u306f\u5bfe\u5fdc\u304c\u898b\u3089\u308c\u307e\u3059\uff0e\u6696\u304b\u3044\u5730\u65b9\u3067\u306f\u51ac\u306e\u5bd2\u3055\u304c\uff0c\u5bd2\u3044\u5730\u65b9\u3067\u306f\u590f\u306e\u6691\u3055\u304c\u690d\u7269\u306e\u5206\u5e03\u3092\u5236\u7d04\u3059\u308b\u305f\u3081\u3067\u3059\uff0e\u5409\u826f\u7adc\u592b\u306f\u3053\u306e\u70b9\u306b\u6ce8\u76ee\u3057\uff0c\u6696\u304b\u3055\u306e\u6307\u6570warmth index\u304a\u3088\u3073\u5bd2\u3055\u306e\u6307\u6570col &hellip; <a href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=7330\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;EXCEL VBA\u306eWeb Query\u3092\u7528\u3044\u3066\u6c17\u8c61\u5e81\u306e\u904e\u53bb\u306e\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u6e29\u91cf\u6307\u6570\u304a\u3088\u3073\u590f\u67af\u308c\u6307\u6570\u3092\u6c42\u3081\u308b\u306b\u306f&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":6026,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[6],"tags":[603,153,596,602,600,601,599],"class_list":["post-7330","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel","tag-excel","tag-vba","tag-web-query","tag-602","tag-600","tag-601","tag-599"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/7330","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7330"}],"version-history":[{"count":38,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/7330\/revisions"}],"predecessor-version":[{"id":7804,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/7330\/revisions\/7804"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/media\/6026"}],"wp:attachment":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7330"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7330"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7330"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}