|
▼Koji さん:
こんにちは。
改行のない文章はちょっと読みにくいです。
>シート上の任意のセルを右クリックをした時に
> 取得されたセル番地の表示を違うセルに表示させたいのです。
>奇数回目のクリックはa1、偶数回目はb1に表示させるという考え方でも可です。
右クリックされたときには Worksheet_BeforeRightClick()
というイベントが発生します。
それを使えばいいと思いますけど?
↓対象シートのモジュールに書いてください。
' ------------------------------
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Cancel = True
If Val([A1].ID) > Val([B1].ID) Then
Set c = [B1]
Else
Set c = [A1]
End If
c.Value = Target.Address(0, 0)
c.ID = Val(c.ID) + 1
End Sub
|
|