質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.33%

  • VBA

    1906questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 161

cd987456

score 24

エクセル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」とできますか?
教えて下さい。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • mts10806

    2018/07/02 10:58

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

    キャンセル

回答 2

checkベストアンサー

0

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

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/07/02 11:23

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

    キャンセル

0

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

そもそも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になってしまうのです。

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

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


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

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

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


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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

同じタグがついた質問を見る

  • VBA

    1906questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。