excelでセルクリックした時、マクロ起動

質問

office2003です。

sheet1のC3,C4,C5セルに、ある文字列をコピーペーストするマクロがあります。…(1)
マクロ文は省略

下記は、それぞれC3,C4,C5セルが選択（クリック）された時、実行するマクロ…(2)です。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 3 And Target.Row = 3 Then personC3

If Target.Column = 3 And Target.Row = 4 Then personC4

If Target.Column = 3 And Target.Row = 5 Then personC5

end sub

やりたい内容は、C3,C4,C5に文字列を表示させ、その文字列がクリックされたら、
別のマクロを起動(例.C3クリックされたら、personC3マクロ起動)させたいのです。
しかし(1)(2)の順に実行すると、C3,C4,C5セルには文字列のコピーペーストが出来ません。
(2)のマクロは、セルが変化したら実行ですから当然なのは分かっているのですが、
ここが困っている所です。

もともとC3,C4,C5に文字列が入っている場合は、(2)のマクロだけでよいのですが、
(1)を実行した後に(2)のマクロが有効とするには、どの様にしたらよいのでしょうか？
尚、やりたい内容が実現できれば、他のやり方でも可です。

条件：
C3～C5までのどれかをクリックする動作は必須です。
C3からC5までに設定される文字は、固定（同一）ではありません。

回答No.1

keithin · ベストアンサー

selectionchangeイベントは「セルをクリックしたイベント」では無いので，どうやっても無理があるのは承知ですね。
シングルクリックではなくＷクリックイベントを利用する方向に，設計変更することを推奨します。

で。今の限界の中でそれでもどーにかしてみるなら。

作成例：
「コピーペースト」の具体的な内容が不明のため，たとえばＡ１：Ａ３の値をＣ３，４，５に転記する

sub macro1()
　range("C3:C5").value = range("A1:A3").value
　range("A1").select
end sub

そのマクロによって「Ｃ３，４，５以外のセル」を選択しておいてから，Ｃ３，Ｃ４，Ｃ５の選択動作に移行する

private sub worksheet_selectionchange(byval Target as excel.range)
　if application.intersect(activecell, range("C3:C5")) is nothing then exit sub

　if activecell.row = 3 then personC3
　if activecell.row = 4 then personC4
　if activecell.row = 5 then personC5
end sub

さらにPersonC3,4,5実行後はまたＡ１セルに積極的に待避し，次の選択動作に備える

sub personC3()
’do your work
range("A1").select
end sub

sub personC4()
’do your work
range("A1").select
end sub

sub personC5()
’do your work
range("A1").select
end sub

お礼

回答ありがとうございます。おもった通りの動作が実現できました(^^)/~~~

回答No.2

DOUGLAS_

１）「(1)を実行した後に」どこかのセルにでもフラグを立てておきます。
２）「その文字列がクリックされたら」そのフラグを参照して、「(2)のマクロが有効」になります。
３）「(2)のマクロが有効」になった後には、「どこかのセル」に立てたフラグは無効にしておきます。

　要するに、
・「sheet1のC3,C4,C5セルに、ある文字列をコピーペーストするマクロ」で、「どこかのセル」に立てたフラグを参照する
・「(2)のマクロが有効」になった後には、「どこかのセル」に立てたフラグは無効にする
という条件を付けておくということです。

お礼

回答ありがとうございます。大変参考になりました。