エクセルでマクロを自動的に実行

表題の通りなんですが、エクセルで、あるセルに指定された数値（語句）が入った場合に、それを自動的に感知して実行するマクロがあればと思うのですが、そういったことってできるのでしょうか。

具体的には、
　１、バーコードリーダーで数値をセルに入力
　２、その数値に対応する名前をvlookup関数にて表示
　３、その名前が入力された時点でマクロが自動的に実行
と言うものです。　

３の部分がよく分からずに困っています。できるかどうか分かりませんが、もしできるようであるならその方法を教えていただければありがたいです。どうか、よろしくお願いします。

No.1 回答者： zap35 回答日時： 2006/08/24 12:03

仮にその対象セルがＣ３だとすると、以下のようなマクロを「そのシートのシートモジュール」に記述すればよいです。

これはシートのデータが変更されたというイベントによって起動されます。（だから１．、２．の時点でも起動されますので、変更セルのアドレスをIf文で聞いています）

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
'処理
End If
End Sub

この回答への補足

返信をありがとうございます。
一度試してみて、うまくいったと思ったんですが、その後はどうやってもうまくいかなかったです。
理由もぜんぜん分かりません・・・

補足日時：2006/08/24 13:54

No.2 回答者： Wendy02 回答日時： 2006/08/24 12:17

こんにちは。

ご質問は、とても興味があります。

>セルに指定された数値（語句）が入った場合に、それを自動的に感知して実行するマクロがあればと思うのです

私の思っているのと同じであれば、おそらく出来ると思います。
同じような経験が2度ありますが、私は、ハードがさっぱり分かりません。

>具体的には、
>　１、バーコードリーダーで数値をセルに入力
>　２、その数値に対応する名前をvlookup関数にて表示
>　３、その名前が入力された時点でマクロが自動的に実行

もう少し、詳しく教えください。
バーコードリーダーで数値をセルに入れるのは、どのようにしているのですか？
通信の手段を教えてください。どのように入ってくるのですか？

その名前が入力された時点でマクロが自動的に「何を」実行すればよいのですか？
ある程度の内容は教えてください。

イベント・ドリブン型だと、たぶん、イベントを感知しないのではないかと思います。

私は、掲示板では、ハード系から情報を入れて加工するマクロは提供したことがありますが、最後まで、その仕組みを良く分かりませんでした。うまくいったそうです。

その時の通信手段は、DDEでした。今のOfficeは、OLEが中心ですが、未だに、そういう方式で、Excelにデータを入れているとのことです。

なお、VlookUp は、必要ないような気がします。あればあったで、そこから、イベントを取れます。

この回答への補足

こんにちは。先日は、「ユーザーフォームに現在の時間を入れる」事に関してお世話になりました、ありがとうございます。

＞バーコードリーダーで数値をセルに入れるのは、どのようにしているのですか？
＞通信の手段を教えてください。
　これは、何桁かの数値に対応してあるバーコードをあらかじめ用意して、それに読み込ませるとセルにその数値が出てくるというものです。
通信手段は、USB端子につなげるだけでできるものです。

＞その名前が入力された時点でマクロが自動的に「何を」実行すればよいのですか？
＞ある程度の内容は教えてください。
　回答になるかどうかは分かりませんが、ユーザーフォームのコマンドボタンをクリックすることとまったく同じ事をしたいんです。具体的には、バーコードの番号に対応したシートに移動し、そのシートに書かれている日にちに現在の時間を打ち込みたいんです。（タイムカードをエクセルで行いたいんです）
　コマンドボタンでは、納得のいくものができたんですが、バーコードリーダーでの対応がまったく分からないんです。

　まだまだ、初心者な事もあって、十分に説明できていない部分もあるのではないかと思うので、もし、分かりにくい部分がありましたら、再度補足しますので、よろしくお願いします。

補足日時：2006/08/24 13:11

No.3 回答者： noname#22222 回答日時： 2006/08/24 12:57

まあ、タイマー監視すれば、当該セルに変更があったか否かは判るとは思います。

が、わざわざ、その仕組みが必要でしょうか？
１でイベントは発生していますので、そこで２、３を一気に処理すれば事足りると思いますが・・・。

No.4 回答者： Wendy02 回答日時： 2006/08/24 13:51

>が、わざわざ、その仕組みが必要でしょうか？

私の書き込みに対するものだと思いますが、必要かどうかはわからなくても、もう少し情報がほしいです。それが必要か必要でないかは、ご質問者ご自身が決めてくださればよいです。

確かに、通信で一定期間に入ってくるものなら、タイマー機能で監視させれば良いかもしれませんが、不定期で入ってくるものに、常時監視させる方法としてはあまり関心しません。

それに、思ったようなイベントが発生しているかは、分からないです。手作業で入れるなら、話は簡単ですが、そうでない場合は、Change イベントでは、引っかからないこともあったような記憶があります。

私は、そんなに詳しい人間ではないので、もう少し詳しいことを確認したほうが良いと思ってお聞きしたまでです。

今の時点では、ご質問者の望むようなものには、直接結びつかないような気がしています。

これだけの回答で解決すると思っていらっしゃるのなら、それはそれでよいのですが。

この回答への補足

タイマー機能での監視の話ですが、以前の書き込みにそのような事が書いてあったので、使えるかと思っていたんですが、その内容を見る限りでは私の望んでいるものではありませんでした。

先ほどの書き込みにもお書きしましたが、できれば、バーコードリーダーにてバーコードを読み込ませる動作＝コマンドボタンをクリックする動作　と言う使い方をしたいんです。

分かりにくい部分が多いかと思いますが、その際は再度補足します。どうか、よろしくお願いします。

補足日時：2006/08/24 21:16

No.5 回答者： KenKen_SP 回答日時： 2006/08/24 18:21

こんにちは。

KenKen_SP です。

> 一度試してみて、うまくいったと思ったんですが、その後はどうやっても
> うまくいかなかったです。

zap35 さんの言われている「対象セルがＣ３...」は、バーコードリーダーか
ら数値が入力されるセルのことだと思いますが、単純な勘違いがありそうなの
で確認して下さい。「対象セルがＣ３...」のセルと

> その数値に対応する名前をvlookup関数にて表示

のセルとごちゃ混ぜになってませんか？

関数による表示の変化では Change イベントは発生しません。つまり VLOOKUP
関数の結果でセルの表示が変更されても Change イベントは発生しないという
ことです。Change イベントでこのセルを指定してないですかね...

それで、1回目はうまくいくが、2回目は動作しない...となっているのでは
ないですか？

この回答への補足

返信をありがとうございます。zap35 さんのコードを少々アレンジして、
　Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$a$４" Then
　出勤　　　'処理
　End If
　
Sub 出勤()
Dim m As Byte
Sheets("データ").Select
m = Cells(1, 2).Value + 5
Sheets("データ").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = "=TIME(HOUR(RC[-3]),MINUTE(RC[-3])-5,0)"
Range("D3").Select
Selection.Copy
Cells(m, 4).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
と言う事で、a4にはバーコードで数値を読み込ませると、「出勤」のマクロが実行されるんじゃないかと思ったんですが、うまくいきませんでした。「出勤」のマクロ自体は単独で実行を押してもうまくいきますが、バーコードでは何度試してみてもうまくいきません。もし、原因が分かるようでしたら、よろしくお願いします。

補足日時：2006/08/24 21:17

No.6 回答者： noname#22222 回答日時： 2006/08/25 08:23

s_husky です。

まず、99%プログラミングは完成しています。
3が自動実行されない原因は、既答の通りだと思います。

＜解決１＞

強制的にイベントを発生させる。
例えば、２でキーを送出する。（SendKeys etc.)
しかし、これは、邪道です。

＜解決２＞

バーコード処理そのものを見直す。

・バーコードはバーコードのみをセルに代入しており{ENTER}を送っていないのではないのか？

＜わざわざと書いた理由＞

私は、バーコード入力フォームを用意しています。
その小さいフォームに

・現行のセル名。
・バーコード表示テキストボックス。

を表示。
バーコードリーダは最後に{Enter}を送るように設定。
更に、このフォームから直接に２、３を実行する関数を起動。
１、２、３の処理を複数の関数に分けて書くことと一気に実行することは矛盾しないと思います。
「わざわざ」と書いた理由です。

これで、キー入力との並行処理が完成します。
なお、バーコードはキーボード部分に接続しています。
線は分岐してバーコードとキーボードを双方の信号を受け散るという訳です。

この回答への補足

返信をありがとうございます。
　
解決２については、入力モードが直接入力になっておりますので、Enterが押されていなくても値が入力されております。また、値をキーボードから直接入力しても、マクロが起動しないんです。

「バーコード入力フォーム」とは、どのようなものでしょうか。それを利用する事により、１→３（バーコードで数値を読み込むことで、マクロが自動的に実行）することができるのでしょうか。もし、差支えがなければ是非教えてください。どうか、よろしくお願いします。

補足日時：2006/08/25 20:51

No.7 回答者： KenKen_SP 回答日時： 2006/08/25 09:05

問題の切り分けが必要だと思います。

２. ３．は取り合えず横においておき、
まずは 「バーコードリーダからの入力を検知する」ことから考えた方が良さ
そうです。

バーコードリーダ側でバーコードを読み取ったあとに「改行を送るかどうか」
の設定項目がないですか？ 「改行を送らない」設定になっているのでは？

Worksheet_Change イベントはあくまで、「セルの値が更新」されたとき発生
するものです。ここで、一般的なバーコードリーダの入力原理は、

　　・「キーボード入力のシミュレート」

ですから、バーコードリーダからの入力で Worksheet_Change イベントを発生
させるためには、最後に Enter キー（改行）が送信され、「値が確定」する
ことが必要です。

これが送られていないので、Worksheet_Change イベントが発生しないのでは？

バーコードリーダによっては、この設定自体がないかもしれませんが、取説を
確認してみて下さい。

　# テキストボックスなら KeyDown とか KeyPress などのイベントでも
　# 検知可能なので、改行が送信されなくても良いのですが...

この回答への補足

度々の返信をありがとうございます。

バーコードリーダーが値を読み込む際、入力モードは直接入力になっておりますので、Enterキーを押さなくても改行はされているようです。
ですが、改行されていても、マクロが起動しないんです。ちなみに、キーボードによる入力でもうまくいっておりません。

バーコードリーダーは会社のもので、古い型のようですので、取説はないんです・・・

補足日時：2006/08/25 20:39

No.8 回答者： Wendy02 回答日時： 2006/08/25 12:41

こんにちは。

http://barcode.technical.jp/handbook2/2-1.html
バーコードリーダーで読み取ったバーコードの値をセルに入力する

もし、このようなスタイルで、VlookUp で値が変わるなら、Calculate イベントが働くはずです。
VlookUp は、揮発性(Volatile)関数で、代入される値が変われば、イベントを生成します。

どのような値になるかは別として、簡単に書けばこのようになります。

Private Sub Worksheet_Calculate()
　If Me.Range("A4").Value <> "" Then
　'実行プログラム
　End If
End Sub

ただ、個人的には、そういう方法は、古くなってしまうと思っています。どこかで、けじめをつけていかないといけないなって思います。もちろん、VBAについてを言っているわけではありません。

この回答への補足

返信をありがとうございます。
また、バーコードリーダーに関してのHPを教えていただき、ありがとうございます。

教えていただいたコードを使い、早速試してみたんですが、なぜか実行されませんでした。changeと同様、キーボードで値を入力してみましたが、それも実行されませんでした。
なぜそうなるのか分からなかったので、他のHPに載っていたcalculateのコードでも試してみましたが、実行されず・・・

何が原因なんでしょうか。changeやcalculateと言ったものがただ単に使えないだけなんでしょうか。

度々で申し訳ありませんが、よろしくお願いします。

補足日時：2006/08/25 21:16

No.9 回答者： noname#22222 回答日時： 2006/08/25 22:03

s_husky です。

全く、新しいシートを用意してテストされることをお勧めします。
多分、成功すると思います。
もし、成功したのであれば、原因はVBAの誤動作です。
その場合、プロシージャを再配置（コピー＆ペースト）した可能性があります。
一度だけ他からコピーすることは許されますが、再配置は厳禁です。
再配置の後に全く予測不能の動作が始まります。

是非、全く、新しいシートで１のテストを！
成功すれば、そこに全ての処理を書けば完成です。

No.10 回答者： KenKen_SP 回答日時： 2006/08/26 00:01

> ちなみに、キーボードによる入力でもうまくいっておりません。

キーボードからの直接入力で Change イベントが発生しないこと事態がオカ
シイです。

基本的なことを確認したいのですが、今まで示されたコードが書かれている
場所はどこなのでしょうか？

ワークシートのイベント処理なので、シートモジュールに貼り付けなければ
ならないわけですが。

標準モジュールとかに貼ってないですか？

また、#5 で補足いただいたコードは End Sub が足りません。何かすれ違い
がある様に思います。どうも、こうした回答・補足をいくら繰り返していて
も、解決しない気がしてきました。

まず、ご自分で現在までに書いたコードを「省略しないで全て補足」して
みて下さい。

この回答への補足

返信ありがとうございます。

KenKen_SPさんの回答をいただいてすごく基本的な事が間違っている事に気がつきました。標準モジュールに貼っておりました。お恥ずかしながら、「シートモジュール」「標準モジュール」の区別が今まで全くできてなく、全て標準モジュールにて行っておりました。お手間を取らせてしまい、大変申し訳ありませんでした。
また、コードのEnd Subが抜けているご指摘の点ですが、書き込みを終わった後で気がつき、どうにもできないままご指摘を受けると言う事になってしまいました。こちらも申し訳ありませんでした。実際、後はEnd Subをつけるだけで、その他、不必要なセルの移動の部分を消しただけのコードであります。

回答の中で教えていただきました、シートモジュールに、
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$a$４" Then
　出勤　　　'処理
　End If
　End Sub

そして、標準モジュールの出勤のコード
Dim m As Byte
Sheets("データ").Select '出勤時間を確定させる
m = Cells(1, 2).Value + 5
Sheets("データ").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = "=TIME(HOUR(RC[-3]),MINUTE(RC[-3])-5,0)"
Range("D4").Select
Range("D3").Select
Selection.Copy
Cells(m, 4).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
にて、試みてみました。しかし、結果的に実行はしませんでした。

また、Wendy02さんのコードでも試してみました。そうしたら、今度はマクロが実行したんですが、同じ作業を繰り返した後で「スタック領域が不足」というメッセージが出ました。

ほんの少しだけ、前進したような気がします。
皆様にはお手間を取らせてしまい、大変申し訳なく思いますが、どうか、よろしくお願いいたします。

補足日時：2006/08/26 01:00