• ベストアンサー

EXCEL メッセージボックスの表示について

マクロを使ってA列に"1"というデータが入力されたら、 エンターキーを押した(入力確定した)時点でメッセージボックスが表示されるようにしたいのですが、 この表示のさせ方がわかりません。 これができると作業が大分楽になりますので、 わかる方いらっしゃいましたらよろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • ham_kamo
  • ベストアンサー率55% (659/1197)
回答No.1

A列に結果がセットされるシートに、シートに変化があったときのイベントWorksheet_Changeを作成してみればいかがでしょうか。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Value = "1" Then MsgBox ("メッセージ") End If End Sub

teliot
質問者

お礼

早々に回答いただきありがとうございました。 うまく動いてくれました。本当に助かりました!!

その他の回答 (1)

  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.2

単純に条件通りのマクロを作成すると以下のサンプルのようになりますが… Private Sub Worksheet_Change(ByVal Target As Range)  If Target.Column = 1 And Target.Value = 1 Then   MsgBox ("ここにメッセージを入れる")  End If End Sub このマクロは「シート名を右クリック」→「コードの表示」で開く画面に貼りつけてください

teliot
質問者

お礼

早々に回答いただきありがとうございました。 無事動いてくれました。

関連するQ&A

  • ダイアログボックスを表示させるマクロ

    こんにちは。 エクセルのマクロについて教えてください。 エクセルでA列に名前を入力する作業をしています。 入力作業中に、それまでに入力した名前と 重複した名前を入力しようとすると、 「重複しています」と ダイアログボックスを表示するマクロは どのように組めばよいのでしょうか? わかりづらい文章ですみません。 よろしくお願いします。  (A列) 1 高橋 2 田中 3 佐藤 4 太田 5 田中 ←←重複した名前を入力すると、        「 重複しています」とダイアログボックスが表示される。

  • エクセルでVLOOKUPで検出できなかったらメッセージボックスを出した

    エクセルでVLOOKUPで検出できなかったらメッセージボックスを出したい。 シート1のセルB1に =VLOOKUP(A1,シート2!B2:F1000,2,FALSE) と式を入れてあります。 シート1のセルA1に入力をするとシート2のB列から入力した同レコード を抽出しその行のC列を シート1のセルB1に表示します。 シート2に同レコードが無ければ セルB1には #N/A と表示されます。 この時にこの#N/Aの表示をトリガーに メッセージボックスで 「データーがありません」と表示させるのはどうしたらいいでしょうか? マクロを組みましたが、わざとシート2にはない値を入力した時に メッセージボックスが表示される場合と表示されない場合があって困っています。 ------------------------------------------------ Range("B1").Select If IsError(ActiveCell.Value) Then errval = ActiveCell.Value Select Case errval Case CVErr(xlErrDiv0) MsgBox "#DIV/0! エラー" Case CVErr(xlErrNA) If vbOK = MsgBox(" データーがありません") Then Exit Sub End Select End If ----------------------------------------------- またこのメッセージボックスには「OK」と表示されています。 このOKをクリックすると 登録してある別のマクロを起動させる事はできますか? よろしくお願いします。

  • メッセージボックスを表示したいのですが

    EXCEL2003でいろいろなリストなどを作っています。 普段使うのはパソコンに疎い年配の人たちなので、できるだけややこしい操作は必要の無いようにしていますが、エラーが発生するとパニックになってしまうようです。 特に多いのがVLOOKUP等で検索する文字列が無い場合に出る#N/Aなのですが、このエラーが発生した時にメッセージボックスを表示させ文字列を入力する前の状態にもどすイベントマクロを組みたいのですが、過去の質問等をいろいろ探してもなかなか見つけられません。 どなたかご教授をお願いいたします。

  • エクセル メッセージボックスの出し方

    エクセルでオートシェイプでボタンを作り、ボタンをクリックするとsheet2へデーターが入力されるようにマクロで作りました。 (1)入力ボタンを押したらメッセージボックスで”記録されました”と画面に表したいのですが・・教えてください。

  • メッセージボックス表示

    VBAでメッセージボックスの表示方法で教えてください。 あるセル、例えばA1に”111”と入力されたらメッセージボックスで ”○○”と出したい場合はどうしたらいいですか。 あと、A1からA3に”111”と入力された場合の複数セルの場合も教えてください。

  • 空白セルのメッセージボックスでの知らせるマクロ

    はじめまして。下記のExcelについて教えてください。 セルA1からA10の間にデータが入力されているセル、入力されていないセルが混在している場合、データが入力されていないセルをメッセージボックスで知らせるマクロの作成の仕方を教えてください。 空白セルが2つある場合はメッセージボックスは2回表示されます。 ずっと考えていても、分からなくて。。。どうか教えてください。

  • エクセル メッセージボックスについて

    入力規則でメッセージボックスを表示するようにしています。 いつも出てくる場所がセルC8辺りなのですが、アクティブセルの近くに表示されるようなことは出来ないのでしょうか? マクロやVBAは、わらないので簡単にできる方法でお願いします。 もし、出来なければ出来ない旨、教えていただけるとうれしいです。 よろしくお願いいたします。

  • エクセル:マクロ メッセージボックスを消す

    エクセル作業中に発生するエラーメッセージ等、出てくるメッセージボックスをすべて包括的にキャンセル(C)あるいは中止(A)するマクロを記述することは可能でしょうか?宜しくお願いいたします。

  • accessで未入力の場合にメッセージボックスを表示したい

    アクセスのフォーム(テキストボックス)が、未入力の場合メッセージボックスを表示したいです。 【追加条件】 1.テーブルで”入力規則”、”エラーメッセージ”は使わない。 2.vbaは使わない。 3.マクロの”条件”のみで処理する。 ---------------------------------------------------- vbaを使っての方法はあるみたいですが、マクロだけで入力判定をして、未入力の場合にメッセージボックスを表示する方法はないでしょうか?

  • メッセージボックスを表示させるエクセルマクロ

    こんにちは。マクロ初心者です。 エクセル(Excel2003)でメッセージボックスを 表示させるマクロが思うようにいかず困っています。 B列に「○○会社」と入力されれば、 「取引先です。」 とメッセージボックスを表示させたいと思い、 次のとおりマクロを作成しました。 -------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target Like "*会社" Then MsgBox "取引先です。" End If End Sub -------------------------------- しかし、コピーなどで複数のセルを貼り付ける(入力)行為をすると、 「実行エラー'13': 型が一致しません」と出てしまいます。 Worksheet_Change(ByVal Target As Range)を使っているので、 -------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 2 And Target Like "*会社" Then MsgBox "取引先です。" End If End Sub -------------------------------- と、「If Target.Count > 1 Then Exit Sub 」を入れれば、 メッセージは出なくなるのですが、 これだと、A列セルに、コピー&ペーストで複数セルを貼り付けた場合、 「○○会社」があっても、マクロが効いてきません。 複数セルの貼り付けにも対応させるには、 どのようにすればよろしいでしょうか? 基本的なところが理解できていないのだと自覚しておりますが、 どうかご教授願います。 長々とわかりづらい文章ですみません。よろしくお願いします。

専門家に質問してみよう