{"id":2669,"date":"2013-02-01T09:55:21","date_gmt":"2013-02-01T00:55:21","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=2669"},"modified":"2013-08-19T17:25:46","modified_gmt":"2013-08-19T08:25:46","slug":"%e3%83%a9%e3%83%b3%e3%83%80%e3%83%a0%e3%81%aa%e6%96%87%e5%ad%97%e5%88%97%e3%82%92%e7%94%9f%e6%88%90%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=2669","title":{"rendered":"\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"<p>\u6587\u5b57\u6570\u3092\u6307\u5b9a\u3057\u30660-9,A-Z\u307e\u3067\u306e\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<br \/>\n\u5225\u306e\u51e6\u7406\u3067\u4f7f\u3046\u4e88\u5b9a\u3060\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u7d50\u5c40\u4f7f\u3046\u6a5f\u4f1a\u304c\u7121\u304f\u306a\u3063\u3066\u3057\u307e\u3063\u305f\u306e\u3067\u30e1\u30e2\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Debug.Print MakeRndStr(100)\r\nEnd Sub\r\n\r\nPrivate Function MakeRndStr(ByVal LenNum As Long) As String\r\n'0-9,A-Z\u307e\u3067\u306e\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\r\n  Dim ret As String\r\n  Dim num As Integer\r\n  \r\n  ret = &quot;&quot; '\u521d\u671f\u5316\r\n  Do\r\n    num = RndScope(48, 90)\r\n    Select Case num\r\n      Case 58 To 64\r\n      Case Else\r\n        ret = ret &amp; ChrW(num)\r\n    End Select\r\n  Loop Until Len(ret) &gt;= LenNum\r\n  MakeRndStr = ret\r\nEnd Function\r\n\r\nPrivate Function RndScope(ByVal MinNum As Long, MaxNum As Long) As Integer\r\n'\u6307\u5b9a\u3057\u305f\u7bc4\u56f2\u306e\u4e71\u6570\u3092\u751f\u6210\r\n  Dim ret As Integer\r\n  \r\n  Randomize\r\n  ret = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)\r\n  RndScope = ret\r\nEnd Function<\/pre>\n","protected":false},"excerpt":{"rendered":"\u6587\u5b57\u6570\u3092\u6307\u5b9a\u3057\u30660-9,A-Z\u307e\u3067\u306e\u30e9\u30f3\u30c0\u30e0\u306a\u6587\u5b57\u5217\u3092\u751f\u6210\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002 \u5225\u306e\u51e6\u7406\u3067\u4f7f\u3046\u4e88\u5b9a\u3060\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u7d50\u5c40\u4f7f\u3046\u6a5f\u4f1a\u304c\u7121\u304f\u306a\u3063\u3066\u3057\u307e\u3063\u305f\u306e\u3067\u30e1\u30e2\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002 Option Explicit Public  [&hellip;]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49],"tags":[8],"class_list":["post-2669","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","tag-vba"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-H3","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2669","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2669"}],"version-history":[{"count":3,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2669\/revisions"}],"predecessor-version":[{"id":2672,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2669\/revisions\/2672"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7111"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2669"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2669"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2669"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}