{"id":2508,"date":"2017-03-31T17:01:41","date_gmt":"2017-03-31T08:01:41","guid":{"rendered":"http:\/\/anada.cloudfree.jp\/?p=2508"},"modified":"2017-10-20T17:27:00","modified_gmt":"2017-10-20T08:27:00","slug":"excelvba%e8%a6%9a%e6%9b%b8-dictionary%e3%83%ab%e3%83%bc%e3%83%97","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2508","title":{"rendered":"ExcelVBA\u899a\u66f8 Dictionary\u30eb\u30fc\u30d7"},"content":{"rendered":"<p>\u57fa\u672c\u7684\u306bScripting.Dictionary\u306f\u3001<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim dic     As Object\r\n\r\nSet dic = CreateObject(&quot;Scripting.Dictionary&quot;)\r\nIf Not dic.Exists(a) Then\r\n  dic.Add a,b\r\nEnd If\r\n<\/pre>\n<p>\u307f\u305f\u3044\u306b\u3001Exists\u30e1\u30bd\u30c3\u30c9\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u304c\u591a\u3044\u306e\u3060\u304c\u3001<br \/>\n\u3084\u306f\u308a\uff11\u3064\u305a\u3064\u78ba\u8a8d\u3057\u3066\u51e6\u7406\u3092\u884c\u3046\u3053\u3068\u3082\u306a\u304f\u306f\u306a\u3044\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim i As Long\r\nFor i = 0 To dic.Count - 1 Step 1\r\n    debug.print dic.Keys()(i) &amp; &quot;-&quot; &amp; dic.Item(i)\r\nNext i\r\n<\/pre>\n<p>\u3082\u3057\u304f\u306f\u3001<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim v As Variant\r\nFor Each v In dic.Keys()\r\n    debug.print CStr(v) &amp; &quot;-&quot; &amp; dic(v)\r\nNext\r\n<\/pre>\n<p>\u3067\u3001\u3044\u305a\u308c\u3082\u3001<strong>Keys<u>()<\/u><\/strong> \u3068<u>\u4e21\u62ec\u5f27\u3092\u4ed8\u3051\u308b<\/u>\u3068\u3053\u308d\u304c\u30dd\u30a4\u30f3\u30c8\u3002<\/p>\n<p>\u8272\u3005\u30b5\u30a4\u30c8\u3092\u898b\u3066\u307f\u305f\u306e\u3060\u304c\u3001\u3053\u306e()\u304c\u629c\u3051\u3066\u3044\u305f\u308a\u3001Item\u304cItems\u306b\u306a\u3063\u3066\u3044\u305f\u308a\u3057\u3066\u3001\u6df7\u4e71\u3057\u3066\u3044\u308b\u8a18\u8f09\u304c\u591a\u304f\u3001\u3053\u3053\u307e\u3067\u305f\u3069\u308a\u7740\u304f\u306e\u306b\u82f1\u8a9e\u306e\u30b5\u30a4\u30c8\u307e\u3067\u898b\u306b\u884c\u3063\u3066\u3057\u307e\u3063\u305f\u3002<\/p>\n<p>\u975e\u5e38\u306b\u3084\u3063\u304b\u3044\u3060\u304c\u3001\u3082\u3068\u3082\u3068\u3053\u3046\u3044\u3046\u4f7f\u3044\u65b9\u3059\u308b\u3088\u3046\u306a\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u306f\u306a\u3044\u306e\u3060\u308d\u3046\u304b\u3089\u3001\u4ed5\u65b9\u306a\u3044\u3002<\/p>\n<p>\u3061\u306a\u307f\u306b\u524a\u9664\u3059\u308b\u3068\u304d\u306fRemove\u3092\u4f7f\u3046\u3002\uff08Delete\u3067\u306f\u306a\u3044\uff09<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim v As Variant\r\nFor Each v In dic.Keys()\r\n    dic.Remove v\r\nNext\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u57fa\u672c\u7684\u306bScripting.Dictionary\u306f\u3001 Dim dic As Object Set dic = CreateObject(&quot;Scripting.Dictionary&quot;) If Not d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[165,43,164,74],"class_list":["post-2508","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-dictionary","tag-excel","tag-scripting","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2508","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2508"}],"version-history":[{"count":5,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2508\/revisions"}],"predecessor-version":[{"id":2513,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2508\/revisions\/2513"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2508"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2508"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2508"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}