{"id":963,"date":"2022-04-16T14:51:22","date_gmt":"2022-04-16T05:51:22","guid":{"rendered":"http:\/\/160.251.208.217\/?p=963"},"modified":"2022-11-18T22:23:12","modified_gmt":"2022-11-18T13:23:12","slug":"excel-vba-join-hashtable-array","status":"publish","type":"post","link":"https:\/\/it-dxblog.com\/blog\/excel-vba-join-hashtable-array\/","title":{"rendered":"\u3010Excel VBA\u3011Join\u95a2\u6570\u3092\u4f7f\u3063\u3066\u307f\u3088\u3046"},"content":{"rendered":"\n

\u307f\u306a\u3055\u3093\u3001join\u95a2\u6570\u3063\u3066\u3054\u5b58\u3058\u3067\u3059\u304b\uff1f
Excel VBA\u3067\u958b\u767a\u3092\u3057\u30667\u5e74\u304f\u3089\u3044\u305f\u3061\u307e\u3059\u304c\u3001\u3053\u306e\u524d\u521d\u3081\u3066Excel VBA\u306bjoin\u95a2\u6570\u304c\u3042\u308b\u3068\u3044\u3046\u306e\u3092\u77e5\u308a\u307e\u3057\u305f\u3002<\/p>\n\n\n\n

Join(\u6587\u5b57\u5217\u578b\u914d\u5217, \u533a\u5207\u308a\u6587\u5b57)<\/strong><\/p>\n\n\n\n

\u914d\u5217\u3092\u533a\u5207\u308a\u6587\u5b57\u3067\u7d50\u5408\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\u3067\u3059\u3002<\/p>\n\n\n\n

\uff06\u3067\u3082\u4ee3\u7528\u3067\u304d\u308b\u306e\u3067\u3059\u304c\u3001\u51e6\u7406\u901f\u5ea6\u306b\u5927\u304d\u306a\u9055\u3044\u304c\u3067\u308b\u3068\u306e\u3053\u3068\u3002
\n \u53c2\u8003<\/span>\n VBA\u306e\u9ad8\u901f\u5316\uff08\u6587\u5b57\u5217\u306e\u9023\u7d50\u306fJoin\u3067\u884c\u3046\uff09<\/span>\n <\/a><\/p>\n\n\n\n

\u914d\u5217\u3092\u4f7f\u7528\u3059\u308b\u305f\u3081\u3001join\u95a2\u6570\u3092\u4f7f\u7528\u3057\u305f\u65b9\u304c\u65e9\u3044\u3088\u3046\u3067\u3059\u3002<\/p>\n\n\n\n

\u79c1\u306f\u5165\u529b\u898f\u5247\u306b\u65e5\u4ed8\u3092\u5165\u308c\u305f\u304f\u3066\u3053\u306ejoin\u95a2\u6570\u3092\u4f7f\u7528\u3057\u307e\u3057\u305f\u3002
\u5165\u308c\u308b\u65e5\u4ed8\u306f\u30de\u30af\u30ed\u5b9f\u884c\u65e5\u304b\u30892\u5e74\u5206\u306e\u6708\u3092yyyy\/m\u5f62\u5f0f\u3067\u5165\u529b\u3057\u305f\u3044\u3068\u3044\u3046\u3082\u306e\u3067\u3057\u305f\u3002
<\/p>\n\n\n\n

<\/i>Excel VBA<\/span>
\nSub test()\n    \n   Dim i As Long\n   Dim targetDate As Date, endDate As Date\n   Dim objDate As Object\n   Dim strDate As String\n   \n\n   '\u4eca\u56de\u306f\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\u3092\u4f7f\u7528\n   Set objDate = CreateObject(\"Scripting.Dictionary\")\n   \n   targetDate = Year(Date) & \"\/\" & Month(Date) & \"\/1\"\n   endDate = DateAdd(\"m\", 24, targetDate)\n   \n   Do Until targetDate > endDate\n      \n      objDate(Format(targetDate, \"yyyy\/m\")) = targetDate\n      targetDate = DateAdd(\"m\", 1, targetDate)\n   \n   Loop\n   \n   '\u30cf\u30c3\u30b7\u30e5\u30c6\u30fc\u30d6\u30eb\u306e\u30ad\u30fc\u3092\u30ab\u30f3\u30de(,)\u3067\u7d50\u5408\n   strDate = Join(objDate.Keys, \",\")\n   \n\n   '\u5165\u529b\u898f\u5247\n   With Sheet1.Range(\"B3:B11\").Validation\n      .Delete\n      .Add Type:=xlValidateList, _\n         Formula1:=strDate\n   End With\n   \n   Set objDate = Nothing\n    \nEnd Sub<\/code><\/pre><\/div>\n\n\n\n
\u3068\u4e0a\u8a18\u306e\u3088\u3046\u306b\u30b3\u30fc\u30c9\u3092\u4f5c\u6210\u3057\u3001\u30a8\u30af\u30bb\u30eb\u306b\u5165\u529b\u898f\u5247\u3092\u8a2d\u5b9a\u3057\u307e\u3057\u305f\u3002
<\/p>\n\n\n\n
\"\"<\/figure>\n","protected":false},"excerpt":{"rendered":"
\u307f\u306a\u3055\u3093\u3001join\u95a2\u6570\u3063\u3066\u3054\u5b58\u3058\u3067\u3059\u304b\uff1fExcel VBA\u3067\u958b\u767a\u3092\u3057\u30667\u5e74\u304f\u3089\u3044\u305f\u3061\u307e\u3059\u304c\u3001\u3053\u306e\u524d\u521d\u3081\u3066Excel VBA\u306bjoin\u95a2\u6570\u304c\u3042\u308b\u3068\u3044\u3046\u306e\u3092\u77e5\u308a\u307e\u3057\u305f\u3002 Join(\u6587\u5b57\u5217\u578b\u914d\u5217, \u533a\u5207\u308a\u6587\u5b57) \u914d\u5217\u3092\u533a\u5207\u308a\u6587 … <\/p>\n","protected":false},"author":2,"featured_media":2024,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_wp_rev_ctl_limit":""},"categories":[6],"tags":[15,238,237],"class_list":["post-963","post","type-post","status-publish","format-standard","has-post-thumbnail","category-vba","tag-15","tag-238","tag-237","entry"],"_links":{"self":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/963","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=963"}],"version-history":[{"count":5,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/963\/revisions"}],"predecessor-version":[{"id":2026,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/posts\/963\/revisions\/2026"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/media\/2024"}],"wp:attachment":[{"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/media?parent=963"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/categories?post=963"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/it-dxblog.com\/blog\/wp-json\/wp\/v2\/tags?post=963"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}