CSVファイル加工時のキー記録のマクロ

こんばんは。(#^.^#)

会計ソフト用のCSVファイルは、DLされましたでしょうか？

私は、今日１つのカードだけDLしたのですが、毎月、同じ操作の繰り返しになるので、面倒かと思いまして、VBAが分からなくてもできる簡単なキー記録のマクロをやってみました。

以下、手順を書かせていただきますので、よろしかったら、お試しください。

今日、１つのカードをやったのですが、別のカードでやってみますね。

以下、前回同様にVISAカードの例です。

1. カード会社のサイトにログインします。（例：三井住友カード）
2. 複数カード利用の場合は、目的のカードを選択します。（例：Amazonカード）
3. 初月のみ「ご利用明細」をタップします。
4. 「お支払い月」を選択します。（例：2月）→１月は昨年分のみなので不要
   ※横着に１年分を一気にインポートしようと考えています。(;^_^A
   ※ちなみに、家人の不動産所得も、年が変わってから1年分を1日で済ませています。
5. 「照会」をクリックします。
6. 「CSV形式で保存する」をクリックします。
   ※「CSV形式で保存する」が表示されない月は、利用がない月ですね。
7. ダウンロードしたファイルを開きます。

ここまでは、以前、画像入りで書かせていただいた内容です。

画像入りの以前のブログをご参照ください。

Amazonカードの明細の場合、次の部分が不要です。（リンク先の画像の⑦の部分） 

• １行目：名前やカード名
• ４列目以降：支払区分の「1」、支払回数の「1」、「支払金額」

リンク先の⑦では、合計行も削除していますが、F列を削除すれば、同時に削除できてしまいますので、合計行削除の手順は不要ですね。(;^_^A

あの時、まだ、修正する可能性があるからPDFではなく、画像でのご提供にさせていただきますと書いていましたが、正解でした。（笑） 

要は、

• カードなら「日付」「摘要」「金額」の列のみ残します。
• 預金明細なら「日付」「摘要」「入金」「出金」の列のみ残します。

【参考次項】

後の作業のため、預金関係は「入金」と「出金」の列を入れ替えたほうが良いです。

金融機関は銀行簿記、一般の事業者は商業簿記を用いますが、預金の概念が異なります。

銀行側から見れば、預金をしてもらうと、取り敢えず預かっているだけで、いつかは払い戻しされるかも知れませんので「負債」が増えることになります。

事業者側から見れば、ご存じのように、預金をすれば「資産」が増えることになります。

そのため、貸借（「借方」と「貸方」→詳細は後日記載します）が逆になります。

2月は、通常どおり、上に記載した不要な行と列を削除してください。

次に、上の手順1～7で３月分を開きます。

では、ここから、キー記録を行っていきます。 

この記録開始ボタンを押して、停止のボタンを押すまで、裏でマクロを記録してくれます。

1. 画面左下の「カメラ」のようなアイコンをクリックします。
2. 「マクロの記録」ダイアログが開いたら、任意のマクロ名を入力します。
   （例：不要行列の削除）
3. ショートカットキーの欄に移動して、
   日本語入力オフの状態で、例として、［Shift］を押しながら［D］キーを推します。
   ※削除なので［Delete］の「D」にしました。
   ※単なる「D」だけだと組み込まれているものとダブるので［Shift］を使います。
   ※余談ですが、［Ctrl］＋［D］は上のセルのコピーになります。
4. ［ＯＫ］をクリックします。
5. １行目を削除します。
6. Ｄ列からＦ列を削除します。
7. データがある任意のセルをクリックしてから、
   ［Ctrl］を押しながら［Ａ］か［*］を押します。（好きな方でＯＫ）
   ※２月のシートにコピーして、貼り付けるために、全選択の命令を出しています。
   ※［Ａ］は「ALL」の略です。
8. そのまま、［Ctrl］を押しながら［Ｃ］を押します。
   ※コピー命令を出しています。
   ※［C］は「COPY」の略です。
9. ここまでの作業が終了したら、画面左下の記録終了（□）をクリックします。
   ※これで、マクロが記録されました。
10. ２月のシートに切り替え、最終行の次の行に貼り付けます。（［Ctrl］＋［V」）
11. ３月のシートは不要なので閉じます。
12. 保存確認が表示されたら、不要なので「保存しない」を選択します。
13. クリップボードの確認画面が表示されたら、不要なので「いいえ」を選択します。

４月以降は、４月のファイルを開いたら［Ctrl］と［Shift］を押しながら［D］を押します。

これにより、不要な行と不要な列が削除されて、残った範囲を選択し、コピーするまでの一連の作業をしてくれます。

後は、２月のシートに戻って、［Ctrl］＋［V］で貼り付けます。

これで、12ヶ月分（まだ、11ヶ月分）のデータが1つにまとまりました。

毎月データ量が多い場合は、貼り付ける前に、最終行に移動するために［Ctrl］＋［End］を使われると便利です。

任意の名前を付けてファイルを保存します。（例：Amazonカード）

取り敢えず、本日は、お持ちのカード分だけこの作業をお願いします。

私も減らしたつもりでも5枚あるので、今からここまでの作業を終わらせます。