ネットバンキングのデータを仕訳に変換する方法⑤~日付の変更まとめ

Pocket

今まで一つずつ抜き出して、セルに値を入れてきましたが、これをVBAで一発で日付
に変換します。

Sub 日付変換()
Cells(1, 5).Value = Left(Cells(1, 1).Value, 4) & “/” & Mid(Cells(1, 1).Value, 6, 2) & “/” & Mid(Cells(1, 1).Value, 9, 2)
Cells(3, 5).Value = Mid(Cells(3, 1).Value, 2, 2) + 1988 & “/” & Mid(Cells(3, 1).Value, 5, 2) & “/” & Right(Cells(3, 1).Value, 2)
End Sub

ちなみに、
Cells(1,1)はA1
Cells(3,1)はC1です。

このコードを実行すると、一見日付形式に変更できなさそうなものでも、変換できます。

2507263

ネットバンキングのデータをまとめて変換するときは、現金出納帳のときと同様に変数を使って
全ての行を一気に直していきます。

日付の変更の仕方は、まず年・月・日にセルを分解して、
_&_”/”_&_ (_は半角スペース)で繋ぎ直すと覚えて下さい。