入力されている行を判別する方法

質問

こんにちは。
私の質問に関心を持って下さりありがとうございます。
教えて頂いてばかりで恐縮ですが、エクセルVBAに詳しくて親切な方がいらっしゃいましたら教えていただけないでしょうか。

例えば、Sheet1のセルA1をダブルクリックして、Sheet2のセルC10にSheet1のセルA1の値を入力する場合、以下のコードで処理できます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range("A1") Then
Cancel = True
Worksheets("Sheet2").Range("C10") = Worksheets("Sheet1").Range("A1")
End If
End SUB

でも、このコードだと、Sheet1のセルA1を何度ダブルクリックしてもSheet2のセルC10にしか入力されません。

Sheet2のセルC10に入力されている場合、それを判別して、C10の下のセルC11に入力され、更にC11に入力されている場合にはC12に入力されるようにしたいのですが、よく分かりません。

ご存知の方がいらっしゃいましたら、どうかご教授いただけないでしょうか。
宜しくお願い致します。

回答No.2

hallo-2007 · ベストアンサー

VBA　最後の行　などで検索するといくつも回答があります。
私たちが最もよく使う方法が、
シートの最終行から上へ移動して空白でない行のひとつ下　といった感じで使いますが
MSGBOX=Worksheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row+1
とか
Msgbox=Worksheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row+1
で最後の行番号が得られます。

Worksheets("Sheet2").Range("C" & Rows.Count).End(xlUp).).Offset(1).Value
= Target.Value

http://www.niji.or.jp/home/toru/notes/8.html
などを参考にしてください。

それと　Range("A1") などとセルを指定した後には、必ず　Value　などプロパティを指定してください。
エクセルの場合、省略すると自動で　Valueになりますが
If Target = Range("A1") Then
は
If Target.Addrrss = Range("A1").Address Then
としなければ、おかしいことに気が付くと思います。
Ｎｏ１の方がおっしゃるように
If Target.Addrrss =　"$A$1" Then
でも同じ結果です。
一度、どこかに　Msgbox Target.Address
と入れてみて表示される内容を確認してみてください。

お礼

行番号についてのご教授ありがとうございました。
とても参考になりました。なんとか出来そうです。
エクセル初心者なので毎日四苦八苦しています。
皆様のご親切に心から感謝致します。
お一人の方だけをベストアンサーに選ぶのは心苦しいのですが、バージョン違いでも使えるコードをご教授くださったNo.2の方をベストアンサーにさせて頂きます。
皆様、本当にありがとうございました。

回答No.1

keithin

今のマクロを削除して，次のマクロに差し替えます。

private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, cancel as boolean)
if target.address <> "$A$1" then exit sub
worksheets("Sheet2").range("C65536").end(xlup).offset(1).value = target.value
cancel = true
end sub

シート２の「Ｃ９セル」に（ストッパーとして）何か「タイトル」を記入しておいてから，シート１のＡ１をＷクリックする。

＃補足
アナタの今のマクロでやっている
If Target = Range("A1") Then
という検査方法は適当ではない（実際には結果オーライになりますが）ので，上述ではそこも参考にしてください。

お礼

具体的なコードを教えてくださりありがとうございました。
ご指摘も感謝致します。嬉しいです。