ワークブックを開いたときに数値を自動的に増加させるにはどうすればよいですか？

ワークブックを開くたびに数値セルを1ずつ自動的に増やしたい場合、もちろん手動で1を追加することもできます。しかし、Excelドキュメントを開いたときに数値を自動的に増やすためのより良い方法はありますか？

VBAコードを使用してワークブックを開いたときに数値を自動的に増加させる

VBAコードを使用してワークブックを開いたときに数値を自動的に増加させる

以下の簡単なVBAコードを使用すると、ワークブックが開かれるたびに数値セルに1を自動的に追加するのに役立ちます。次の手順を行ってください：

1. ALT + F11キーを押したままにすると、 Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. [プロジェクト-VBAProject]ペインで、[ThisWorkbook]をダブルクリックして モジュールを開き、以下のコードをコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード：ワークブックを開いたときに数値を自動的に増加させる：

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

注: 上記のコードでは、Sheet1 と A2は、自動的に増加させたい数値が含まれているシートとセルです。必要に応じて変更してください。

3. その後、Excelファイルを「Excelマクロ有効ブック」形式で保存する必要があります。スクリーンショットをご覧ください：

今後、この特定のワークブックを開くと、Sheet1のセルA2の数値が自動的に1ずつ増加します。

注: このコードは数値セルにのみ適用されます。