VBA：Callステートメントでいつでもイベント発生可能な準備をしたい。

Question

タイトルどおり、Callステートメントでいつでもイベント発生可能な準備ができるようにしたいと考えています。しかし、Sub 実行準備SUBでエラーが出ています。どこをどう直せばよいのか教えて頂きたいです。

Private Sub Auto_Open()
MsgBox "Ctrl + t でイベント実行準備を行います。"
Application.OnKey "^{t}", "実行準備SUB"
End Sub
'---------------------------------------------------
Sub 実行準備SUB()
Dim Target As Range
Target = Range(Cells(1, 1), Cells(100, 100))
Call Worksheet_Change(ByVal Target)
End Sub
'---------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
If r.Column = 2 Then
r.Offset(0, -1).Value = Now
End If
Next r
End Sub

イベントは、シートの2列目のセルに変更があれば、1列目に日付時刻を記入するというものです。宜しくお願い致します。

noname#29107 · Accepted Answer

＃２です。
＞今後のためにも、VBAの構造的な理解、Callステートメント、
＞プロシージャ等の理解を助けてくれる本などご存知でしたら
＞是非教えて頂きたいです。
最近は、もっぱらヘルプを中心に参照していまして、今どきの本などについては存じ上げませんので、残念ながらご紹介できるようなネタを持ち合わせておりません。

ただ、現在お使いの本をもっとシャブリ尽くす、さらに関数の使用法やVBAの文法などは本の内容に加えてヘルプを確認するなどで理解はすすむのでは、と思います。

また、WebなどにあるExcelのサンプルなどで、結果がどのように得られるのかという過程を検証するというのも実力アップにつながるのではないかと思います。（OKWebの回答もいいサンプルになります。Excelに関しては「コンピューター [家庭向け] > ソフトウェア > Microsoftアプリケーション」のカテゴリで質問されるのが多いです。）


＞ExFlgとはどういった意味なのでしょうか？
これは私が勝手に決めた変数です。（Public変数というものですが、これについてはヘルプや本で確認できると思います。）
http://okweb.jp/kotaeru.php3?q=911764
の質問で＃１（＝＃２）さんが、フラグを使ってコントロールする方法がありますという紹介をされていますが、それの具体的な例に当たります。
フラグといのはプログラムをコントロールするための変数です。フラグ＝旗のイメージで、旗が立っていたら、プログラム上のある処理を行う。旗が寝ていたら、何も行わないなどといった形で使います。
この場合でしたら、ワークブックが開いたときにフラグを寝かして置く。Ctrl+Tが押されたらフラグを立てる。ワークシートが変更された時に、フラグが立っていたら、時刻を記入するという流れになります。

（「フラグを立てる」とかは一般的にも使いますが、普通「寝かす」とは言わないです。説明のための表現ですので、お間違えなきよう）

imogasi · Answer

素人の戯言ととでも思って読んでください。
＞今後のためにも、VBAの構造的な理解、Callステートメント、プロシージャ等の理解を助けてくれる本などご存知でしたら是非教えて頂きたいです。
私も知りたいです。VBAの本に関心のあるものです。
しかしはっきり言ってお目にかかったことがありません。大村あつしさんの本を読んだ時に、所々それらしき臭いを嗅いだことを記憶しています。
あとは、９割９分初学者むけの似たり寄ったりの本ばかりです。
５００題、１０００題の多ページの本でも、知りたい課題を持って探すと、役に立たないことが多いです。
偶に雑誌や本の中の１文やWEBのVBA関連記事の中に、はっとする記述に出食わすことがあります。
これは自分の知識の発展・整理段階とも深く関連するようで、そういう段階に達した時に、始めて、はっとその記述の深い意味を悟るのです。始めは読んでもその意味に気がつきません。
またVBAもVBや他言語の仕組みなどを知ると、始めてVBAの
特徴や偏りなどが判るようです。回りのことを見ると自己が判る。
ですから詳しい本がそばにあれば万事解決でもないと思います。
本当に良く知っておられるプロは、小数だとは思いますが、世の中沢山いらっしゃると思いますが、忙しかったり、OKWEBにご縁がなくて、その知識を披露していただける機会がないようです。OKWEBでは、エクセルでもプロ向きの問題でない関数式の問題も多く、エクセル自身も、システムやプログラムのプロでも、必ずしもお詳しくはないのではと思います。コンピュタ界全体からすれば、エクセル関連知識も周辺部分的なことです。UNIX系統の方など、エクセルは詳しくないのではと想像します。たかが表計算ソフトのMSの１ソフトに過ぎぬと。
またOKWEBのエクセルの質問を全部目を通さないと、本件のような質問にぶつからないのですが、そのためには、毎日数時間メールに目を通す時間が要ります（私の経験から）。プロは多忙で、そんなことやってられないでしょう。
本件は理系の研究室の課題かと思いますが、良くあるニーズだと思いますので、もっと専門的に特化した世界の人や
資料に当たって見られることをお勧めします。
OKWEBは（コンピュタカテゴリについて）学術的・研究的・数学論理的・理系なことには無力ではないかと、３年間に
亘って、読み続けてきて感じます。
＞Call
Callすることは、その時点で、実行するということです。
エクセルのChangeイベントなどを、VBE画面のメニュの実行
のSUB/ユーザーフォームの実行で実行しようとすると
実行できません。シート上のキーボードやマウス操作をイベントとしなければならないのは、何度も経験します。
イベントプロセジュアを通常のSUBプロセジュアの中に記述するのはおかしいと思います。
独立して記述するのが、出来るのが、メリットでもあると思います。
割り振りはシステムに任せる。
Changeイベントの前に行うべきことは、BOOKのOpenイベントなどで行うか、イベントを働かなくすれば良いのです。
EnablEevents=False なんていうのもあります。
＞GPIBによるデータの取りこみの問題のようですが
時刻をデータに取り入れるなんて、良くある問題じゃないかと思います。VBAでなく、APIを使うとか、エクセルではなく、それ向けのソフトが沢山あると思います。通常はそれでの出力をCSV形式ファイルなどにして、後にエクセルに読みこませているのではと思います。
その辺を後学のためにも、研究されんことを。
たまたま身近なエクセルに飛びついた感あり、方向性の是正が必要では。

noname#29107 · Answer

失礼ですが、混迷を深めやすい形での質問の出し方になっています。

質問者さんは
http://okweb.jp/kotaeru.php3?q=911402
http://okweb.jp/kotaeru.php3?q=911764
という形で関連質問を順次出されていますね？それぞれ別の問題と言うことではなく、同じ問題を順次解決していくという方針だと思うのですが、以前の質問のリンクを示されていないので、別々の問題として考えると、特に今回のような質問であれば、意図不明なものになってしまっています。
他のプロシージャから Worksheet_Changeを呼び出す必要性も正当性も感じられません。（Private Subなので同一モジュールからならWorksheet_Changeは呼び出せますが、標準モジュールから呼び出すことは出来ません。）

Worksheet_Changeで指定した時刻表示をCtrl+Tを押したとき以降だけ有効にしたいということなら次のようにする方法が考えられます。

標準モジュールで
Public ExFlg As Boolean
'Subの定義の前
Sub 実行準備SUB()
ExFlg = True
End Sub

Workbookのイベントで
Private Sub Workbook_Open()
'Auto-Openでも可
MsgBox "Ctrl + t でイベント実行準備を行います。"
ExFlg = False
Application.OnKey "^{t}", "実行準備SUB"
End Sub

Worksheetのイベントで
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If ExFlg Then
　　For Each r In Target
　　　　If r.Column = 2 Then
　　　　　　r.Offset(0, -1).Value = Now
　　　　End If
　　Next r
End If

End Sub

papayuka · Answer

実行準備って何でしょう？
Callしてるって事は実行準備では無く、実行したいって事？

正直、何をされたいのか良く解かりません。
シートの Change イベントは セルに入力されれば勝手に呼ばれます。

'-----------------------------------------------------------------
'「標準モジュール」に書く
Private Sub Auto_Open()
　　MsgBox "Ctrl + t でイベント実行準備を行います。"
　　Application.OnKey "^{t}", "実行準備SUB"
End Sub

'-----------------------------------------------------------------
'「標準モジュール」に書く
Sub 実行準備SUB()
Dim r As Range
　　Set r = ActiveSheet.Range("B1:B100")
　　r() = r()
End Sub

'-----------------------------------------------------------------
'「シートモジュール」に書く
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
　For Each r In Target
　　 If r.Column = 2 Then
　　　　r.Offset(0, -1).Value = Now
　　 End If
　Next r
End Sub


これが希望の動作なら、シートモジュールの Change なんか不用で、下記にキーを割当てたのとなんら変わりが無い気がしますけど。。。

Sub aaaa()
　　ActiveSheet.Range("A1:A100") = Now
End Sub

VBA：Callステートメントでいつでもイベント発生可能な準備をしたい。

＃２です。

素人の戯言ととでも思って読んでください。

失礼ですが、混迷を深めやすい形での質問の出し方になっています。

この回答への補足

実行準備って何でしょう？

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング