【VBA】 JANコードが化ける（指数表記）－備忘録－

我流のマクロ使い？、、、の自分。

マクロで画像をダウンロードしたり、画像をテキストと組み合わせたり、ありとあらゆる業務をマクロ化してます。

今回、仕事でJANコードを扱うことが多く、EXCELの特性で12桁以上は指数表記に変換されることがよくある。

CSVとして取り込む場合は問題ないのだが、文章が入ったCSVはEXCELとして取り込まなくてはならず、どうしても指数表記になってしまう。

通常VBAだと

こんなイメージで「NumberFormatLocal」や「Selection.NumberFormat」を文字列にして編集すればいけるのだが、なぜか変わらない。
ググってもこのやり方しか出てこない。仕方が無いので「Format」で無理矢理13桁表記に。
どなたか良い方法合ったら教えてください。

    Range("A:A,C:C").Select
    Selection.NumberFormatLocal = "@"

    Range("A:A,D:D").Select
    Selection.NumberFormat = "@"

    set_data03.Offset(0, 3).NumberFormatLocal = "@"

    Format(set_data01.Offset(0, 8), "0000000000000")

VBA（マクロ）

Posted by master