{"id":6819,"date":"2018-09-08T09:09:27","date_gmt":"2018-09-08T00:09:27","guid":{"rendered":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/?p=6819"},"modified":"2018-09-08T09:09:27","modified_gmt":"2018-09-08T00:09:27","slug":"excelvba-num-to-alphabet","status":"publish","type":"post","link":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/2018\/09\/08\/excelvba-num-to-alphabet\/","title":{"rendered":"ExcelVBA\u3067\u756a\u53f7\u304b\u3089\u5217\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3092\u7c21\u5358\u306b\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\uff08\uff12\u6841\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u5bfe\u5fdc\uff09"},"content":{"rendered":"

VBA\u3067Excel\u3092\u5236\u5fa1\u3057\u3066\u3044\u308b\u3068\u3001\u6570\u5b57\u304b\u3089\u5217\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3092\u53d6\u5f97\u3057\u305f\u3044\u3068\u304d\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

\"\"<\/a><\/p>\n

\u305d\u3093\u306a\u3068\u304d\u3001\u3053\u3093\u306a\u529b\u6280\u3067\u3084\u3063\u3066\u3044\u307e\u305b\u3093\u304b\uff1f<\/p>\n

\r\nSub Test1()\r\n   Dim ColNum As Variant\r\n   ColNum = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _\r\n                  "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _\r\n                  "U", "V", "W", "X", "Y", "Z")\r\n\r\n   Dim num As Long\r\n   num = InputBox("\u5217No\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044")\r\n    \r\n   MsgBox (ColNum(num))\r\nEnd Sub\r\n \r\n<\/pre>\n
 <\/p>\n
\u6271\u3046\u5217\u306e\u7bc4\u56f2\u304c\u72ed\u3044\u3068\u304d\u306f\u3053\u308c\u3067\u3082\u826f\u3044\u306e\u3067\u3059\u304c\u3001\u591a\u304f\u306e\u5217\u6570\u3092\u30ab\u30d0\u30fc\u3059\u308b\u306e\u306f\u3061\u3087\u3063\u3068\u3057\u3093\u3069\u3044\u3067\u3059\u3002<\/p>\n
\u305d\u3093\u306a\u6642\u306f\u3082\u3063\u3068\u30b9\u30de\u30fc\u30c8\u306a\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
[ad#top-1]<\/p>\n
\u30ad\u30e3\u30e9\u30af\u30bf\u30fc\u30b3\u30fc\u30c9\u304b\u3089\u53d6\u5f97\u3059\u308b<\/h2>\n
Chr(\u30b3\u30fc\u30c9)\u3067\u6570\u5b57\u304b\u3089\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u306b\u5909\u63db\u3067\u304d\u307e\u3059\u3002Chr(65)\u304c\u300cA\u300d\u306a\u306e\u3067\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\r\nSub Test2()\r\n   Dim num As Long\r\n   num = InputBox("\u5217\u306e\u6570\u5b57\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044")\r\n   MsgBox (Chr(num + 64))\r\nEnd Sub\r\n \r\n<\/pre>\n
 <\/p>\n
\u3053\u306e\u3088\u3046\u306bInputBox\u306b\u6570\u5024\u3092\u5165\u308c\u308c\u3070\u305d\u308c\u306b\u5bfe\u5fdc\u3057\u305f\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u304c\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u3057\u304b\u3057\u3053\u308c\u3060\u3068\u3001A\u304b\u3089Z\u307e\u3067\u3057\u304b\u5bfe\u5fdc\u3067\u304d\u307e\u305b\u3093\u3002<\/p>\n
Excel\u306fZ\u3092\u904e\u304e\u305f\u3089AA\u306e\u3088\u3046\u306b\uff12\u6841\u306b\u306a\u308b\u306e\u3067\u305d\u308c\u306b\u5bfe\u5fdc\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n
\r\nSub Test3()\r\n   Dim num As Long\r\n   num = InputBox("\u5217\u306e\u6570\u5b57\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044")\r\n   head = ""\r\n   If num &gt; 26 Then\r\n         head = Chr(Fix((num - 1) \/ 26) + 64)\r\n   End If\r\n   \r\n   num = (num - 1) Mod 26 + 1\r\n \r\n   MsgBox (head &amp; Chr(num + 64))\r\nEnd Sub\r\n \r\n<\/pre>\n
 <\/p>\n
\u4f8b\u3048\u307040\u3068\u5165\u529b\u3057\u305f\u3089AN\u3068\u51fa\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u4f46\u3057\u3001\u3053\u308c\u304c\u30ab\u30d0\u30fc\u3067\u304d\u308b\u306e\u306f\uff12\u6841\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u306e\u307f\u3002Excel\u306b\u306f\uff13\u6841\u307e\u3067\u3042\u308b\u306e\u3067\u305d\u3053\u307e\u3067\u5fc5\u8981\u306a\u4eba\u306f\u540c\u3058\u8981\u9818\u3067\uff13\u6841\u307e\u3067\u5bfe\u5fdc\u3055\u305b\u307e\u3057\u3087\u3046\u3002<\/p>\n
[ad#ad-1]<\/p>\n","protected":false},"excerpt":{"rendered":"
VBA\u3067Excel\u3092\u5236\u5fa1\u3057\u3066\u3044\u308b\u3068\u3001\u6570\u5b57\u304b\u3089\u5217\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3092\u53d6\u5f97\u3057\u305f\u3044\u3068\u304d\u304c\u3042 … <\/p>\n","protected":false},"author":1,"featured_media":6820,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[23,6],"tags":[],"class_list":["post-6819","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel","category-vba"],"aioseo_notices":[],"_links":{"self":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/6819","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/comments?post=6819"}],"version-history":[{"count":2,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/6819\/revisions"}],"predecessor-version":[{"id":6825,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/6819\/revisions\/6825"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media\/6820"}],"wp:attachment":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media?parent=6819"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/categories?post=6819"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/tags?post=6819"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}