{"id":64,"date":"2013-11-20T10:19:00","date_gmt":"2013-11-20T01:19:00","guid":{"rendered":"http:\/\/www.coralnet.co.jp\/wordpress\/?guid=836c4e1a7c0ba4866c8690061541f97e"},"modified":"2024-09-01T23:35:03","modified_gmt":"2024-09-01T14:35:03","slug":"vba%e3%80%80%e3%81%a7%e9%85%8d%e5%88%97%e3%82%92%e6%8c%81%e3%81%a4%e5%a0%b4%e5%90%88","status":"publish","type":"post","link":"https:\/\/coralnet.co.jp\/raku-log\/?p=64","title":{"rendered":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408"},"content":{"rendered":"\n<p class=\"has-medium-font-size wp-block-paragraph\">VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\"><\/p>\n\n\n\n<h2 class=\"wp-block-heading\">VBA\u95a2\u6570\u4f8b<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217<br>Function strHairetsu(ByVal pIndex As Integer) As String<br>Dim ans As String<br>'----------------<br>Select Case pIndex<br>Case 0: ans = \"\u65b0\u5bbf\u533a\"<br>Case 1: ans = \"\u5343\u4ee3\u7530\u533a\"<br>Case 2: ans = \"\u4e2d\u592e\u533a\"<br>Case 3: ans = \"\u6e2f\u533a\"<br>Case 4: ans = \"\u54c1\u5ddd\u533a\"<br>'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b<br>Case 22: ans = \"\u8352\u5ddd\u533a\"<br>End Select<br>'----------------<br>strHairetsu = ans<br><br>End Function<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\u5b9f\u969b\u306e\u4f7f\u3044\u65b9<\/h2>\n\n\n\n<p class=\"has-medium-font-size wp-block-paragraph\">\u4e0a\u8a18\u7528\u610f\u3057\u305f\u30b5\u30f3\u30d7\u30eb\u95a2\u6570\u3092\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u5b9f\u884c\u3059\u308c\u3070\u3088\u3044\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>For i = 0 To 22<br>debug.print = strHairetsu(i)<br>next i<\/code><\/pre>\n\n\n\n<p class=\"has-medium-font-size wp-block-paragraph\">\u4ee5\u4e0a\u4f7f\u3044\u65b9\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<div class=\"wp-block-buttons is-style-big is-content-justification-center is-layout-flex wp-container-core-buttons-is-layout-daab01c3 wp-block-buttons-is-layout-flex\">\n<div class=\"wp-block-button is-style-rich_orange stk-shiny-button stk-bound-button\"><a class=\"wp-block-button__link wp-element-button\" href=\"https:\/\/www.amazon.co.jp\/gp\/bestsellers\/books\/492352\/ref=zg_bs_nav_books_2_466298\">Amazon \u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u66f8\u7c4d\u58f2\u308c\u7b4b\u30e9\u30f3\u30ad\u30f3\u30b0<\/a><\/div>\n<\/div>\n\n\n<div class=\"cat_postlist typecard\" style=\"--stk-postlist_column_sp:50%;--stk-postlist_column_pc:25%;--stk-postlist_column_tb:25%;\"><ul class=\"cat_postlist__ul\"><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5269\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">10\u9032\u6570\u3092\u56fa\u5b9a\u5c0f\u6570\u70b9\u65b9\u5f0f\u306e2\u9032\u6570\u3067\u8868\u73fe\u3059\u308b\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.10.20<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5299\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">10\u9032\u6570\u30922\u9032\u6570\u306e\u6d6e\u52d5\u5c0f\u6570\u70b9\u3067\u5909\u63db\u3059\u308b\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.10.20<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5398\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">10\u9032\u6570\u3092\u56fa\u5b9a\u5c0f\u6570\u70b9\uff08Q\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\uff09\u3067\u8868\u73fe\u3059\u308b\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.06.28<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5156\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">2\u9032\u6570\u21d48\u9032\u6570\u21d410\u9032\u6570\u21d416\u9032\u6570\u5909\u63db\u5668\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.09.01<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5055\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">WordPress\u3067Javascript\u306e\u96fb\u5353\u3092\u4f5c\u3063\u3066\u307f\u305f\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.09.01<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=5241\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">2\u9032\u6570\u306e\u88dc\u6570\u3092\u5909\u63db\u3059\u308b\u3002\uff08n\u9032\u6570\u306e\u6b69\u6570\u3092\u8a08\u7b97\u3059\u308b\uff09\uff5eWeb\u30c4\u30fc\u30eb\u4fbf\u5229\u5e33<\/div><time class=\"time__date gf\">2024.09.01<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=3452\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">\u30102023\u5e74\u7248\u3011\u691c\u7d22\u9806\u4f4d\u30c4\u30fc\u30eb\u7121\u6599\u7248\u306e\u6bd4\u8f03\u30fbGRC\u30fbRankTracker<\/div><time class=\"time__date gf\">2023.06.28<\/time><\/div><\/a><\/li><li class=\"cat_postlist__li\"><a href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=2488\" class=\"cat_postlist__link no-icon\"><figure class=\"eyecatch of-cover\"><img loading=\"lazy\" decoding=\"async\" width=\"485\" height=\"485\" src=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png\" class=\"archives-eyecatch-image attachment-oc-post-thum wp-post-image\" alt=\"\" srcset=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-485x485.png 485w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-300x300.png 300w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-150x150.png 150w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg-144x144.png 144w, https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2022\/01\/f_f_business_30_s512_f_business_30_2bg.png 512w\" sizes=\"auto, (max-width: 485px) 45vw, 485px\" \/><\/figure><div class=\"postbody archives_post__meta\"><div class=\"ttl\">\u3010NAS\u30ad\u30c3\u30c8\u3011Synolog DS218\u306e\u7279\u5fb4\u3068\u304a\u30b9\u30b9\u30e1\u6a5f\u80fd\u3092\u7d39\u4ecb\uff01<\/div><time class=\"time__date gf\">2023.06.21<\/time><\/div><\/a><\/li><\/ul><\/div>","protected":false},"excerpt":{"rendered":"<p>VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002&#8217;23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String    Dim ans As String    &#8216;&#8212;&#8212;&#8212;&#8212;&#8212;-    Select Case pIndex    Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot;    Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot;    Case 2: ans = &quot;\u4e2d\u592e\u533a&quot;    Case 3: ans = &quot;\u6e2f\u533a&quot;    Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;&#8217;\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b    Case 22: ans = &quot;\u8352\u5ddd\u533a&quot;       End Select    &#8216;&#8212;&#8212;&#8212;&#8212;&#8212;-    strHairetsu = ans End Function&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22        debug.print = strHairetsu(i) next i<\/p>\n","protected":false},"author":2,"featured_media":2071,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_lmt_disableupdate":"no","_lmt_disable":"","footnotes":""},"categories":[134],"tags":[46,148],"class_list":["post-64","post","type-post","status-publish","format-standard","has-post-thumbnail","category-pc","tag-excel","tag-148","article"],"aioseo_notices":[],"aioseo_head":"\n\t\t<!-- All in One SEO 5.0.4 - aioseo.com -->\n\t<meta name=\"description\" content=\"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002&#039;23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String &#039;---------------- Select Case pIndex Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot; Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot; Case 2: ans = &quot;\u4e2d\u592e\u533a&quot; Case 3: ans = &quot;\u6e2f\u533a&quot; Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;&#039;\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = &quot;\u8352\u5ddd\u533a&quot; End Select &#039;---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i\" \/>\n\t<meta name=\"robots\" content=\"max-image-preview:large\" \/>\n\t<meta name=\"author\" content=\"\u3089\u304f\u308d\u3050\"\/>\n\t<meta name=\"google-site-verification\" content=\"M-RM8WM5j3ktOlDRQl6yz-GiczMfdNzA07x9lIHHFiE\" \/>\n\t<link rel=\"canonical\" href=\"https:\/\/coralnet.co.jp\/raku-log\/?p=64\" \/>\n\t\t<meta name=\"generator\" content=\"All in One SEO (AIOSEO) 5.0.4\" \/>\n\n\t\t<!-- Global site tag (gtag.js) - Google Analytics -->\n<script async src=\"https:\/\/www.googletagmanager.com\/gtag\/js?id=UA-44700861-1\"><\/script>\n<script>\n window.dataLayer = window.dataLayer || [];\n function gtag(){dataLayer.push(arguments);}\n gtag('js', new Date());\n\n gtag('config', 'UA-44700861-1');\n<\/script>\n\t\t<meta property=\"og:locale\" content=\"ja_JP\" \/>\n\t\t<meta property=\"og:site_name\" content=\"RAKU-LOG - ITMedia\u3084\u6d41\u884c\u308a\u306e\u8a71\u984c\u3001\u6c17\u306b\u306a\u308b\u30cb\u30e5\u30fc\u30b9\u306b\u3064\u3044\u3066\u3086\u308b\uff5e\u304f\u8a9e\u308a\u307e\u3059\u3002\" \/>\n\t\t<meta property=\"og:type\" content=\"article\" \/>\n\t\t<meta property=\"og:title\" content=\"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG\" \/>\n\t\t<meta property=\"og:description\" content=\"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002&#039;23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String &#039;---------------- Select Case pIndex Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot; Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot; Case 2: ans = &quot;\u4e2d\u592e\u533a&quot; Case 3: ans = &quot;\u6e2f\u533a&quot; Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;&#039;\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = &quot;\u8352\u5ddd\u533a&quot; End Select &#039;---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i\" \/>\n\t\t<meta property=\"og:url\" content=\"https:\/\/coralnet.co.jp\/raku-log\/?p=64\" \/>\n\t\t<meta property=\"article:published_time\" content=\"2013-11-20T01:19:00+00:00\" \/>\n\t\t<meta property=\"article:modified_time\" content=\"2024-09-01T14:35:03+00:00\" \/>\n\t\t<meta name=\"twitter:card\" content=\"summary\" \/>\n\t\t<meta name=\"twitter:site\" content=\"@subnctw\" \/>\n\t\t<meta name=\"twitter:title\" content=\"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG\" \/>\n\t\t<meta name=\"twitter:description\" content=\"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002&#039;23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String &#039;---------------- Select Case pIndex Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot; Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot; Case 2: ans = &quot;\u4e2d\u592e\u533a&quot; Case 3: ans = &quot;\u6e2f\u533a&quot; Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;&#039;\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = &quot;\u8352\u5ddd\u533a&quot; End Select &#039;---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i\" \/>\n\t\t<meta name=\"twitter:image\" content=\"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg.png\" \/>\n\t\t<script type=\"application\/ld+json\" class=\"aioseo-schema\">\n\t\t\t{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"BlogPosting\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#blogposting\",\"name\":\"VBA \\u3067\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408 - RAKU-LOG\",\"headline\":\"VBA\\u3000\\u3067\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408\",\"author\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?author=2#author\"},\"publisher\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#organization\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/wp-content\\\/uploads\\\/2023\\\/02\\\/f_f_business_14_s512_f_business_14_0bg.png\",\"width\":512,\"height\":512},\"datePublished\":\"2013-11-20T10:19:00+09:00\",\"dateModified\":\"2024-09-01T23:35:03+09:00\",\"inLanguage\":\"ja\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#webpage\"},\"isPartOf\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#webpage\"},\"articleSection\":\"\\u30a2\\u30d7\\u30ea\\uff06PC\\u30ac\\u30b8\\u30a7\\u30c3\\u30c8, excel, \\u30a8\\u30af\\u30bb\\u30eb\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#breadcrumblist\",\"itemListElement\":[{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#listItem\",\"position\":1,\"name\":\"\\u30db\\u30fc\\u30e0\",\"item\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?cat=134#listItem\",\"name\":\"\\u30a2\\u30d7\\u30ea\\uff06PC\\u30ac\\u30b8\\u30a7\\u30c3\\u30c8\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?cat=134#listItem\",\"position\":2,\"name\":\"\\u30a2\\u30d7\\u30ea\\uff06PC\\u30ac\\u30b8\\u30a7\\u30c3\\u30c8\",\"item\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?cat=134\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#listItem\",\"name\":\"VBA\\u3000\\u3067\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408\"},\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#listItem\",\"name\":\"\\u30db\\u30fc\\u30e0\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#listItem\",\"position\":3,\"name\":\"VBA\\u3000\\u3067\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408\",\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?cat=134#listItem\",\"name\":\"\\u30a2\\u30d7\\u30ea\\uff06PC\\u30ac\\u30b8\\u30a7\\u30c3\\u30c8\"}}]},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#organization\",\"name\":\"RAKU-L0G\",\"description\":\"ITMedia\\u3084\\u6d41\\u884c\\u308a\\u306e\\u8a71\\u984c\\u3001\\u6c17\\u306b\\u306a\\u308b\\u30cb\\u30e5\\u30fc\\u30b9\\u306b\\u3064\\u3044\\u3066\\u3086\\u308b\\uff5e\\u304f\\u8a9e\\u308a\\u307e\\u3059\\u3002\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?author=2#author\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?author=2\",\"name\":\"\\u3089\\u304f\\u308d\\u3050\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#authorImage\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4bc74de179594da20ea7b999a2075d024c8358e90a7eddd9f0d9433efdd4647a?s=96&d=mm&r=g\",\"width\":96,\"height\":96,\"caption\":\"\\u3089\\u304f\\u308d\\u3050\"}},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#webpage\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64\",\"name\":\"VBA \\u3067\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408 - RAKU-LOG\",\"description\":\"VBA\\u3067\\u306f\\u914d\\u5217\\u3092\\u6301\\u3064\\u5834\\u5408\\u3001\\u3069\\u3046\\u3082\\u3057\\u3063\\u304f\\u308a\\u3053\\u306a\\u304f\\u3066\\u3001\\u7d50\\u5c40\\u4ee5\\u4e0b\\u306e\\u3088\\u3046\\u306a\\u3084\\u308a\\u65b9\\u304c\\u3044\\u3044\\u307f\\u305f\\u3044\\u3002'23\\u533a\\u3092\\u8fd4\\u3059\\u3088\\u3046\\u306a\\u914d\\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = \\\"\\u65b0\\u5bbf\\u533a\\\" Case 1: ans = \\\"\\u5343\\u4ee3\\u7530\\u533a\\\" Case 2: ans = \\\"\\u4e2d\\u592e\\u533a\\\" Case 3: ans = \\\"\\u6e2f\\u533a\\\" Case 4: ans = \\\"\\u54c1\\u5ddd\\u533a\\\"'\\u968f\\u6642\\u4ed6\\u306e\\u533a\\u3092\\u8a18\\u8ff0\\u3059\\u308b Case 22: ans = \\\"\\u8352\\u5ddd\\u533a\\\" End Select '---------------- strHairetsu = ans End Function------------------\\u305d\\u3057\\u3066\\u547c\\u3073\\u51fa\\u3057\\u305f\\u3044\\u7b87\\u6240\\u3067\\u672c\\u95a2\\u6570\\u3092\\u5b9f\\u884c\\u3059\\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i\",\"inLanguage\":\"ja\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#website\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#breadcrumblist\"},\"author\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?author=2#author\"},\"creator\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?author=2#author\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/wp-content\\\/uploads\\\/2023\\\/02\\\/f_f_business_14_s512_f_business_14_0bg.png\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64\\\/#mainImage\",\"width\":512,\"height\":512},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/?p=64#mainImage\"},\"datePublished\":\"2013-11-20T10:19:00+09:00\",\"dateModified\":\"2024-09-01T23:35:03+09:00\"},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#website\",\"url\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/\",\"name\":\"RAKU-LOG\",\"description\":\"ITMedia\\u3084\\u6d41\\u884c\\u308a\\u306e\\u8a71\\u984c\\u3001\\u6c17\\u306b\\u306a\\u308b\\u30cb\\u30e5\\u30fc\\u30b9\\u306b\\u3064\\u3044\\u3066\\u3086\\u308b\\uff5e\\u304f\\u8a9e\\u308a\\u307e\\u3059\\u3002\",\"inLanguage\":\"ja\",\"publisher\":{\"@id\":\"https:\\\/\\\/coralnet.co.jp\\\/raku-log\\\/#organization\"}}]}\n\t\t<\/script>\n\t\t<!-- All in One SEO -->\n\n","aioseo_head_json":{"title":"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG","description":"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = \"\u65b0\u5bbf\u533a\" Case 1: ans = \"\u5343\u4ee3\u7530\u533a\" Case 2: ans = \"\u4e2d\u592e\u533a\" Case 3: ans = \"\u6e2f\u533a\" Case 4: ans = \"\u54c1\u5ddd\u533a\"'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = \"\u8352\u5ddd\u533a\" End Select '---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i","canonical_url":"https:\/\/coralnet.co.jp\/raku-log\/?p=64","robots":"max-image-preview:large","keywords":"","webmasterTools":{"google-site-verification":"M-RM8WM5j3ktOlDRQl6yz-GiczMfdNzA07x9lIHHFiE","miscellaneous":"&lt;!-- Global site tag (gtag.js) - Google Analytics --&gt;\n&lt;script async src=\"https:\/\/www.googletagmanager.com\/gtag\/js?id=UA-44700861-1\"&gt;&lt;\/script&gt;\n&lt;script&gt;\n&nbsp;window.dataLayer = window.dataLayer || [];\n&nbsp;function gtag(){dataLayer.push(arguments);}\n&nbsp;gtag('js', new Date());\n\n&nbsp;gtag('config', 'UA-44700861-1');\n&lt;\/script&gt;"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"BlogPosting","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#blogposting","name":"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG","headline":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408","author":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?author=2#author"},"publisher":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/#organization"},"image":{"@type":"ImageObject","url":"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg.png","width":512,"height":512},"datePublished":"2013-11-20T10:19:00+09:00","dateModified":"2024-09-01T23:35:03+09:00","inLanguage":"ja","mainEntityOfPage":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#webpage"},"isPartOf":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#webpage"},"articleSection":"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8, excel, \u30a8\u30af\u30bb\u30eb"},{"@type":"BreadcrumbList","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#breadcrumblist","itemListElement":[{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/#listItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/coralnet.co.jp\/raku-log\/","nextItem":{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/?cat=134#listItem","name":"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8"}},{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/?cat=134#listItem","position":2,"name":"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8","item":"https:\/\/coralnet.co.jp\/raku-log\/?cat=134","nextItem":{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#listItem","name":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408"},"previousItem":{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/#listItem","name":"\u30db\u30fc\u30e0"}},{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#listItem","position":3,"name":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408","previousItem":{"@type":"ListItem","@id":"https:\/\/coralnet.co.jp\/raku-log\/?cat=134#listItem","name":"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8"}}]},{"@type":"Organization","@id":"https:\/\/coralnet.co.jp\/raku-log\/#organization","name":"RAKU-L0G","description":"ITMedia\u3084\u6d41\u884c\u308a\u306e\u8a71\u984c\u3001\u6c17\u306b\u306a\u308b\u30cb\u30e5\u30fc\u30b9\u306b\u3064\u3044\u3066\u3086\u308b\uff5e\u304f\u8a9e\u308a\u307e\u3059\u3002","url":"https:\/\/coralnet.co.jp\/raku-log\/"},{"@type":"Person","@id":"https:\/\/coralnet.co.jp\/raku-log\/?author=2#author","url":"https:\/\/coralnet.co.jp\/raku-log\/?author=2","name":"\u3089\u304f\u308d\u3050","image":{"@type":"ImageObject","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#authorImage","url":"https:\/\/secure.gravatar.com\/avatar\/4bc74de179594da20ea7b999a2075d024c8358e90a7eddd9f0d9433efdd4647a?s=96&d=mm&r=g","width":96,"height":96,"caption":"\u3089\u304f\u308d\u3050"}},{"@type":"WebPage","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#webpage","url":"https:\/\/coralnet.co.jp\/raku-log\/?p=64","name":"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG","description":"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = \"\u65b0\u5bbf\u533a\" Case 1: ans = \"\u5343\u4ee3\u7530\u533a\" Case 2: ans = \"\u4e2d\u592e\u533a\" Case 3: ans = \"\u6e2f\u533a\" Case 4: ans = \"\u54c1\u5ddd\u533a\"'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = \"\u8352\u5ddd\u533a\" End Select '---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i","inLanguage":"ja","isPartOf":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/#website"},"breadcrumb":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#breadcrumblist"},"author":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?author=2#author"},"creator":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?author=2#author"},"image":{"@type":"ImageObject","url":"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg.png","@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64\/#mainImage","width":512,"height":512},"primaryImageOfPage":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/?p=64#mainImage"},"datePublished":"2013-11-20T10:19:00+09:00","dateModified":"2024-09-01T23:35:03+09:00"},{"@type":"WebSite","@id":"https:\/\/coralnet.co.jp\/raku-log\/#website","url":"https:\/\/coralnet.co.jp\/raku-log\/","name":"RAKU-LOG","description":"ITMedia\u3084\u6d41\u884c\u308a\u306e\u8a71\u984c\u3001\u6c17\u306b\u306a\u308b\u30cb\u30e5\u30fc\u30b9\u306b\u3064\u3044\u3066\u3086\u308b\uff5e\u304f\u8a9e\u308a\u307e\u3059\u3002","inLanguage":"ja","publisher":{"@id":"https:\/\/coralnet.co.jp\/raku-log\/#organization"}}]},"og:locale":"ja_JP","og:site_name":"RAKU-LOG - ITMedia\u3084\u6d41\u884c\u308a\u306e\u8a71\u984c\u3001\u6c17\u306b\u306a\u308b\u30cb\u30e5\u30fc\u30b9\u306b\u3064\u3044\u3066\u3086\u308b\uff5e\u304f\u8a9e\u308a\u307e\u3059\u3002","og:type":"article","og:title":"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG","og:description":"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot; Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot; Case 2: ans = &quot;\u4e2d\u592e\u533a&quot; Case 3: ans = &quot;\u6e2f\u533a&quot; Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = &quot;\u8352\u5ddd\u533a&quot; End Select '---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i","og:url":"https:\/\/coralnet.co.jp\/raku-log\/?p=64","article:published_time":"2013-11-20T01:19:00+00:00","article:modified_time":"2024-09-01T14:35:03+00:00","twitter:card":"summary","twitter:site":"@subnctw","twitter:title":"VBA \u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408 - RAKU-LOG","twitter:description":"VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = &quot;\u65b0\u5bbf\u533a&quot; Case 1: ans = &quot;\u5343\u4ee3\u7530\u533a&quot; Case 2: ans = &quot;\u4e2d\u592e\u533a&quot; Case 3: ans = &quot;\u6e2f\u533a&quot; Case 4: ans = &quot;\u54c1\u5ddd\u533a&quot;'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b Case 22: ans = &quot;\u8352\u5ddd\u533a&quot; End Select '---------------- strHairetsu = ans End Function------------------\u305d\u3057\u3066\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u672c\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b For i = 0 To 22 debug.print = strHairetsu(i) next i","twitter:image":"https:\/\/coralnet.co.jp\/raku-log\/wp-content\/uploads\/2023\/02\/f_f_business_14_s512_f_business_14_0bg.png"},"aioseo_meta_data":{"post_id":"64","title":null,"description":null,"keywords":null,"keyphrases":{"focus":{"keyphrase":"","score":0,"analysis":{"keyphraseInTitle":{"score":0,"maxScore":9,"error":1}}},"additional":[]},"primary_term":null,"canonical_url":null,"og_title":null,"og_description":null,"og_object_type":"default","og_image_type":"default","og_image_url":null,"og_image_width":null,"og_image_height":null,"og_image_custom_url":null,"og_image_custom_fields":null,"og_video":"","og_custom_url":null,"og_article_section":null,"og_article_tags":null,"twitter_use_og":false,"twitter_card":"default","twitter_image_type":"default","twitter_image_url":null,"twitter_image_custom_url":null,"twitter_image_custom_fields":null,"twitter_title":null,"twitter_description":null,"schema":{"blockGraphs":[],"customGraphs":[],"default":{"data":{"Article":[],"Course":[],"Dataset":[],"FAQPage":[],"Movie":[],"Person":[],"Product":[],"ProductReview":[],"Car":[],"Recipe":[],"Service":[],"SoftwareApplication":[],"WebPage":[]},"graphName":"BlogPosting","isEnabled":true},"graphs":[],"defaultGraph":"","defaultPostTypeGraph":""},"schema_type":"default","schema_type_options":null,"pillar_content":false,"robots_default":true,"robots_noindex":false,"robots_noarchive":false,"robots_nosnippet":false,"robots_nofollow":false,"robots_noimageindex":false,"robots_noodp":false,"robots_notranslate":false,"robots_max_snippet":"-1","robots_max_videopreview":"-1","robots_max_imagepreview":"large","priority":null,"frequency":"default","local_seo":null,"limit_modified_date":0,"created":"2021-12-02 12:18:47","updated":"2026-10-25 17:29:12","focus_keyword":null,"additional_keywords":null,"truseo_locale":null,"ai":null,"breadcrumb_settings":null,"seo_analyzer_scan_date":null},"aioseo_breadcrumb":"<div class=\"aioseo-breadcrumbs\"><span class=\"aioseo-breadcrumb\">\n\t\t\t<a href=\"https:\/\/coralnet.co.jp\/raku-log\/\" title=\"\u30db\u30fc\u30e0\">\u30db\u30fc\u30e0<\/a>\n\t\t<\/span><span class=\"aioseo-breadcrumb-separator\">\u00bb<\/span><span class=\"aioseo-breadcrumb\">\n\t\t\t<a href=\"https:\/\/coralnet.co.jp\/raku-log\/?cat=134\" title=\"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8\">\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8<\/a>\n\t\t<\/span><span class=\"aioseo-breadcrumb-separator\">\u00bb<\/span><span class=\"aioseo-breadcrumb\">\n\t\t\tVBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408\n\t\t<\/span><\/div>","aioseo_breadcrumb_json":[{"label":"\u30db\u30fc\u30e0","link":"https:\/\/coralnet.co.jp\/raku-log\/"},{"label":"\u30a2\u30d7\u30ea\uff06PC\u30ac\u30b8\u30a7\u30c3\u30c8","link":"https:\/\/coralnet.co.jp\/raku-log\/?cat=134"},{"label":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408","link":"https:\/\/coralnet.co.jp\/raku-log\/?p=64"}],"modified_by":"\u3089\u304f\u308d\u3050","_links":{"self":[{"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/posts\/64","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=64"}],"version-history":[{"count":6,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/posts\/64\/revisions"}],"predecessor-version":[{"id":5809,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/posts\/64\/revisions\/5809"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=\/wp\/v2\/media\/2071"}],"wp:attachment":[{"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=64"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=64"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/coralnet.co.jp\/raku-log\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=64"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}