EXCEL VBA シート内の特定のセルに値が入…

質問

EXCEL VBA シート内の特定のセルに値が入力された際に処理を実行するプログラム

EXCELシート内の特定のセルに値が入力された際に処理を実行するプログラムをEXCEL　VBAで作成したいと考えています。
EXCELに計測データを取込み、このデータが設定値以外の場合のみ、トリガーを出す様なイメージで使いたいと思います。

どの様に考えれば良いでしょうか？サンプル等ありましたら紹介ください。

上記質問の”トリガー”について補足します。
あるセルに値が入力されたら、マクロを実行するという風にしたいという意味です。
単純にマクロ実行を手動で行うのでは無く、ある値が判定値以外の場合に他アプリケーションを操作したいという意味です。。

回答No.3

noname#230359 · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)

A = 0 '---変数Ａ初期化
If Target.Address = "$A$1" Then '---セルＡ１の値が変更されたら
A = Range("A1") '---変数ＡにセルＡ１の値を代入
If A < 10 Then '---変数Ａの値が１０より小さかったら
Range("B1") = A　'---セルＢ１に値を代入
Else 　'---それ以外は変数Ａに０を代入（初期化）
A = 0
End If
End If

If Target.Address = "$B$1" Then 　　'---セルＢ１の値が変更されたら
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", 3
'---プログラム（例はＩＥ）を起動（最大化表示モード）
End If

End Sub

少々回りくどいですが、こんな感じでできました。
注釈に書いてありますが、考え方は
?セルＡ１の変更を受けて変数ＡにセルＡ１の値を代入
?変数Ａの値を条件分岐で条件が適った場合セルＢ１にＡの値を代入
?セルＢ１の変更を受けてプログラムを立ち上げる
です。

お礼

ありがとうございました。
説明もわかりやすく、参考になりました。

回答No.2

noname#230359

トリガーってのがよくわからないのですが、
設定値以外の場合にのみその行を強調する手段なら
ＶＢＡを使わなくとも関数と条件付き書式でできますが・・・。

補足

”トリガー”について補足します。
あるセルに値が入力されたら、マクロを実行するという風にしたいという意味です。
単純にマクロ実行を手動で行うのでは無く、ある値が判定値以外の場合に他アプリケーションを操作することをしたいと考えています。

回答No.1

noname#230359

sheet1にあるイベント

Private Sub Worksheet_Change(ByVal Target As Range)
'
'
'
'Target.Column　横
'Target.Row 　　縦

End Sub

レベルが低そうなのでスルーされてしまうとわ思っていた...orz

回答３のように
保存するなら　public　で　内部変数にした方がいいよ

ただ初期化を
ワークブックに開いた時などにしておかないといけないが
Private Sub Workbook_Open()

End Sub

参考
Private Sub Worksheet_Change(ByVal Target As Range)
'A1以外のところが変更されたら　抜ける
If Target.Address <> "$A$1" Then Exit Sub

'A1 の　値が　100以上なら　IEを起動
If Range("A1") > 100 Then
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", 3
End If

End Sub

A1の値を100以上にするとIEが起動するプログラム
ただし、文字列のエラー処理を入れてないので
間違った値（全角文字）を入れても　IEが立ち上がる
↑
コーディングが大変なので組んでないが

まあ、ちゃんとVBを理解してれば
このような質問の仕方にはならないけどね
基本から精進してください

お礼

アドバイスありがとうございます。

質問の説明不足もありもうしわけありません。