|
こんにちは。かみちゃん です。
> シート上の任意のセルを右クリックをした時にa1にそのセル番地が表示され、
> 二度目にまた任意のセル番地をクリックするとb1にそのセル番地が表示される
> ようにするにはどうしたらいいのでしょうか?
> 一度目と二度目のクリックでは取得されたセル番地の表示を違うセルに表示
> させたいのです。
> 奇数回目のクリックはa1、偶数回目はb1に表示させるという考え方でも可です。
シートモジュールに以下のようなコードを記述するとできると思います。
Dim lngCount As Long
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
lngCount = lngCount + 1
Select Case lngCount Mod 2
Case 1 '奇数
Range("A1").Value = Target.Address
Case 0 '偶数
Range("B1").Value = Target.Address
End Select
End Sub
|
|