Worksheet_BeforeRighr\tClickの作成

質問

現在勤務表を作成しています。
上記予定表と下記実績表を照らし合わせ、同じ場合は、上記のとおりに入力したいと思います。
A B C D E
1　あい　えお
2
3　a 　 c d e
4
上記の表を作成しました。
ROW番号（A2,A4,A6）のROWを順次に右クリックした場合に、上の値を入力したいと思います。
private sub Worksheet_BeforeRightClick(ByVal Target As RAnge, Cancel AsBoolean)
if target.row=2 then
Worksheets("A").activate
Activecell=ActiveCell.Offset(-1,0).Value
Cancel=true
End if
End Sub
で作成しました。
A2セルは記入できますが、続いてA4,A6,A8と入力していきたいと思います。
セルは空欄もあります。
また、右クリックした場合、通常の右クリックで表示される、リストダウンも切り替えたいと思います。
回答、よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

偶数行のセルでやりたいということですか？

private sub Worksheet_BeforeRightClick(ByVal Target As RAnge, Cancel AsBoolean)
　　'if target.row=2 then
　　if target.row mod 2 = 0 then
　　　　Worksheets("A").activate
　　　　Activecell=ActiveCell.Offset(-1,0).Value
　　　　Cancel=true
　　End if
End Sub
とすれば 偶数行にて実行されると思いますよ

補足

redfox63様
早速の回答ありがとうございます。
偶数行は作成出来ました。
modを使用すれば出来るのですね。

row32,row33,row35など未確定のrowを複数指定することは可能でしょうか。よろしくお願いします。