分離した値を文字列で取得したい

Question

エクセルVBAで教えてほしいことがあります。

シートのA列2行目から順に
「2018.01生産実績.xlsx」
「2018.02生産実績.xlsx」
・
・
「2018.10生産実績.xlsx」
「2018.11生産実績.xlsx」
とあります。
2018・・・年
01・・・月
各セルから年月をB列に抜き出したいです。

以下のコードで分離したのですが、10月が「2018.1」となってしまいます。

        cnt = 2
        Do Until WS.Cells(cnt, 1).Value = ""
            tmp = Split(WS.Cells(cnt, 1).Value, "生産")
            WS.Cells(cnt, 2).Value = Str(tmp(0))
            cnt = cnt + 1
        Loop

Str関数で文字列にしたつもりなのですが、できませんでした。
コードをどのように修正すれば、「2018.10」とできますか？
教えて下さい。

Comments

[m.ts10806]

何が起きているのでしょうか？起きている現象を具体的に記載してください。 >Str関数で文字列にしたつもりなのですが、できませんでした。

Answer 1

推測も入ってますが・・・

そもそもSplitの結果はString型の配列になりますので、tmp(0)の結果は

型はString
内容は"2018.10"

になっています。なぜ2018.10をセルへ代入すると2018.1になるかというと・・・

(A) Str(tmp(0))
わざわざStr(tmp(0))とやってしまうとtmp(0)の値が"2018.10"という文字列であってもStr関数がこの値の外部表現から「浮動小数点数だなー」と解釈してしまい2018.1という浮動小数点数に変換してからそれを文字列へ変換するという動きをするようです。

Dim a As Variant
a = "2018.10"
Debug.Print a
a = Str(a)
Debug.Print a

上記を実行してみてください。最初の印字結果は2018.10ですが2番目は2018.1になることが観察できます。

(B) セルの書式と代入動作
では(A)に配慮してStrを使わずtmp(0)をそのままセルへ代入すればうまくいくかというと代入先のセルの書式がデフォルトである「標準」になっているとやはりダメみたいです。つまりこういうセルへの代入の際に「代入する値が文字列であってもその外部表現を書式に合わせて解釈してしまう」という動作をするようです。書式が「標準」の場合、セルの値が数値なのか文字列なのか日付なのかは「代入しようとしている値の型」ではなく「その値の外部表現？」によって解釈されてしまうようです。よって"2018.10"をセルへ代入しようとしてもそれが「あ、これ浮動小数点数だよね・・・きっと」と解釈されセルへ代入すると型がvbDoubleになってしまうのです。

対処１：
セルへ代入した結果、文字列としての"2018.10"となってほしい場合はVBAが2018.10を浮動小数点数と見做さないようセルの書式を「文字列」にする必要があります。具体的には

...
WS.Cells(cnt, 2).NumberFormatLocal = "@"
WS.Cells(cnt, 2) = tmp(0)

のようにすれば期待通りになると思います。
(追記：ttyp03さん回答で解決済みですが・・・上の回答はttyp03さんの(1)の方なのですが、こうすると後でセルの書式を変更した際にセルの値が2018.1に変わってしまうため、ttyp03さん回答の(2)の方がベターかも知れません)

対処２：
前述したようにVBAでは「見た目で型が自動解釈されてしまう」仕様があるため、「浮動小数として解釈し得るような文字列データにならないように配慮する」と混乱が避けられると思います。例えば年月を2018.10のように浮動小数に見えるような表現を取らず、2018-10のように日付や数値として認められないような表現にするのです。

...
tmp = WS.Cells(cnt, 1)
WS.Cells(cnt, 2) = Left(tmp, 4) & "-" & Mid(tmp, 6, 2)

このようにすることで本件のような混乱を回避できるのではないでしょうか？

Answer 2

セルで2018.10という値は、書式を明示しない限り2018.1という数値として扱われてしまいます。
対処法は２つあります。

①セルの表示形式を文字列にする。

WS.Cells(cnt, 2).NumberFormatLocal ="@"
WS.Cells(cnt, 2).Value = tmp(0)

②値の前にシングルクォートを設定する。

WS.Cells(cnt, 2).Value = "'" & tmp(0)

Comments

[cd987456]

ありがとうございます。解決致しました。