エクセル2013 マクロの最大値

質問

エクセル初心者です。セルをダブルクリックしたときに、最大値に＋1の値をセルに自動入力したいのですが・・・。まず、シート1のC列とシート2のC列から最大値を探し、その値+1の数字を入力したいです。現在の時点で3、4、5の列にデータが入力されているのでC6をダブルクリックしたときに、マクロ実行されるようにしたいです。データは、増えていくのでC6は固定ではありません。C列の未入力のセルをダブルクリックしたときに、自動入力されるということです。
おわかりの方がいらしたら、ご教示お願いいたします。

回答No.1

nishi6 · ベストアンサー

C列の未入力セルならばどこでも最大値+1を書き込みます（単一セル）。当方、Excel2010です。

Sheet1のコードウィンドウに貼り付けます。

Sheet2で同じ機能を使う場合は、同じくSheet2のコードウィンドウに貼り付け、「Sheet1」と「Sheet2」を交換してください。

Private Sub Worksheet_BeforeDoubleClick( _
　　　　　　　　　　　ByVal Target As Range, Cancel As Boolean)
　　If ActiveSheet.Name = "Sheet1" Then
　　　　If Target.Count = 1 Then
　　　　　　If Target.Value = "" Then
　　　　　　　　Target.Value = Application.Max( _
　　　　　　　　　　　　　　　　　Range("C:C"), _
　　　　　　　　　　　　　　　　　Worksheets("Sheet2").Range("C:C")) + 1
　　　　　　　　Cancel = True
　　　　　　End If
　　　　End If
　　End If
End Sub