{"id":1882,"date":"2023-03-05T10:27:29","date_gmt":"2023-03-05T01:27:29","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1882"},"modified":"2023-12-05T22:15:38","modified_gmt":"2023-12-05T13:15:38","slug":"column_to_abc01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/column_to_abc01","title":{"rendered":"\u2605ExcelVBA \uff5e \u5217\u756a\u53f7\uff08\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\uff09\u304b\u3089\u3001\u5217\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\uff08\u5217\u306e\u6570\u5b57\uff09\u3092\u6c42\u3081\u308b\u3001\u3042\u308b\u3044\u306f\u3001\u305d\u306e\u9006\u3092\u884c\u3046\u65b9\u6cd5"},"content":{"rendered":"<p>\u2605ExcelVBA \uff5e \u5217\u756a\u53f7\uff08\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\uff09\u304b\u3089\u3001\u5217\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\uff08\u5217\u306e\u6570\u5b57\uff09\u3092\u6c42\u3081\u308b\u3001\u3042\u308b\u3044\u306f\u3001\u305d\u306e\u9006\u3092\u884c\u3046\u65b9\u6cd5<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<a href=\"https:\/\/www.tipsfound.com\/vba\/09003\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/www.tipsfound.com\/vba\/09003<\/a><br \/>\n<a href=\"https:\/\/learn.microsoft.com\/ja-jp\/office\/troubleshoot\/excel\/convert-excel-column-numbers\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/learn.microsoft.com\/ja-jp\/office\/troubleshoot\/excel\/convert-excel-column-numbers<\/a><br \/>\n\u306b\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nFunction ClmnNumCnvToLetr(i_Col As Long) As String\r\n   Dim a As Long\r\n   Dim b As Long\r\n   a = i_Col\r\n   ClmnNumCnvToLetr = \"\"\r\n   Do While i_Col > 0\r\n      a = Int((i_Col - 1) \/ 26)\r\n      b = (i_Col - 1) Mod 26\r\n      ClmnNumCnvToLetr = Chr(b + 65) & ClmnNumCnvToLetr\r\n      i_Col = a\r\n   Loop\r\nEnd Function\r\n\r\n\r\n'\u305d\u306e\u9006\u2193\u3002\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u304b\u3089\u5217\u306e\u6570\u5b57\u3092\u53d6\u5f97\u3059\u308b\r\n\r\nFunction ClmnLetrCnvToNum(s_ClmnLeter As String) As Long\r\n\r\n    ClmnLetrCnvToNum = Application.Range(s_ClmnLeter & 1).Column\r\n    \r\nEnd Function\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605ExcelVBA \uff5e \u5217\u756a\u53f7\uff08\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\uff09\u304b\u3089\u3001\u5217\u306e\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\uff08\u5217\u306e\u6570\u5b57\uff09\u3092\u6c42\u3081\u308b\u3001\u3042\u308b\u3044\u306f\u3001\u305d\u306e\u9006\u3092\u884c\u3046\u65b9\u6cd5 \u3000\u3000 https:\/\/www.tipsfound.com\/vba\/09003 https:\/\/l ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1882"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1882"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1882\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1882"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1882"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}