• 締切済み

エクセルVBAに関して

VBAの知識があまりないので教えて頂きたいのですが、セルの内容が変更されたら　マクロが実行される　Private Sub Worksheet_Change(ByVal Target As Range)　というのがあるかと思います。 セルに書かれた関数によって、セルの内容が変化したときにマクロが実行されるVBA関数はあるのでしょうか？

みんなの回答

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

こんにちは。 セルの内容は、「何によって］変化するかということで、数式かどうかは、あまり関係ないように思います。おそらく、Worksheet_Changeイベントに間違いありません。 例えば、こんな数式が、C5 にあるとします。 =IF(OR(A1>1,B1>1),"○","") この数式が変化した場合のイベントでしたら、A1 か、B1に対してイベントが発生させ、その後、数式の値を取ればよいわけです。 Calculateイベントには、Target などありませんし、すべてのシートにイベントが走ります。 例えば、こんな風でいかがでしょうか？ C5 に数式があって、A1か、B1に入力があったときに、イベントが発生します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("C5").DirectPrecedents, Target) Is Nothing Then Exit Sub Application.EnableEvents = False 　If Range("C5").Value = "○" Then 　　Range("D5").Value = 1 　Else 　　Range("D5").Value = "" 　End If Application.EnableEvents = True End Sub

noname#187541
noname#187541
回答No.1

こんにちは。 Private Sub Worksheet_Calculate()　を使うといいでしょう。

behappy07
質問者

お礼

返事ありがとうございます。 所で一点教えて頂きたいのですが、関数で変更されたセルがＣ列の場合、その変更されたセルの内容が○ななら右隣のセルに１を入力しなさいとしたいのですが、下記の記述では上手くいきません何がいけないのでしょうか？ Private Sub Worksheet_Calculate()　 If Target.Column = 3 Then If Target.Cells.Value = "○" Then Target.Cells.Offset(, 1) = "1" End If End If End Sub

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセルマクロ(VBA)で指定したセルが変化したときに実行するには？

    VBAでsheetの中のworksheet_changeなどでマクロを書くと、そのシー トの中のどのセルを変化させてもマクロが実行されるのですが、これ を、A1とc1とc2が変化したときだけ処理を実行させたいのです。 以下のマクロのどこかを編集すると、そのようなことが出来るのでし ょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) ----実行する内容---- End Sub Private Sub Worksheet_Change(ByVal Target As Range) ----実行する内容---- End Sub

  • ”戻り値”が変化したときに、マクロを実行したい

    超初心者です。 セルの値が変化したときにマクロが実行されるようなものを作りたいです。 セルに入力されているのは、”関数”です。 なので、関数の”戻り値”が変化したときにマクロを実行したいのです。 今は、戻り値が変化しても式自体が変わっていないため マクロが実行されません。 （セルの式を切り取ってもう一度貼りなおせば、マクロは実行される） ちなみに今は Private Sub Worksheet_Change(ByVal Target As Range) で書いています。 まずVBAの勉強をしろと言われてしまいそうですが＞＜； 何卒アドバイスのほどよろしくお願いいたします！

  • Excel VBA　イベントプロシージャを２つ記述する（基本です）

    基本的な事なのですが、Excelのイベントプロシージャで２つプログラムを作るにはどうやって記述すればよいのでしょうか？ 具体的には、worksheetのchangeイベントで、セルC5の値を変えた時と、セルG7の値を変えた時の２通りのマクロを作成したいのです。 Private Sub Worksheet_Change(ByVal Target As Range) C5を変えた時の処理 End Sub Private Sub Worksheet_Change(ByVal Target As Range) G7を変えた時の処理 End Sub このように書けばよいのでしょうか？そうするとTargetがかぶっておかしくなる気がします。。 お願いします。

  • エクセルVBAでセル変化したら別のセルへコピーする

    おはようございます。ＶＢＡをはじめて浅い初心者です。 あるセルに数字および文字列が入力されたら違うセルへコピーしたいのですがどのようにすればできますか。 Private Sub Worksheet_Change(ByVal Target As Range)とか 使用してつくればいいのですか？教えてください。

  • エクセル　デバッグできるのとできないのがある

    シートイベントについて教えてください。 シートモジュールに --------------------------------------------------------- Option Explicit Private Sub Worksheet_Activate() MsgBox "" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "" End Sub --------------------------------------------------------- と記載した時に、 Ｆ８で動かせるのは、Worksheet_Activateだけなのですがなぜでしょうか？ ほかのイベントは、F8で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。 ご回答よろしくお願いします。

  • ＶＢＡ　マクロを動かさない

    (1)ある行のセルを変更したら動くマクロがあります。 　Private Sub Worksheet_Change(ByVal Target As Range) (2)ある行のセルに数値を入れるマクロがあります。 　Private Sub CommandButton_Click() (2)のマクロが動くと(1)がその後に発動して上書きをしてしまうようです。 これを発動させないようにスキップするにはどうしたらいいのでしょうか？

  • エクセルVBAについて

    エクセルVBAについて range("B5") = 1行の、選択したセルの値 というようなマクロを作成したいと思っています。 というのも、B5セルの値が、1行で選択したセルの値に変化できればと思っています。 ちなみに下のようなコードを書いてみたのですが、うまくいきません orz Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("B5") = Rows(1).ActiveCell.Value End Sub 初心者で申し訳ありませんが、よい方法がありましたら、 よろしくお願いいたします。

  • エクセル９５のマクロ

    エクセル９５で Private Sub Worksheet_Change(ByVal Target As Range) 　というのは使えるんでしょうか？ リターン押したときに移るセルを操作したいので 代わりになるものでもあれば教えて頂きたいです。 よろしくお願いします。

  • エクセルのマクロ

    セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。 どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub

  • エクセルＶＢＡで Cancel=Trueの使い方

    Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_Deactivate() Cancel = True MsgBox "キャンセルしました" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cancel = True MsgBox "キャンセルしました" End Sub 以上のように使ってみましたが、どれも「キャンセルしました」とメッセージは出るものの、直前の操作（入力、シート切替、セル移動）はキャンセルされませんでした。 どこが間違っているのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する