お助けください

エクセルの、WorksheetChangeで、下記のコードを、使ってコマンドボタンの制御を、する場合に、関数で求められた結果値によって同じように、制御することは、できないでしょうか

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" And Target.Value = "あああ" Then

CommandButton1.Enabled = True

ElseIf Target.Address = "$A$1" And Target.Value = "いいい" Then

CommandButton1.Enabled = False

End If

End Sub

質問者からの補足コメント

• 気に留めていただき感謝します。関数といっても、if関数で.合計が0なら0.それ以外なら、1としていて、1の場合にコマンドボタンを、有効化したいです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2025/03/12 22:21

• 実数ならば、コマンドのオンオフが、可能なのですが、セルの値が関数から求められる数値の場合には、残念ながら反応しません。

    補足日時：2025/03/13 21:05

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/03/13 23:11

>実数ならば、コマンドのオンオフが、可能なのですが、セルの値が関数から求められる数値の場合には、残念ながら反応しません。

関数で合計を求めている場合、合計値が変更になってもchangeイベントは発生しません。

合計値を設定しているのは具体的にどのセルでしょうか。
合計の対象になるセル範囲は具体的にどのようになっていますか。
合計の対象になるセル範囲に手で値が入力される前提です。
changeイベントは、合計の対象になるセル範囲に発生しますので、
そのイベントを取得します。

この回答へのお礼

お礼日時：2025/03/15 16:16

No.2 回答者： tatsumaru77 回答日時： 2025/03/12 22:51

>if関数で.合計が0なら0.それ以外なら、1としていて、1の場合にコマンドボタンを、有効化したいです。

合計のセルを仮にB1とすると、以下のようになります。
Range("B1")をあなたのほうで、適切なセルに変えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Range("B1").Value <> 0 Then

CommandButton1.Enabled = True

ElseIf Target.Address = "$A$1" And Range("B1").Value = 0 Then

CommandButton1.Enabled = False

End If
End Sub

No.1 回答者： tatsumaru77 回答日時： 2025/03/12 22:01

＞関数で求められた結果値によって同じように、制御することは、できないでしょうか

どのような関数をどのセルに適用しているのかがわからないと具体的な回答ができません。

どのような関数をどのセルに適用して、どのような戻り値に対して、
CommandButton1.EnabledをTrueもしくはFalseにしたいのかを提示すると良い回答が得られやすくなります。