EXCEL:セル判定してマクロ操作したい

質問

こんばんは。
あるセルに判定式を入力し、下記の操作をしたいと考えています。
例）A1セルの入力値が１０以下の場合ボタン１、それ以外はボタン２を押す。
<<式>>　=IF(A1<=10,"ボタン１を押す","ボタン２を押す")
◇セルから”ボタン操作”する記述方法はあるでしょうか？
◇不可能であれば定期的にセルを監視しＶＢＡ側で判断するしか無いですね。
ただ上記の例ではセルが１つですが、実際に判定したいセルは数百あります。
複数のセルを記述するだけでプログラムのボリュームがあり大変です。
そこで可能であれば関数感覚で記述したいなと思いました。可能でしたら記述方法を教えてください。

回答No.2

chibita_papa · ベストアンサー

>Case "$A$1"の下段にCase "$A$2"と記入するとA2セルのみマクロ起動対象となる様です。
>Case "$A$1:$A$5"と選択してもマクロが起動しません。

私は、てっきり
>>実際に判定したいセルは数百あります
とあったので
A1に書き込まれた時とA2に書き込まれた時は、
違うマクロが動くのかと思っていました。

では、
Select Case Target.Address　から　End Select
までをすべて消して、
If (Target.Column >= 1 And Target.Column <= 2) And _
(Target.Row >= 1 And Target.Row <= 5) Then
'$A$1:$B$5の時
If Target.Value <= 10 Then
CommandButton1_Click
Else
CommandButton2_Click
End If
ElseIf (Target.Column >= 3 And Target.Column <= 4) And _
(Target.Row >= 11 And Target.Row <= 15) Then
'$C$11:$D$15の時

'ここにその時のコードを書く

end if
End If
に変えて下さい

(Target.Column >= 1 And Target.Column <= 2)
の意味は、１列目(A列)以上、2列目(B列)列以下
(Target.Row >= 1 And Target.Row <= 5)
の意味は１行目以上、５行目以下
です。
即ち、$A$1:$B$5を意味します。
$A$1:$A$5の時は、
(Target.Column >= 1 And Target.Column <= 1)
若しくは、
(Target.Column = 1)
に変えればＯＫです。

お礼

ご回答ありがとうございます。説明が悪くてごめんなさい。
理想の動作をすることができました。
ありがとうございました。

回答No.1

chibita_papa

参考にして下さい。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If IsNumeric(Target.Value) = True Then

Select Case Target.Address

Case "$A$1"

If Target.Value <= 10 Then
CommandButton1_Click
Else
CommandButton2_Click
End If

Case "$A$2"

Case "$A$3"

Case "$A$4"

Case "$A$5"

End Select

End If

End Sub

Private Sub CommandButton1_Click()
Debug.Print "CommandButton1"
End Sub

Private Sub CommandButton2_Click()
Debug.Print "CommandButton2"
End Sub
ボタン1、ボタン2を押した時どの様なプログラムが動くか分かりませんが、
場合によっては、
開始時に Application.EnableEvents = False
終了時に Application.EnableEvents = True
を追加してください。

お礼

ご回答ありがとうございます。
セル１に数値を入力するとマクロが起動できる様になりました。
ところで複数のセル対象とする場合には、
Case "$A$1"の下段にCase "$A$2"と記入するとA2セルのみマクロ起動対象となる様です。
Case "$A$1:$A$5"と選択してもマクロが起動しません。
下段にあるCase "$A$2"～Case "$A$5"はどういう意味を持つのでしょうか？
記入する位置にも何か注意が必要でしたら教えてください。