Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA 作ってみた ユーザー定義関数 一昨日、８桁の数値を日付データへ変換してみた。 infoment.hatenablog.com色々やるうちに、漢字の日付も変換したくなった。 そこで今日は、日付の関数時を数値として認識することに挑戦する。 万・億・兆と大きな桁になると話は別だが、日付に登場する一～三十一までを変換するならば、さほど難しくない。今回の作戦は、↓ こうだ。 漢数字を単純に、数字に置き換える。 文字数から判断して、「十」を「10」として扱う。 Function ChineseToArabicNumerals(str As String) As Long Dim Sorce As String Sorce = "一二三… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F07%2F02%2F234213" title="漢数字（日付）を数値として認識してみる - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20190702/20190702233339.png Hatena Blog https://hatena.blog 2019-07-02 23:42:13 rich https://infoment.hatenablog.com/entry/2019/07/02/234213 1.0 100%