最初のセルと数字

質問

エクセル２００３です。
セルＤ３～Ｄ１７で数字が一番最初に入るセルが決まっていません。
一番最初に入ったセルの数字をセルＣ１８に表示するにはどうすればいいですか。
よろしくお願いします。

回答No.1

zap35 · ベストアンサー

C18が空白で、C3:C17のセルが変更されたときにC18にその値を書き込むマクロです。

シート名を右クリックして「コードの表示」を選択したときに表示される画面にペーストして下さい

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err0
　If Not Intersect(Target, Range("D3:D17")) Is Nothing Then
　　If Range("D18").Value = "" Then
　　　Application.EnableEvents = False
　　　Range("D18") = Target.Value
　　End If
　End If
err0:
　Application.EnableEvents = True
End Sub

お礼

回答ありがとうがざいました。
たいへんやくにたちました。
また、よろしくお願い致します。