折角、最終行に移動するマクロと日付順に並べ替えるマクロを作ったので、
マクロの登録をしましょう。

1行目を広げて、額縁を二つ用意してマクロを登録します。

しかしこのままだと行数が増えていった場合、マクロのボタンが隠れてしまいます。

そうならないようにウインドウ枠を固定します。

続きを読む →

最初に、一番下の行数を求める必要があります。
求め方は
Dim a As Integer
a = 3
Do Until Cells(a, 1).Value = “”
a = a + 1
Loop
a = a – 1
です。これはもう何度も出てきましたが、大変よく使うコードです。
最後のa=a-1は、aのままでは、一番最後の行が空白になってしまうので、
その一つ前に戻します。
続きを読む →

前回日付順に並べ替えるマクロを記録しました。

私は普段VBAばかり使っていますが、たまにマクロを使います。
マクロで記録したことは、実はVBAでコードとして記録されています。

続きを読む →

日付の並べ替えをマクロに記録します。

開発タブのマクロの記録をクリックします。

マクロの名前はそのままで、OK
続きを読む →

前回一番下のセルまで移動させるマクロを作りましたが、次は
日付が前後した場合、ワンクリックで日付順に並べ替えるマクロを紹介します。

今までセルの指定の仕方は、Cells(1,5)といった指定の仕方でした。
この指定の仕方だと、一つのセルしか指定できません。

ある範囲のセルを指定したい場合、次のように記述します。

続きを読む →

行数が100、200となると次入力するところまで行を移動させる
必要が出ていきます。

かといって、シートを変えるのは後で会計ソフトにインポートさせる
ことを考えるとあまりお勧めできません。

今回は、ワンクリックで入力行まで移動するマクロを紹介します。

続きを読む →

日付の空欄に数字を入れたので、あとは月と日をくっつける作業です。

前回説明した内容でもいいのですが、どうせならVBAでまとめて済ませたい
ところです。

続きを読む →

日付の欄に空白がある場合の処理の追加の解説です。

B列の動きについて解説をします。
コードです。

If Cells(a, 2).Value = “” Then
　※Cells(a, 2).Value = Cells(a – 1, 2).Value
End If

これもaに数字を当てはめていけば難しくはありません。

続きを読む →