{"id":8669,"date":"2020-01-02T06:00:49","date_gmt":"2020-01-01T21:00:49","guid":{"rendered":"https:\/\/www.muscle-hypertrophy.com\/?p=8669"},"modified":"2019-09-25T14:31:06","modified_gmt":"2019-09-25T05:31:06","slug":"%e6%95%b7%e3%81%8d%e8%a9%b0%e3%82%81%e3%81%9f%e6%95%a3%e5%b8%83%e5%9b%b3%e3%81%abvba%e3%81%a7%e3%83%87%e3%83%bc%e3%82%bf%e7%b3%bb%e5%88%97%e3%82%92%e8%bf%bd%e5%8a%a0%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.muscle-hypertrophy.com\/?p=8669","title":{"rendered":"\u6577\u304d\u8a70\u3081\u305f\u6563\u5e03\u56f3\u306bVBA\u3067\u30c7\u30fc\u30bf\u7cfb\u5217\u3092\u8ffd\u52a0\u3059\u308b"},"content":{"rendered":"\n

\u3000EXCEL VBA\u3067\u8907\u6570\u306e\u6563\u5e03\u56f3\u3092\u6577\u304d\u8a70\u3081\u3066\u4e26\u3079\u308b<\/a>\u3067\u306f\u6563\u5e03\u56f3\u3092\u90fd\u9053\u5e9c\u770c\u306e\u6570\u3060\u3051\u6577\u304d\u8a70\u3081\u3066\u4e26\u3079\u305f\uff0e\u4eca\u56de\u306f\u305d\u306e\u6563\u5e03\u56f3\u4e00\u3064\u4e00\u3064\u306b\u30c7\u30fc\u30bf\u7cfb\u5217\u3092\u8ffd\u52a0\u3059\u308b\uff0e<\/p>\n

<\/p>\n

\u30b4\u30fc\u30eb\u306f\u5b9f\u8cea\u516c\u50b5\u8cbb\u6bd4\u7387\u306e\u6642\u7cfb\u5217\u306e\u63a8\u79fb<\/h3>\n

\u3000\u6642\u7cfb\u5217\u306e\u63a8\u79fb\u3067\u3042\u308b\u304b\u3089\uff0c\u6298\u308c\u7dda\u30b0\u30e9\u30d5\u304c\u6700\u7d42\u7684\u306a\u30b4\u30fc\u30eb\u3068\u306a\u308b\uff0e\u30c7\u30fc\u30bf\u7cfb\u5217\u306e\u7cfb\u5217\u540d\u306f\u5e02\u533a\u753a\u6751\u3092\u793a\u3057\uff0c\u6a2a\u8ef8\u306f\u5e74\u5ea6\uff0c\u7e26\u8ef8\u306f\u516c\u50b5\u8cbb\u6bd4\u7387\u3092\u793a\u3059\uff0e<\/p>\n

\u30c6\u30fc\u30d6\u30eb\u3068\u30d5\u30a3\u30eb\u30bf\u30fc\u306e\u6271\u3044\u304c\u30ad\u30e2\u3067\u3042\u308b<\/h3>\n

\u3000\u4e00\u3064\u306e\u6563\u5e03\u56f3\u3092\u4e00\u3064\u306e\u90fd\u9053\u5e9c\u770c\u306b\u5272\u308a\u5f53\u3066\u308b\uff0e\u5177\u4f53\u7684\u306b\u306f\u30eb\u30fc\u30d7\u5185\u3067 Chart \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8ffd\u52a0\u3057\uff0c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u3067\u53d6\u5f97\u3059\u308b\uff0e<\/p>\n

\u3000\u3053\u306e Chart \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u306f\u307e\u3060\u30c7\u30fc\u30bf\u304c\u5165\u3063\u3066\u3044\u306a\u3044\uff0e\u30c7\u30fc\u30bf\u3092\u5165\u308c\u308b\u3068\u306f Series \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5024\u3092\u5165\u308c\u308b\u3053\u3068\u3060\u304c\uff0c\u305d\u306e\u5024\u306f\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u53d6\u5f97\u3059\u308b\u3053\u3068\u306b\u306a\u308b\uff0e<\/p>\n

\u3000\u30c7\u30fc\u30bf\u30c6\u30fc\u30d6\u30eb\u306b\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\uff0e\u5177\u4f53\u7684\u306b\u306f ListObject \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5bfe\u3057\u3066 AutoFilter \u30e1\u30bd\u30c3\u30c9\u3092\u9069\u7528\u3059\u308b\uff0e\u30d5\u30a3\u30eb\u30bf\u30fc\u306e Criteria \u306f\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3067\u3042\u308b\uff0e<\/p>\n

\u3000\u305d\u306e\u72b6\u614b\u3067\u3055\u3089\u306b\u5e02\u533a\u753a\u6751\u30b3\u30fc\u30c9\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\u3068\uff0c\u3088\u3046\u3084\u304f\u4e00\u3064\u306e\u5e02\u533a\u753a\u6751\u306e\u30c7\u30fc\u30bf\u7cfb\u5217\u304c\u6642\u7cfb\u5217\u3067\u5f97\u3089\u308c\u308b\uff0e<\/p>\n

\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u3092\u8aad\u307f\u8fbc\u3080<\/h4>\n

\u3000\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3084\u5e02\u533a\u753a\u6751\u30b3\u30fc\u30c9\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u304c\u3042\u308b\u3068\u597d\u90fd\u5408\u3067\u3042\u308b\uff0e\u300c\u30af\u30a8\u30ea\u3068\u63a5\u7d9a\u300d\u3067\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u8aad\u307f\u8fbc\u307f\u5148…\u300d\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\uff0e<\/p>\n

\"\u300c\u30af\u30a8\u30ea\u3068\u63a5\u7d9a\u300d\u3067\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u8aad\u307f\u8fbc\u307f\u5148...\u300d\"<\/a>
\u300c\u30af\u30a8\u30ea\u3068\u63a5\u7d9a\u300d\u3067\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u3092\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u8aad\u307f\u8fbc\u307f\u5148…\u300d<\/figcaption><\/figure>\n

\u3000\u300c\u30c7\u30fc\u30bf\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u3067\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u3092\u30c1\u30a7\u30c3\u30af\u3057OK\u3067\u5e02\u533a\u753a\u6751\u30de\u30b9\u30bf\u30fc\u304c\u8aad\u307f\u8fbc\u307e\u308c\u308b\uff0e<\/p>\n

\"\u300c\u30c7\u30fc\u30bf\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u3067\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u3092\u30c1\u30a7\u30c3\u30af\"<\/a>
\u300c\u30c7\u30fc\u30bf\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u3067\u300c\u30c6\u30fc\u30d6\u30eb\u300d\u3092\u30c1\u30a7\u30c3\u30af<\/figcaption><\/figure>\n

\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f Intersect \u95a2\u6570\u304c\u52b9\u679c\u7684<\/h4>\n

\u30002019 \u5e74 9 \u6708\u6642\u70b9\u3067\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u3092\u76f4\u63a5\u53d6\u5f97\u3059\u308b\u30d7\u30ed\u30d1\u30c6\u30a3\u306f\u5b58\u5728\u3057\u306a\u3044\uff0e\u305d\u306e\u305f\u3081\uff0cIntersect \u95a2\u6570\u3092\u7528\u3044\u3066\u7d5e\u308a\u8fbc\u3080\u3053\u3068\u306b\u306a\u308b\uff0eDataBodyRange \u30d7\u30ed\u30d1\u30c6\u30a3\u3068 SpecialCells \u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u5f15\u6570\u3068\u3057\u3066\u4e0e\u3048\u308b\u3068\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u304c\u53d6\u5f97\u3067\u304d\u308b\uff0e<\/p>\n

\u3000\u3055\u3089\u306b ListColumns \u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u52a0\u3048\u308b\u3068\uff0c\u30d5\u30a3\u30eb\u30bf\u30fc\u306e Criteria \u3068\u306a\u308b Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3082\u53d6\u5f97\u3067\u304d\u308b\uff0e<\/p>\n

\u3000Intersect \u95a2\u6570\u306e\u7d50\u679c\u304c\u53d6\u5f97\u3067\u304d\u306a\u3044\u5834\u5408\u306e\u30a8\u30e9\u30fc\u51e6\u7406\u3082\u5fc5\u8981\u306b\u306a\u308b\uff0eIf … Then … Else … End If \u7bc0\u3067\u51e6\u7406\u3092\u5206\u5c90\u3055\u305b\u308b\u3053\u3068\u306b\u306a\u308b\uff0e<\/p>\n

\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b<\/h4>\n

\u3000\u5fd8\u308c\u304c\u3061\u3067\u3042\u308b\u304c\uff0c\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u300c\u5fc5\u305a\u300d\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3057\u306a\u304f\u3066\u306f\u306a\u3089\u306a\u3044\uff0e\u3053\u308c\u3092\u5fd8\u308c\u308b\u3068\u30eb\u30fc\u30d7\u30ab\u30a6\u30f3\u30bf\u30fc\u304c\u5897\u3048\u305f\u5f8c\u306b\u610f\u56f3\u3057\u305f\u7d50\u679c\u304c\u5f97\u3089\u308c\u305a\uff0c\u60b6\u3005\u3068\u60a9\u3080\u3053\u3068\u306b\u306a\u308b\uff0e<\/p>\n

\u30b3\u30fc\u30c9\u306e\u7d44\u307f\u7acb\u3066<\/h3>\n

\u3000\u901a\u5e38\u3060\u3068\u5b8c\u6210\u54c1\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u7d42\u308f\u308a\u306a\u306e\u3060\u304c\uff0c\u4eca\u56de\u306f\u81ea\u5206\u304c\u3069\u306e\u3088\u3046\u306b\u30b3\u30fc\u30c9\u3092\u7d44\u307f\u7acb\u3066\u308b\u306e\u304b\u5099\u5fd8\u9332\u3068\u3057\u3066\u6b8b\u3059\u610f\u5473\u3082\u3042\u308a\uff0c\u9806\u306b\u8a18\u3057\u3066\u3044\u304f\uff0e<\/p>\n

\u3000\u5909\u6570\u5ba3\u8a00\u306f\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306e\u5192\u982d\u306b\u307e\u3068\u3081\u308b\u306e\u304c\u901a\u4f8b\u3067\u3042\u308b\u304c\uff0c\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u90fd\u5ea6\u8ffd\u52a0\u3059\u308b\u30b9\u30bf\u30a4\u30eb\u306a\u306e\u3067\uff0c\u6539\u884c\u3092\u4e00\u3064\u306e\u307e\u3068\u307e\u308a\u3068\u3057\u3066\u5ba3\u8a00\u3059\u308b\uff0e<\/p>\n

\u3000\u30b3\u30e1\u30f3\u30c8\u884c\u306b\u3042\u308b\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u3078\u306e\u51fa\u529b\u306f\uff0c\u5909\u6570\u306b\u5024\u304c\u5165\u3063\u3066\u3044\u308b\u304b\u78ba\u8a8d\u3059\u308b\u305f\u3081\u306b\u66f8\u3044\u3066\u3044\u308b\uff0e<\/p>\n

\u4e00\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7<\/h4>\n

\u3000\u307e\u305a\uff0c\u524d\u56de\u306e\u30b3\u30fc\u30c9\u3092\u63b2\u8f09\u3059\u308b\uff0e\u4e00\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7\u306f\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3092\u306a\u305e\u308b\u30eb\u30fc\u30d7\u30ab\u30a6\u30f3\u30bf\u30fc\u3067\u3042\u308b\uff0e\u30eb\u30fc\u30d7\u5185\u3067 Chart \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8ffd\u52a0\u3057\u3066\u3044\u308b\uff0e<\/p>\n

Sub AddCharts()\nDim mySht1      As Worksheet\nDim myCht       As Chart\nDim i           As Long\n\nSet mySht1 = Worksheets.Add\nWith mySht1\n    .Name = \"\u90fd\u9053\u5e9c\u770c\"\n    For i = 1 To 47\n        'Debug.Print i, 150 * ((i - 1) Mod 6), 150 * ((i - 1) \\ 6)\n        Set myCht = .Shapes.AddChart2(Style:=247, _\n                                XlChartType:=xlXYScatter, _\n                                       Left:=150 * ((i - 1) Mod 6), _\n                                        Top:=150 * ((i - 1) \\ 6), _\n                                      Width:=150, _\n                                     Height:=150).Chart\n        '\u3053\u3053\u306b\u6b21\u306e\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3080        \n    Next i\n\nEnd With\n\nEnd Sub<\/pre>\n
\u300017 \u884c\u76ee\u306b\u300c\u3053\u3053\u306b\u6b21\u306e\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3080\u300d\u3068\u3042\u308b\uff0e<\/p>\n
\u30c6\u30fc\u30d6\u30eb\u306b\u4e00\u6bb5\u76ee\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u9069\u7528<\/h4>\n
\u3000\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\u6e96\u5099\u3092\u884c\u3046\uff0e34 \u884c\u76ee\u3067 Criteria \u306b\u4f7f\u3046\u30d5\u30a3\u30eb\u30bf\u30fc\u6587\u5b57\u5217\uff08\u3053\u3053\u3067\u306f\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\uff09\u3092\u6b63\u898f\u5316\u3059\u308b\u305f\u3081\u306b\u30ab\u30a6\u30f3\u30bf\u30fc\u5909\u6570\u3092\u7528\u3044\u3066\u3044\u308b\uff0e\u6b63\u898f\u5316\u306b\u306f\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u306e TEXT \u95a2\u6570\u3092\u4f7f\u3063\u3066\u3044\u308b\uff0e<\/p>\n
\u300037 \u884c\u76ee\u304b\u3089 45 \u884c\u76ee\u306e With \u30d6\u30ed\u30c3\u30af\u3067\u30c6\u30fc\u30d6\u30eb\u3092\u56f2\u307f\uff0c39 \u884c\u76ee\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051, 44 \u884c\u76ee\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3057\u3066\u3044\u308b\uff0e<\/p>\n
Sub AddCharts()\nDim mySht1      As Worksheet\nDim myCht       As Chart\nDim i           As Long\n\nDim mySht2      As Worksheet\nDim myMerge     As ListObject\nDim myPrefCode  As String\nDim myPref      As String\n\nSet mySht2 = Worksheets(\"Sheet1\")\nSet myMerge = mySht2.ListObjects(\"Merge1\")\n'Debug.Print myMerge.HeaderRowRange.Address\n\nDim mySht3      As Worksheet\nDim myLstObj    As ListObject\n\nSet mySht3 = Worksheets(\"Sheet2\")\nSet myLstObj = mySht3.ListObjects(\"M_City\")\n\nSet mySht1 = Worksheets.Add\nWith mySht1\n    .Name = \"\u90fd\u9053\u5e9c\u770c\"\n    For i = 1 To 47\n        'Debug.Print i, 150 * ((i - 1) Mod 6), 150 * ((i - 1) \\ 6)\n        Set myCht = .Shapes.AddChart2(Style:=247, _\n                                XlChartType:=xlXYScatter, _\n                                       Left:=150 * ((i - 1) Mod 6), _\n                                        Top:=150 * ((i - 1) \\ 6), _\n                                      Width:=150, _\n                                     Height:=150).Chart\n    \n        '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3092\u6b63\u898f\u5316\u3059\u308b\n        myPrefCode = WorksheetFunction.Text(i, \"00\")\n        'Debug.Print myPrefCode\n        \n        With myLstObj\n            '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\n            .Range.AutoFilter field:=3, Criteria1:=myPrefCode\n            \n            '\u3053\u3053\u306b\u6b21\u306e\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3080\n            \n            '\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b\n            .Range.AutoFilter field:=3\n        End With\n        '\u3053\u3053\u307e\u3067\u306f\u30c7\u30fc\u30bf\u7cfb\u5217\u306e\u8a2d\u5b9a\n        \n    Next i\n\nEnd With\n\nEnd Sub<\/pre>\n
\u300041 \u884c\u76ee\u306b\u300c\u3053\u3053\u306b\u6b21\u306e\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3080\u300d\u3068\u3042\u308b\uff0e<\/p>\n
\u4e8c\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7<\/h4>\n
\u300044 \u884c\u76ee\u306e myRng1 \u306f\u6b21\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u306e Criteria \u3092\u8d70\u67fb\u30fb\u53d6\u5f97\u3059\u308b\u305f\u3081\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u53d6\u5f97\u3057\u3066\u3044\u308b\uff0e48 \u884c\u76ee\u306f\uff0c\u7cfb\u5217\u540d\u306b\u5165\u529b\u3059\u308b\u305f\u3081\u306e\u90fd\u9053\u5e9c\u770c\u540d\u3092\u53d6\u5f97\u3057\u3066\u3044\u308b\uff0e<\/p>\n
\u300052 \u884c\u76ee\u304b\u3089 55 \u884c\u76ee\u306f\u4e8c\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7\u3067 myRng2 \u304c myRng1 \u3092\u8d70\u67fb\u3057\uff0c\u6b21\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u306e Criteria \u3068\u3057\u3066\u6a5f\u80fd\u3059\u308b\uff0e<\/p>\n
Sub AddCharts()\nDim mySht1      As Worksheet\nDim myCht       As Chart\nDim i           As Long\n\nDim mySht2      As Worksheet\nDim myMerge     As ListObject\nDim myPrefCode  As String\nDim myPref      As String\n\nSet mySht2 = Worksheets(\"Sheet1\")\nSet myMerge = mySht2.ListObjects(\"Merge1\")\n'Debug.Print myMerge.HeaderRowRange.Address\n\nDim mySht3      As Worksheet\nDim myLstObj    As ListObject\n\nSet mySht3 = Worksheets(\"Sheet2\")\nSet myLstObj = mySht3.ListObjects(\"M_City\")\n\nDim myRng1      As Range\nDim myRng2      As Range\n\nSet mySht1 = Worksheets.Add\nWith mySht1\n    .Name = \"\u90fd\u9053\u5e9c\u770c\"\n    For i = 1 To 47\n        'Debug.Print i, 150 * ((i - 1) Mod 6), 150 * ((i - 1) \\ 6)\n        Set myCht = .Shapes.AddChart2(Style:=247, _\n                                XlChartType:=xlXYScatter, _\n                                       Left:=150 * ((i - 1) Mod 6), _\n                                        Top:=150 * ((i - 1) \\ 6), _\n                                      Width:=150, _\n                                     Height:=150).Chart\n    \n        '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3092\u6b63\u898f\u5316\u3059\u308b\n        myPrefCode = WorksheetFunction.Text(i, \"00\")\n        'Debug.Print myPrefCode\n        \n        With myLstObj\n            '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\n            .Range.AutoFilter field:=3, Criteria1:=myPrefCode\n            \n            Set myRng1 = Intersect(.DataBodyRange, _\n                                   .Range.SpecialCells(xlCellTypeVisible), _\n                                   .ListColumns(\"CityCode\").Range)\n            '\u90fd\u9053\u5e9c\u770c\u540d\u3092\u53d6\u5f97\n            myPref = myRng1.Offset(0, 3).Resize(1).Value\n            'Debug.Print myRng1.Offset(0, 3).Resize(1).Value\n            'Debug.Print myPrefCode, myRng1.Address\n            \n            For Each myRng2 In myRng1\n                'Debug.Print myRng2.Value\n                '\u3053\u3053\u306b\u66f4\u306b\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3093\u3067\u3044\u304f\n            Next myRng2\n            \n            '\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b\n            .Range.AutoFilter field:=3\n        End With\n        '\u3053\u3053\u307e\u3067\u306f\u30c7\u30fc\u30bf\u7cfb\u5217\u306e\u8a2d\u5b9a\n        \n    Next i\n\nEnd With\n\nEnd Sub<\/pre>\n
\u300054 \u884c\u76ee\u306b\u300c\u3053\u3053\u306b\u66f4\u306b\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3093\u3067\u3044\u304f\u300d\u3068\u3042\u308b\uff0e<\/p>\n
\u4e8c\u6bb5\u76ee\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u9069\u7528\uff0c\u6761\u4ef6\u5206\u5c90\uff0c\u4e09\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7<\/h4>\n
\u300062 \u884c\u76ee\u304b\u3089 97 \u884c\u76ee\u306e With \u30d6\u30ed\u30c3\u30af\u3067\u30c6\u30fc\u30d6\u30eb myMerge \u3092\u56f2\u307f\uff0c63 \u884c\u76ee\u3067\u4e8c\u6bb5\u76ee\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u9069\u7528\u3057\uff0c\u9069\u7528\u3057\u305f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092 96 \u884c\u76ee\u3067\u89e3\u9664\u3057\u3066\u3044\u308b\uff0eCriteria \u306f\u3082\u3061\u308d\u3093 myRng2 \u3067\u3042\u308b\uff0emyRng2 \u306f\u5b9f\u969b\u306b\u306f\u5e02\u533a\u753a\u6751\u30b3\u30fc\u30c9\u3092\u4fdd\u6301\u3057\u3066\u304a\u308a\uff0c\u30c6\u30fc\u30d6\u30eb\u306b\u5bfe\u3057\u3066\u5e02\u533a\u753a\u6751\u30b3\u30fc\u30c9\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u3066\u3044\u308b\uff0e<\/p>\n
\u300066 \u884c\u76ee\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u3092\u53d6\u5f97\u3057\u3066\u3044\u308b\uff0e\u3053\u3053\u3067\u3082 Intersect \u95a2\u6570\u304c\u4f7f\u308f\u308c\u308b\uff0e<\/p>\n
\u300068 \u884c\u76ee\u306e If … Then … Else … End If \u7bc0\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u304c\u53d6\u5f97\u3067\u304d\u306a\u304b\u3063\u305f\u5834\u5408\uff0c\u3064\u307e\u308a\u30de\u30b9\u30bf\u30fc\u306b\u306f\u5b58\u5728\u3059\u308b\u304c\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30f3\u30c6\u30fc\u30d6\u30eb\u306b\u306f\u5b58\u5728\u3057\u306a\u3044\u30ec\u30b3\u30fc\u30c9\u306e\u5834\u5408\u3092\u60f3\u5b9a\u3057\u3066\u3044\u308b\uff0e1:N \u306e\u30c6\u30fc\u30d6\u30eb\u7d50\u5408\u3067\u306f\u5f53\u7136\u8d77\u3053\u308a\u3046\u308b\u4e8b\u614b\u3067\u3042\u308b\uff0e\u5b9f\u969b\u306b\u306f\u5206\u5c90\u5f8c 69 \u884c\u76ee\u306e\u3088\u3046\u306b\u51e6\u7406\u3092\u8a18\u8ff0\u305b\u305a\uff0c\u4f55\u3082\u3057\u306a\u3044\u3053\u3068\u3067\u7d50\u679c\u3068\u3057\u3066\u30a8\u30e9\u30fc\u51e6\u7406\u3068\u3057\u3066\u3044\u308b\uff0e<\/p>\n
\u300073 \u884c\u76ee\u304b\u3089 83 \u884c\u76ee\u306e\u4e09\u6bb5\u76ee\u306e\u30eb\u30fc\u30d7\u3067\u306f\u3061\u3087\u3063\u3068\u5909\u308f\u3063\u305f\u51e6\u7406\u3092\u3057\u3066\u3044\u308b\uff0eSeries \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u306f\u901a\u5e38 Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u6307\u5b9a\u3057\u3066\u30c7\u30fc\u30bf\u3092\u5165\u529b\u3059\u308b\u306e\u3060\u304c\uff0c\u914d\u5217\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u308b\uff0e\u30eb\u30fc\u30d7\u5185\u3067\u52d5\u7684\u914d\u5217\u3092\u521d\u671f\u5316\u3057\u3066\u8981\u7d20\u6570\u3092\u5897\u3084\u3057\u3064\u3064\u5024\u3092\u5165\u529b\u3057\u3066\u3044\u308b\uff0e<\/p>\n
\u300086 \u884c\u76ee\u3067 Series \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8ffd\u52a0\u3057\uff0c87 \u884c\u76ee\u304b\u3089 91 \u884c\u76ee\u3067\u5b9f\u969b\u306b\u7cfb\u5217\u540d\uff0c\u7cfb\u5217X\u306e\u5024\uff0c\u7cfb\u5217Y\u306e\u5024\u306b\u30c7\u30fc\u30bf\u3092\u66f8\u304d\u8fbc\u3093\u3067\u3044\u308b\uff0e<\/p>\n
Sub AddCharts()\nDim mySht1      As Worksheet\nDim myCht       As Chart\nDim i           As Long\n\nDim mySht2      As Worksheet\nDim myMerge     As ListObject\nDim myPrefCode  As String\nDim myPref      As String\n\nSet mySht2 = Worksheets(\"Sheet1\")\nSet myMerge = mySht2.ListObjects(\"Merge1\")\n'Debug.Print myMerge.HeaderRowRange.Address\n\nDim mySht3      As Worksheet\nDim myLstObj    As ListObject\n\nSet mySht3 = Worksheets(\"Sheet2\")\nSet myLstObj = mySht3.ListObjects(\"M_City\")\n\nDim myRng1      As Range\nDim myRng2      As Range\n\nDim myRng3      As Range\nDim mySeries    As Series\nDim myCity      As String\nDim myXValue()  As Integer\nDim myValue()   As Double\nDim j           As Long\n\nSet mySht1 = Worksheets.Add\nWith mySht1\n    .Name = \"\u90fd\u9053\u5e9c\u770c\"\n    For i = 1 To 47\n        'Debug.Print i, 150 * ((i - 1) Mod 6), 150 * ((i - 1) \\ 6)\n        Set myCht = .Shapes.AddChart2(Style:=247, _\n                                XlChartType:=xlXYScatter, _\n                                       Left:=150 * ((i - 1) Mod 6), _\n                                        Top:=150 * ((i - 1) \\ 6), _\n                                      Width:=150, _\n                                     Height:=150).Chart\n    \n        '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3092\u6b63\u898f\u5316\u3059\u308b\n        myPrefCode = WorksheetFunction.Text(i, \"00\")\n        'Debug.Print myPrefCode\n        \n        With myLstObj\n            '\u90fd\u9053\u5e9c\u770c\u30b3\u30fc\u30c9\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b\n            .Range.AutoFilter field:=3, Criteria1:=myPrefCode\n            \n            Set myRng1 = Intersect(.DataBodyRange, _\n                                   .Range.SpecialCells(xlCellTypeVisible), _\n                                   .ListColumns(\"CityCode\").Range)\n            '\u90fd\u9053\u5e9c\u770c\u540d\u3092\u53d6\u5f97\u3059\u308b\n            myPref = myRng1.Offset(0, 3).Resize(1).Value\n            'Debug.Print myRng1.Offset(0, 3).Resize(1).Value\n            'Debug.Print myPrefCode, myRng1.Address\n            \n            For Each myRng2 In myRng1\n                'Debug.Print myRng2.Value\n                \n                With myMerge\n                    .Range.AutoFilter field:=2, _\n                                      Criteria1:=myRng2.Value\n                    \n                    Set myRng3 = Intersect(.Range.SpecialCells(xlCellTypeVisible), _\n                                           .DataBodyRange)\n                    If myRng3 Is Nothing Then\n                        '\u30d5\u30a3\u30eb\u30bf\u30fc\u7d50\u679c\u304c\u53d6\u5f97\u3067\u304d\u306a\u3044\u5834\u5408\u306f\u4f55\u3082\u3057\u306a\u3044\n                    Else\n                        'Debug.Print myRng3.Address\n                        \n                        For j = 0 To myRng3.Rows.Count - 1\n                            \n                            ReDim Preserve myXValue(j)\n                            ReDim Preserve myValue(j)\n                            'Debug.Print i, j\n                            \n                            myCity = myRng3.Cells(j + 1, 3)\n                            myXValue(j) = myRng3.Cells(j + 1, 1)\n                            myValue(j) = myRng3.Cells(j + 1, 4)\n                            \n                        Next j\n                        \n                        'Series\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u4ee3\u5165\n                        Set mySeries = myCht.SeriesCollection.NewSeries\n                        With mySeries\n                            .Name = myCity\n                            .XValues = myXValue\n                            .Values = myValue\n                        End With\n                    \n                    End If\n                    \n                    '\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b\n                    .Range.AutoFilter field:=2\n                End With\n                \n            Next myRng2\n            \n            '\u30eb\u30fc\u30d7\u5185\u3067\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u305f\u5f8c\u306f\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u89e3\u9664\u3059\u308b\n            .Range.AutoFilter field:=3\n        End With\n        '\u3053\u3053\u307e\u3067\u306f\u30c7\u30fc\u30bf\u7cfb\u5217\u306e\u8a2d\u5b9a\n        '\u3053\u3053\u306b\u66f4\u306b\u51e6\u7406\u3092\u66f8\u304d\u8fbc\u3080\n        \n    Next i\n\nEnd With\n\nEnd Sub<\/pre>\n
\u307e\u3068\u3081<\/h3>\n
\u3000\u4eca\u56de\u306f\u8907\u6570\u306e\u6563\u5e03\u56f3\u306b\u30c7\u30fc\u30bf\u7cfb\u5217\u3092\u8ffd\u52a0\u3059\u308b\u3068\u3053\u308d\u307e\u3067\u3092\u516c\u958b\u3057\u305f\uff0e\u30c6\u30fc\u30d6\u30eb\u3068\u30d5\u30a3\u30eb\u30bf\u30fc\u306e\u6271\u3044\u304c\u91cd\u8981\u3067\u3042\u308a\uff0c\u30b0\u30e9\u30d5\u306e\u30c7\u30fc\u30bf\u7cfb\u5217\u3068\u306e\u76f8\u6027\u306f\u629c\u7fa4\u306b\u826f\u3044\uff0e<\/p>\n
\u3000\u591a\u6bb5\u968e\u306e\u30eb\u30fc\u30d7\u3068\u30d5\u30a3\u30eb\u30bf\u30fc\u306f\u3068\u3063\u3064\u304d\u306b\u304f\u3044\u304c\uff0c\u4f7f\u3044\u3053\u306a\u3059\u3068\u5927\u304d\u306a\u529b\u3092\u767a\u63ee\u3059\u308b\uff0e\u305d\u306e\u969b\uff0c\u30de\u30b9\u30bf\u30fc\u30c6\u30fc\u30d6\u30eb\u3092\u8ffd\u52a0\u3057\u3066\u304a\u304f\u3068\u4f7f\u3044\u52dd\u624b\u304c\u826f\u3044\uff0e<\/p>\n
\u3000\u6b21\u56de\u306f\u30b0\u30e9\u30d5\u306e\u7a2e\u985e\u3092\u5909\u66f4\u3057\uff0c\u66f8\u5f0f\u8a2d\u5b9a\u3092\u884c\u3046\uff0e<\/p>\n","protected":false},"excerpt":{"rendered":"
\u3000EXCEL VBA\u3067\u8907\u6570\u306e\u6563\u5e03\u56f3\u3092\u6577\u304d\u8a70\u3081\u3066\u4e26\u3079\u308b\u3067\u306f\u6563\u5e03\u56f3\u3092\u90fd\u9053\u5e9c\u770c\u306e\u6570\u3060\u3051\u6577\u304d\u8a70\u3081\u3066\u4e26\u3079\u305f\uff0e\u4eca\u56de\u306f\u305d\u306e\u6563\u5e03\u56f3\u4e00\u3064\u4e00\u3064\u306b\u30c7\u30fc\u30bf\u7cfb\u5217\u3092\u8ffd\u52a0\u3059\u308b\uff0e<\/p>\n","protected":false},"author":1,"featured_media":8752,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[4580,4592,4566,4567,5454,4527,4601,5467,5436,5437,5475,4525,4609,5438,5463,4689,5442,4997,5460,3561,5445,5462,5428,3333,5459,5120,5441,5413,4692,5444,5435,4675,2474,5429,4528,5468,5465,5474,4530,4616,5472,5466,5470,4561,4585,4613,4600,5121,5443,4772,5424,5360,3560,5415,1437,459,5427,4658,5451,4523,5461,5464,5425,5426,5430,5423,2861,2498,5434,4383,3891,5158,462,4516,5453,1669,5440,3575,4255,4593,5447,5200,5433,5450,5446,5456,5455,4503,5448,5310,4440,4461,5439,5163,3549,5432,5431,4326,4444,5063,2780,5458,4403,4404,4402,5064,5457,4477,4809,5452,2956,4439,4460,5162,4619],"class_list":{"0":"post-8669","1":"post","2":"type-post","3":"status-publish","4":"format-standard","5":"has-post-thumbnail","6":"hentry","7":"category-technology","8":"tag-count","9":"tag-newseries","10":"tag-values","11":"tag-xvalues","12":"tag-1n","13":"tag-add","14":"tag-addchart2","15":"tag-address","16":"tag-autofilter","18":"tag-cells","19":"tag-chart","21":"tag-criteria","22":"tag-criteria1","23":"tag-databodyrange","25":"tag-debug-print","26":"tag-double","27":"tag-else","28":"tag-end-if","29":"tag-field","30":"tag-height","31":"tag-if","32":"tag-integer","33":"tag-intersect","35":"tag-left","36":"tag-listcolumns","38":"tag-listobject","40":"tag-long","41":"tag-mod","42":"tag-name","43":"tag-nothing","44":"tag-offset","45":"tag-preserve","46":"tag-range","48":"tag-redim","49":"tag-resize","50":"tag-rows","51":"tag-series","52":"tag-seriescollection","54":"tag-shapes","55":"tag-specialcells","57":"tag-string","58":"tag-style","59":"tag-text","60":"tag-then","61":"tag-top","62":"tag-value","63":"tag-vba","64":"tag-width","65":"tag-with","67":"tag-worksheet","68":"tag-worksheetfunction","69":"tag-xlcelltypevisible","70":"tag-xlcharttype","71":"tag-xlxyscatter","72":"tag-5430","73":"tag-5423","74":"tag-2861","75":"tag-2498","76":"tag-5434","77":"tag-4383","78":"tag-3891","79":"tag-5158","80":"tag-462","81":"tag-4516","82":"tag-5453","83":"tag-1669","84":"tag-5440","85":"tag-3575","86":"tag-4255","87":"tag-4593","88":"tag-5447","89":"tag-5200","90":"tag-5433","91":"tag-5450","92":"tag-5446","93":"tag-5456","94":"tag-5455","95":"tag-4503","96":"tag-5448","97":"tag-5310","98":"tag-4440","99":"tag-4461","100":"tag-5439","101":"tag-5163","102":"tag-3549","103":"tag-5432","104":"tag-5431","105":"tag-4326","106":"tag-4444","107":"tag-5063","108":"tag-2780","109":"tag-5458","110":"tag-x","111":"tag-y","112":"tag-4402","113":"tag-5064","114":"tag-5457","115":"tag-4477","116":"tag-4809","117":"tag-5452","118":"tag-2956","119":"tag-4439","120":"tag-4460","121":"tag-5162","122":"tag-4619"},"_links":{"self":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/8669","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=8669"}],"version-history":[{"count":79,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/8669\/revisions"}],"predecessor-version":[{"id":8750,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/8669\/revisions\/8750"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/media\/8752"}],"wp:attachment":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8669"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8669"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8669"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}