Excel マクロ 入力があったらボタンを出したい

質問

C3に入力があった場合、隣にボタンを表示させたいと考えています。

http://www.cocoaliz.com/excelVBA/index/17/
のようなサイトを参考に、以下のコードを書いてみました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$C$3" Then
If Not Range("C3") = "" Then
With ActiveSheet.Buttons.Add(Range("D2").Left + 1, Range("D2").Top + 1, _
Range("D2:D3").Width - 1, Range("D2:D3").Height - 1)
.OnAction = "あいうえお"
.Characters.Text = "あいうえお"
.Font.Size = 10
End With
End If
End If

こうした場合、元々C3に何か入力されていると、
C3をSelectする度にボタンが作られてしまいます。

又、C3の内容を変更してEnterを押したり、他のセルをセレクトしても何も起きません。

C3に何か入力してEnter、又は他のセルをSelectした時のみボタンを表示させたいのですが、
何かいい方法ありますでしょうか？

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

＞C3に入力があった場合

そういうときはSelectionChangeイベントではなく，changeイベントを使います。

＞C3に何か入力してEnter、又は他のセルをSelectした時のみボタンを表示させたい

裏を返せば，既にボタンがあるならば，何もしないでマクロを終了させてみます。
また今のご質問内容ではそこまで辿り着いていませんが，ボタンを消去する手順についても検討があってよいかもしれません。

手順：
（簡易な例：シート上には今作ろうとしているボタンが１個あるか，または１個も無い）
シート名タブを右クリックしてコードの表示を選ぶ
とりあえずSelectionChangeイベントのコードは全部消す
代わりに次のように作成してみる

Private Sub Worksheet_Change(ByVal Target As Range)
　if activesheet.buttons.count = 0 then
　　If Target.Address = "$C$3" Then
　　　If Not Range("C3") = "" Then
　　　With ActiveSheet.Buttons.Add(Range("D2").Left + 1, Range("D2").Top + 1, _
　　　　　Range("D2:D3").Width - 1, Range("D2:D3").Height - 1)
　　　　.name = "myButton1"
　　　　.OnAction = "あいうえお"
　　　　.Characters.Text = "あいうえお"
　　　　.Font.Size = 10
　　　End With
　　　End If
　　End If
　end if
end sub

お礼

回答ありがとうございます！

ボタンを消すのは他の場所で検討予定ですが、
まだそこまで作りこめていません。

しかし、説明不足だったにもかかわらず、
私の望みを汲み取ってくれてより良い物が出来ました！
ありがとうございました！

回答No.2

merlionXX

イベントを間違えています。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
では、SelectionChangeイベントですから、C3をSelectする度に作動してしまいます。

Private Sub Worksheet_Change(ByVal Target As Range)
と、Changeイベントにしましょう。

でも、こうしても、C3への入力の都度、ボタンができてしまいますよ。

お礼

回答ありがとうございます！

SelectionChangeが原因だったんですね。
盲点でした。

お蔭様で解決いたしました！
ありがとうございました！