{"description":"A=1 M=13 \u307f\u305f\u3044\u306a '\u756a\u53f7\u304b\u3089\u5217\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3092\u53d6\u5f97\u3059\u308b ' '\u5f15\u6570 aNumber \u6570\u5b57 '\u623b\u308a\u5024 \u5bfe\u5fdc\u3059\u308b\u756a\u53f7\u3001\u5931\u6557\u6642\u306f\"\" Public Function ConvertNumberToAlphabet(ByVal aNumber As String) As String If Not IsNumeric(aNumber) Then ConvertNumberToAlphabet = \"\" Exit Function End If Dim AlphaDict Set AlphaDict = CreateObject(\"Scripting.Dictionary\") With Alp\u2026","width":"100%","title":"Excel VBA\u3067\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3068\u756a\u53f7\u3092\u5909\u63db\u3059\u308b\u95a2\u6570","provider_url":"https://hatena.blog","type":"rich","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2013%2F02%2F25%2F140006\" title=\"Excel VBA\u3067\u5217\u306e\u30a2\u30eb\u30d5\u30a1\u30d9\u30c3\u30c8\u3068\u756a\u53f7\u3092\u5909\u63db\u3059\u308b\u95a2\u6570 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","version":"1.0","author_name":"shikaku","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_url":"https://blog.systemjp.net/","categories":["excelvba"],"blog_title":"shikaku's blog","url":"https://blog.systemjp.net/entry/2013/02/25/140006","published":"2013-02-25 14:00:06"}