{"id":48,"date":"2022-02-27T15:15:05","date_gmt":"2022-02-27T06:15:05","guid":{"rendered":"http:\/\/160.251.208.217\/?p=48"},"modified":"2025-07-26T22:52:22","modified_gmt":"2025-07-26T13:52:22","slug":"excelvba-rensouhairetsu","status":"publish","type":"post","link":"https:\/\/it-dxblog.com\/blog\/excelvba-rensouhairetsu\/","title":{"rendered":"\u3010Excel VBA\u3011\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\uff08\u9023\u60f3\u914d\u5217\uff09"},"content":{"rendered":"\n<h2 class=\"wp-block-sgb-headings sgb-heading\" id=\"i-0\"><span class=\"sgb-heading__inner sgb-heading--type2 with-icon\" style=\"background-color:var(--sgb-main-color);border-color:transparent;font-size:1.2em\"><i class=\"fa fa-chevron-circle-right\" style=\"color:rgba(255,255,255,.6)\"><\/i><span class=\"sgb-heading__text\" style=\"color:#FFF\">\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\uff08\u9023\u60f3\u914d\u5217\uff09<\/span><\/span><\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">Excel VBA\u3067<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306f\u8f9e\u66f8\u578b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u3001<strong>\u30ad\u30fc(key)<\/strong>\u3068<strong>\u30a2\u30a4\u30c6\u30e0(Item)<\/strong>\u3092\u30bb\u30c3\u30c8\u683c\u7d0d\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<br><strong>\u914d\u5217<\/strong>\u306e\u5834\u5408\u306f<strong>\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u756a\u53f7<\/strong>\u3068<strong>\u8981\u7d20<\/strong>\u304c\u30bb\u30c3\u30c8\u3067\u3001<strong>\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u756a\u53f7<\/strong>\u306f0\u304b\u3089\u59cb\u307e\u308b<strong>\u6574\u6570<\/strong>\u3067\u3059\u304c\u3001<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306e\u5834\u5408\u3001<strong>\u30ad\u30fc<\/strong>\u306f\u6574\u6570\u4ee5\u5916\u306e\u6587\u5b57\u306a\u3069\u3082\u4f7f\u7528\u53ef\u80fd\u3067\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3053\u308c\u3092\u5229\u7528\u3057\u3066<strong>Vlookup\u95a2\u6570<\/strong>\u306e\u3088\u3046\u306b\u4f7f\u7528\u3057\u3066\u307f\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4f8b\u3048\u3070\u4e0b\u8a18\u306e\u3088\u3046\u306b\u679c\u7269\u306e\u540d\u524d\u3068\u5024\u6bb5\u304c\u66f8\u3044\u3066\u3042\u308b\u30ea\u30b9\u30c8\u304b\u3089\u3044\u3061\u3054\u306e\u5024\u6bb5\u3092\u6c42\u3081\u3066\u3001E2\u30bb\u30eb\u306b\u5024\u3092\u6c42\u3081\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"442\" height=\"328\" src=\"http:\/\/160.251.208.217\/wp-content\/uploads\/2022\/02\/ht_2.png\" alt=\"\" class=\"wp-image-190\" srcset=\"https:\/\/it-dxblog.com\/blog\/wp-content\/uploads\/2022\/02\/ht_2.png 442w, https:\/\/it-dxblog.com\/blog\/wp-content\/uploads\/2022\/02\/ht_2-300x223.png 300w\" sizes=\"auto, (max-width: 442px) 100vw, 442px\"><\/figure>\n\n\n\n<div class=\"hcb_wrap\"><pre class=\"prism line-numbers lang-plain\" data-file=\"ExcelVBA_\u9023\u60f3\u914d\u5217\"><code>Sub test1()\n    \n    Dim price As Long\n    Dim obj As Object\n    Set obj = CreateObject(\"Scripting.Dictionary\")\n    \n    With Sheet1\n       For i = 2 To 11\n          obj(Trim(.Cells(i, 1))) = .Cells(i, 2)\n       Next i\n    \n       If obj.exists(Trim(.Range(\"E1\"))) = True Then\n          price = obj(Trim(.Range(\"E1\")))\n          .Range(\"E2\") = price\n       End If\n    End With\n    \n    Set obj = Nothing\n            \nEnd Sub<\/code><\/pre><\/div>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u3092\u5229\u7528\u3059\u308b\u5834\u5408\u3001\u5fc5\u305a\u4e0b\u8a18\u306e\u3088\u3046\u306b<strong>CreateObject<\/strong>\u3092\u4f7f\u7528\u3057\u3066\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u578b\u306e\u5909\u6570\u306b\u683c\u7d0d\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Dim obj as Object\nSet obj = CreateObject(\"Scripting.Dictionary\")<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>For i = 2 To 11\n   obj(Trim(.Cells(i, 1))) = .Cells(i, 2)\nNext i<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\">\u30eb\u30fc\u30d7\u3092\u4f7f\u7528\u3057\u3066\u3001<strong>\u30ad\u30fc<\/strong>\u3068<strong>\u30a2\u30a4\u30c6\u30e0<\/strong>\u3092<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306b\u683c\u7d0d\u3057\u3066\u3044\u304d\u307e\u3059\u3002<br>\u4eca\u56de\u306f\u679c\u7269\u306e\u540d\u524d\u3092<strong>\u30ad\u30fc<\/strong>\u306b\u3001\u5024\u6bb5\u3092<strong>\u30a2\u30a4\u30c6\u30e0<\/strong>\u306b\u683c\u7d0d\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>If obj.exists(Trim(.Range(\"E1\"))) = True Then\n   price = obj(Trim(.Range(\"E1\")))\n   .Range(\"E2\") = price\n End If<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306b\u306f<strong>Exists\u30e1\u30bd\u30c3\u30c9<\/strong>\u3092\u4f7f\u7528\u3067\u304d\u3001<strong>\u30ad\u30fc<\/strong>\u304c\u5b58\u5728\u3059\u308b\u304b\u78ba\u8a8d\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<br>\u3053\u3061\u3089\u3092\u5229\u7528\u3057\u3066\u3044\u3061\u3054\u306e\u5024\u6bb5\u3092\u6c42\u3081\u307e\u3059\u3002<br>\u3053\u306e\u6642\u3001\u683c\u7d0d\u3059\u308b\u3068\u304d\u306bTrim\u95a2\u6570\u3092\u4f7f\u7528\u3057\u305f\u306e\u3067\u3001\u540c\u69d8\u306bTrim\u95a2\u6570\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u5148\u307b\u3069\u306e\u4f8b\u3067\u306f\u3001<strong>\u30ad\u30fc<\/strong>\u306b\u306f\u679c\u7269\u306e\u540d\u524d\u3001<strong>\u30a2\u30a4\u30c6\u30e0<\/strong>\u306b\u306f\u5024\u6bb5\u3092\u5165\u308c\u307e\u3057\u305f\u304c\u3001<strong>\u30a2\u30a4\u30c6\u30e0<\/strong>\u306b\u884c\u756a\u53f7\u3092\u683c\u7d0d\u3059\u308c\u3070\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306b\u7523\u5730\u3001\u5024\u6bb5\u3082\u7c21\u5358\u306b\u6c42\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"635\" height=\"350\" src=\"http:\/\/160.251.208.217\/wp-content\/uploads\/2022\/03\/10eb8eaa5c8e1fe3231f92df29048320.png\" alt=\"\" class=\"wp-image-597\" srcset=\"https:\/\/it-dxblog.com\/blog\/wp-content\/uploads\/2022\/03\/10eb8eaa5c8e1fe3231f92df29048320.png 635w, https:\/\/it-dxblog.com\/blog\/wp-content\/uploads\/2022\/03\/10eb8eaa5c8e1fe3231f92df29048320-300x165.png 300w\" sizes=\"auto, (max-width: 635px) 100vw, 635px\"><\/figure>\n\n\n\n<div class=\"hcb_wrap\"><pre class=\"prism line-numbers lang-vba\" data-lang=\"Excel VBA\"><code>Dim i as long\nDim rowNum as long\n\nWith Sheet1\n   For i = 2 To 11\n\u3000\u3000\u3000obj(Trim(.Cells(i, 1))) = i\n   Next i\n\n   If obj.exists(Trim(.Range(\"E1\"))) = True Then\n      rowNum = obj(Trim(.Range(\"E1\")))\n      .Range(\"E2\") = .Cells(rowNum, 2)  '\u7523\u5730\n      .Range(\"E3\") = .Cells(rownum, 3)) '\u5024\u6bb5\n   End If\nEnd With\n<\/code><\/pre><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\u4eca\u56de\u306e\u4f8b\u306f\u3001<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306b\u683c\u7d0d\u3059\u308b\u969b\u3001obj(Trim(.Cells(i, 1))) = .Cells(i, 2)\u3068\u3044\u3046\u66f8\u304d\u65b9\u3092\u3057\u307e\u3057\u305f\u304c\u3001\u3053\u306e\u5834\u5408\u3001\u540c\u3058<strong>\u30ad\u30fc<\/strong>\u304c\u3042\u308b\u5834\u5408\u3001\u4e0a\u66f8\u304d\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4f8b\uff09\uff11\uff12\u884c\u76ee\u306b\u300c\u3044\u3061\u3054\u300d\uff14\uff15\uff10\u5186\u3068\u3042\u3063\u305f\u5834\u5408\u3001\u3044\u3061\u3054\u306f\uff14\uff15\uff10\u5186\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4e0b\u8a18\u306e<strong>Add\u30e1\u30bd\u30c3\u30c9<\/strong>\u3092\u5229\u7528\u3057\u3066<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306b\u683c\u7d0d\u3059\u308b\u3068\u304d\u306f\u3001\u540c\u3058<strong>\u30ad\u30fc<\/strong>\u304c\u3042\u308b\u5834\u5408\u3001\u4e0a\u66f8\u304d\u3055\u308c\u306a\u3044\u305f\u3081\u3001\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\u3002<\/p>\n\n\n\n<div class=\"hcb_wrap\"><pre class=\"prism line-numbers lang-vba\" data-lang=\"Excel VBA\"><code>For i = 2 To 11\n\u3000\u3000obj.Add Trim(.Cells(i, 1)) , .Cells(i, 2)\nNext i<\/code><\/pre><\/div>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>Add\u30e1\u30bd\u30c3\u30c9<\/strong>\u3092\u4f7f\u7528\u3057\u30a8\u30e9\u30fc\u3092\u56de\u907f\u3059\u308b\u5834\u5408\u306f\u3001\u91cd\u8907\u304c\u306a\u3044\u30ea\u30b9\u30c8\u3001\u3082\u3057\u304f\u306f<strong>\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb<\/strong>\u306b\u683c\u7d0d\u3059\u308b\u969b\u306b\u5fc5\u305a<strong>Exists\u30e1\u30bd\u30c3\u30c9<\/strong>\u3092\u5229\u7528\u3057\u3001\u4e00\u5ea6\u683c\u7d0d\u3057\u3066\u3044\u308b<strong>\u30ad\u30fc<\/strong>\u3092\u9664\u5916\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\"><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Excel VBA\u3067\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\u306f\u8f9e\u66f8\u578b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u3001\u30ad\u30fc(key)\u3068\u30a2\u30a4\u30c6\u30e0(Item)\u3092\u30bb\u30c3\u30c8\u683c\u7d0d\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u914d\u5217\u306e\u5834\u5408\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u756a\u53f7\u3068\u8981\u7d20\u304c\u30bb\u30c3\u30c8\u3067\u3001\u30a4 &#8230; <\/p>\n","protected":false},"author":2,"featured_media":2033,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_wp_rev_ctl_limit":""},"categories":[6],"tags":[238,14],"class_list":["post-48","post","type-post","status-publish","format-standard","has-post-thumbnail","category-vba","tag-238","tag-14","entry"],"_links":{"self":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/48","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/comments?post=48"}],"version-history":[{"count":5,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/48\/revisions"}],"predecessor-version":[{"id":2857,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/48\/revisions\/2857"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/media\/2033"}],"wp:attachment":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/media?parent=48"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/categories?post=48"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/tags?post=48"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}