|
こんにちは。かみちゃん です。
> Sheets("db")のRange("A1")には常に数字が入ってます。
> かみちゃんさんのいうとおり、A行でなくA列の間違いです。
> Sheets("db")のB列に記入するたびに、一つしたの行のA列に続き番号を入れたい
一つ下の行のA列に記入するのですね?
Sheets("db")のシートモジュールに以下のようなコードを記述してください。
若干無駄なコードも書いていますか、参考にしていただけるよう残しています。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Intersect(Target, Columns("B")) Is Nothing Then Exit Sub
' If Intersect(Target, Range("B2", Cells(Rows.Count, 2))) Is Nothing Then Exit Sub
End With
' With Sheets("db").Range("A65536").End(xlUp)
' .Offset(1).Value = .Value + 1
' End With
With Target
.Offset(1, -1).Value = .Offset(, -1).Value + 1
'行番号をA1セルの値に加算する
'.Offset(1, -1).Value = Range("A1").Value + .Row
End With
End Sub
|
|