VBA の DoEventsに対する考察

- 4月 27, 2024

DoEventsとは

長年その意味が良くわからなかったのがDoEventsです。

DoEvents 関数 (Visual Basic for Applications) | Microsoft Learn

MicrosoftのTimer関数のサンプルコードでは、ループの合間にDoEvents が実行されています。

Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop

タイマー関数 (Visual Basic for Applications) | Microsoft Learn

これ、何のために実行してるの？　と思い、今回改めて調べてみました。とても参考になったのは次のページです。

読んで字の如くDoEvents #VBA - Qiita

なるほど、DoEventsを実行すると、Excelに対して発生していたイベントをExcelに処理させることができるんですね。

ノンプリエンプティブなマルチタスクOS

そこで疑問に思ったのは、上のコードに書かれていたYield to other processes.というコメントです。

他のプロセスにゆずる、と書かれているけど、他のプロセス（Edgeなど）は、そんなことしなくても処理を続行できるのでは？、と思いました。

そして思い出したのは、Windows 3.1など、いにしえのノンプリエンプティブなマルチタスクOSです。

Windows 3.1 系統（95, 98, Me等）のOSは、OSがExcel等のアプリにCPUの使用権を渡すと、アプリが使用権を自発的に返すまで待つという仕組みでした。これだとアプリが使用権を返さないと、他のアプリはもちろん、OSまで停止してしまいます。

実際、昔のWindowsだと、Windowsごとフリーズして、再起動するしかないという事がしばしば起きました。

それに対して、Windows NT系のOS（2000, XP, 7, 8, 10, 11）は、アプリ等の実行時間をOSが管理していて、アプリを強制的に停止して、他のアプリやOSを動かす仕組みです。これだとExcelがマクロを実行中でも、他のアプリ等も実行可能です。

ノンプリエンプティブOSにおけるDoEventsは、Excelにイベントを実行させる、というよりは、むしろOSに制御を返すのが本来の目的だったのかもしれませんし、レファレンスの記述もそうなっています。

DoEventsはできるだけ使わない方がいい？

DoEventsを使うと、マクロを実行しながらExcelの操作ができるという良い面もあるけれど、Excelを操作できてしまうため、不整合を引き起こす原因にもなりかねません。

例えば、A1セルを参照しながら計算処理をするマクロを実行中に、A1セルの値を書き換えてしまったら当然計算は破綻します。

また、リファレンスには、イベントプロシージャー実行中の問題も書かれています。

それを考えると DoEventsはむやみに使わない方が良いのではないかと思っています。

なお、DoEventsを使う事により、応答なしを回避したり、長時間のプロシージャー実行をキャンセルしたりできるようです。

応答なしを回避する例：

時間がかかる処理での「応答なし」を回避するには？：.NET TIPS - ＠IT (itmedia.co.jp)

キャンセルの例：

パソコンに関するノウハウ備忘録 (onecolor.jp)

アクセス数の多い投稿

セキュリティ対策ソフトのノートンが詐欺ソフトまがいになってしまってショック

- 1月 06, 2022

夜の10時に風呂に入っていると、80近くになる実家の母から、突然ノートンの表示が出たけどどうすれば、という連絡がありました。表示されたメッセージは次の通りです。！　お使いのパソコンで462件の破損されたレジストリが検出されました。パソコンをクリーンアップしてパフォーマンスを向上させましょう。レジストリの問題は、パソコンの速度低下、フリーズ、さらにはクラッシュの原因となります。ノートンTMユーティリティーズ　アルティメットを入手して、レジストリの問題の解決とパソコンのパフォーマンス向上に役立ててください。ノートンがこんな、レジストリが壊れているからと不安をあおって、別の製品を買わせる詐欺ソフトまがいのメッセージを出してくるとは。親曰く「レジストリが破損て驚いた」（原文ママ）。わけのわからん高齢者に無用なストレスを与えています。大体レジストリーとか言って、それの意味が正しく分かる一般人がいるか！（怒）ブロードコムに買収された法人向けのシマンテックはひどいことになっているけれど、個人向けのノートンライフロックは大丈夫みたいと思っていたら、こんなことになるとは。もう、セキュリティ製品を買うのはやめて、Windows に最初からついてくる Microsoft Defender でもいいのかもしれないと思う今日この頃です。そのほうが安定してるし、こういう余計な問題も起きないし。 2022/9/1 追記　Defenderに切り替えてみました。さらばノートン 2022/01/13 追記悩んでいる方がいらっしゃるようなのでこのメッセージの解説をしておこうかと思います。レジストリーとは Windows や各種アプリ（ソフト）は設定などをWindowsが管理するデータベース（ファイル）に保存するものが多いです。そのデータベースがレジストリーです。ソフトをインストールするときや、設定を変更する際などに書き換えられます。設定等が保存されているため、これが壊れるとWindowsやアプリの挙動に支障をきたす可能性があること自体は確かです。どうして壊れるのかレジストリーが壊れる原因は色々考えられます。 Windowsやアプリの不具合で作成や更新に失敗した作成や更新中にWindowsやアプリが異常終了して中途半端になったデータを保存する部品（SSDやHDDなどのドラ

ZIPファイルを開こうとすると、展開を完了できません、と言われる

- 9月 27, 2023

突然滅茶苦茶遅くなったPCがWindows Updateのキャッシュクリアで復活

- 12月 10, 2021

職場のPCが滅茶苦茶遅くなって操作できないというので色々試していった結果Windows Updateのキャッシュクリアで解決しました。とにかく遅い PCを起動してサインインしてしばらくの間はそれなりに動作するのですが、時間の経過につれて動作が重くなってくる感じです。特にタスクバーの反応が遅くなります。タスクマネージャーとかコンピューターの管理を開いても、ずいぶん経って忘れたころに開いてくる感じです。ひどくなってくると、もう全然反応がありません。サインアウトや再起動がうまく行かない場合もありました。ただし、何もいじらないと後からでも動作する場合もありました。システムの復元も効果なし 12/3に発生して、Windowsの機能「システムの復元」を試みると12/1と、12/3の9時くらいに復元ポイントがありました。9時くらいのものが怪しかったので復元を行いましたが、残念ながら効果がなく、しかも12/1の復元ポイントまで消失しました。結果的にはプログラムの問題ではなくデータの問題だったため効果がなかったということになります。システムの復元の最後にユーザーのデータには影響を与えませんみたいなメッセージが表示されることからも、そうなのでしょう。今回の教訓としてはポイントが消えるかもしれないので復元するなら思い切って前の日にさかのぼったほうが良いという事でした。 [Windows 10] システムの復元を実行する方法を教えてください。　富士通アンインストールもうまく行かないたまたまシマンテックのライセンス切れが重なったため、シマンテックが原因かと思いアンインストールを試みました。しかし、途中までは進むものの取り消されてしまい削除できません。ブロードコム（シマンテックを買収）から削除ツールCleanWipeを入手して削除してみましたが、復旧せずシマンテック以外が原因だと思いました。 Cryptographic ServicesとWindows Update タスクマネージャーでCPUの使用率を見ていると、100%で遅いというのではありませんでした。使用率は高くても数十％。低い時は十数％くらいでしょうか。見ていると周期的にCryptographic ServicesがCPUを使用し、高い時は40%くらいになります。そして、たまにWindows Updateが

Windows セキュリティーのビックリマークが消えない

- 9月 03, 2022

ノートン削除でWindowsセキュリティにビックリマーク実家のノートン360をアンインストールしたところ、タスクトレイにある Windows セキュリティーの盾（シールド）型アイコンに「！」が表示されるようになりました。Windows 11です。マウスポインターを持っていくと、「Windows セキュリティ - 処置をお勧めします」と表示されます。ところが、クリックしてセキュリティの概要を開いてみても、問題なさそうです。ノートンを再インストールするとグリーンのチェックマークになりましたが、アンインストールするとまた黄色のビックリマークになります。私のPCはアンインストールしても問題なかったのでPC次第なのでしょう。解決方法実家のPCは次の方法で解決しました。 Windowsのスタートボタンを押します。（左の四角）「設定」を開きます。「プライバシーとセキュリティ」を選び、「Windowsセキュリティ」をクリックします。「アプリとブラウザーの制御」をクリックします。「評価ベースの保護」が、有効になっていなかったので有効にして、保護設定をすべて有効にしました。有効後これで盾アイコンのビックリマークは消えました。 Web閲覧時に危険 SmartScreen（Web閲覧が保護）が有効になっていなかった可能性があるので、これは確認してよかったです。それにしても、タスクバーのアイコンから開いたWindowsセキュリティの画面に「アプリとブラウザーの制御」が表示されていないのはバグではないかと思います。以前は出ていたような気がします。 2022/10/9 追記今、タスクバーの盾アイコンをクリックしたら、「アプリとブラウザコントロール」が表示されるようになっていました。やはりなにかのバグだったのでしょう。 Windows 11 は22H2にアップデート済みです。 2022/11/26 追記別件で知人のPCのメンテナンスを行ったところ、この現象が発生していたので、早速、上の手順で解消しました。 ESETがインストールされていましたが、期限切れだったのでアンインストールしてDefenderに切り替えました。アンインストールによって生じたのか、元々こうだったのか記憶があいまいです。 Windows 11 は22H2になっていませんでした。スマートアプリコン

Power Automate Desktopでブラウザでダウンロードしたファイルを処理する

- 10月 16, 2021

Power Automate Desktopを使って自動化する作業の一つはWebサービスだと思います。例えば私は銀行の明細照会や送金等の自動化を試みています。そういう作業をしていて必要になって来るのがダウンロードしたファイルの処理です。例えば口座明細ファイルを保存するとか請求書を印刷するとかです。ダウンロードされたファイル名がわかっているのであれば簡単ですが、実際には毎回違うなんだかよくわからない暗号コードのようなファイル名が付けられて落ちてくるという事は結構あります。ファイル名が確定しなければアクションで指定してみようがないので困ります。今回はそういうファイルの処理方法について書いてみたいと思います。画像はクリックすると拡大できます。ダウンロードアクションを使用する Power Automate Desktopにはそのものズバリの「Webからダウンロードします」や「Webページのダウンロードリンクをクリックします」が用意されています。しかし、残念ながらこれはChromeではつかえません。実行するとエラーが発生し「Chrome を使用したファイルのダウンロードはサポートされていません。オートメーションブラウザーの使用を検討してください」と言われてしまいます。そうなんだ、では、とEdgeやIE（Internet Explorer）を指定しても同様です。オートメーションブラウザーってなんなのと思ったら、IEの起動モードの一つでした。それではと、オートメーションブラウザーを使ってみるとオートメーション用にすべてを削ぎ落した画面が表示され、これでは動かないサイトがありました。また、IEのサポート終了が来年2022年6月に迫っているというのもひっかかります。ダウンロードフォルダーを空にするではどうするかと検索してみると、次のページではダウンロードする前にダウンロードフォルダーをクリアするという荒業を使っている方がいます。 Power Automate Desktop：ファイル名がわからないファイルをコピーする方法いやこれ、私なんかはダウンロードフォルダーをデスクトップに設定しているので絶対に使えない方法です。ブラウザのダウンロードフォルダーを一時的に作ったフォルダーに変更して元に戻すなんて言う方法も考えられますが、処理途中でエラーが発生するとそのま

Excel 2019 クエリが原因で日本語入力の一文字目が勝手に確定する

- 7月 25, 2019

既存ファイルにシートを追加してセルに文字を入力していったところ、なぜか一文字目が勝手に確定されてしまうという現象に遭遇しました。一文字目が勝手に確定されるセルに、例えば「支払い」と入力しようとすると、shiharaiのsを入れた時点で確定されてしまい、「s いはらい」のようになってしまいます。消しては入力やり直しなので異常に入力しづらい。大量に入力する必要がある方は絶望を感じるでしょう。クエリが原因新しいファイルでは問題ないのでどうやらファイル依存の問題らしいということがわかりました。新しいファイルを作って、問題のファイルにあるシートを一つずつ移動していったところ、あるシートを移動したところで新しいファイルでも発生することがわかりました。それは銀行のサイトにある為替レートのページを参照しているクエリが含まれるシートでした。そこで、「クエリ」と「確定」で検索したところ、なんと既に先人が原因を特定してレポートしてくれていました。それによると、「データ」メニューの「クエリと接続」グループにある「クエリと接続」をクリックして表示される画面で、クエリが選択されたまま保存されていると発生するということでした。実際に問題のファイルを開いてみると、確かにクエリが選択された状態になっていて、選択を解除したところ改善しました。こりゃわからんわ。新しいファイルでクエリを作っても簡単に再現可能です。 PowerQueryはExcel 2016で標準搭載されたようなので、通常はExcel 2016か2019で遭遇する問題だと思います。回避方法選択を解除して保存私がこの問題に遭遇したときは、クエリの選択を解除して保存するだけで解決し、次回開いた時にも再現することはなかったと記憶しています。ところが、今試してみると、選択解除して保存しても、次回開くとまた選択された状態になっていて、文字入力に支障が出ます。バージョンの違いかと思い、職場のPCでも試してみましたが同様です。私の記憶違いだったのか、その後のバージョンアップで悪化しているのか… クエリと接続画面を表示現状では、「クエリと接続」画面を表示させると（選択を解除しなくても）現象は収まります。ファイルを開くときにマクロで自動的に選択を解除する方法も考え

NEC Aterm WX5400HP をセットアップ

- 9月 19, 2022

しばらく前にWi-Fi6対応ルーターを購入しました。次期主力Wi-Fiルーター NEC Aterm WX5400HP 購入したはいいけれど、ずっと放置していて、昨日ようやく箱を開けてセットアップを開始しました。 Wi-Fi設定とりあえずPCとルーターのLANポートを有線で接続し、Wi-Fiの設定を行いました。うちは、ワンフロアの60m2程度の部屋なので、バンドステアリングやメッシュWi-Fiを使うほどではなく、また2.4GHzのみしか対応しない古いプリンターや体重計もあるので、これらは無効にしています。ちなみに、バンドステアリングは、高速な5GHzと障害物に強い2.4GHzを自動で切り替える機能です。ルーターを設置したリビングなら5GHz、寝室なら2.4GHzという具合にいい具合に切り替えてくれるという事になっています。メッシュは複数のアクセスポイント（Wi-Fi親機）に対してひとつの SSID を使って、家じゅうからアクセスできる機能です。リビングは NK-Living, 寝室はNK-BedroomみたいにSSIDを使い分けることなく、両方のルーターにNKでアクセスでき、使う場所によって自動的に通信状態の良いルーターを切り替えてくれる便利機能です。 PCやスマホはともかく、それら以外のデバイスはパスワード入力が厄介なので、これまで使っていたSSIDとパスワードを設定しました。引っ越し機能を使うと便利なのですが、WEPなどの今となっては危険な設定を継承しかねないので私は使いません。利用はお勧めしません。 IPv4 over IPv6も自動でOK WX5400HPはASAHIネットのIPv4 over IPv6をサポートしているルーターなので、Wi-Fi以外のところはデフォルトのままで接続してみました。その結果次のように自動で認識されました。動作モードはtransixとなり、IPv6動作モードも使用するになりました。自動的にv6 コネクトが選択され、IPv4も通信可能になりました。さすがはサポートされているだけあります。ホームセキュリティーは無効「トレンドマイクロホームネットワークセキュリティ™」がついていますが、私は即無効にしました。経験上、ゲートウェイ（ルーター）にこれをやらせると問題が起こるので。 FortigateとかMcAfeeの法人向

オカムラ家具の高級オフィスチェアー、コンテッサを使っています。ジウジアーロがデザインしたという当時としては未来的なフォルムでした。以前のアパートに住んでいた時に買ったのでヘタするともう20年くらい使っているんじゃないかと思います。当時吉祥寺にあった大塚家具で、アーロンチェアーと座り比べてこれにしました。多分10万円くらいで入手したと思います。掃除が厄介コンテッサは座面の下にほこりがたまりやすく、そして取りにくいという問題があります。そのため、ある程度の掃除しかできませんでした。そして、なにより座面。長年の使用で汚れてしまっているので何とかしたいと思いました。しかし、座面を外すのが容易ではないと思っていました。そろそろ買い替えようかな、とも思いましたが、今、後継モデルのコンテッサセコンダを買うと20万円位するみたいです！！ここはいっちょ気合を入れて掃除してみることにしました。分解前はそう簡単には外せないと思いましたが、今回トライしたところ、意外に簡単に外せることがわかりました。使った工具は次の三つです。左からプラスドライバー、6mm六角レンチ、4mm六角レンチレンチは背もたれを外すために使います。座面はなんとプラスドライバーのみで外すことができました。前の2か所のネジは簡単に外せますが後ろが外せないと思っていました。ドライバーがまっすぐ入らないため。しかし、リクライニングをすればネジが表れて、後ろの2か所も外せるようになりました。赤丸の部分を裏から外しますネジはかなり固いので、上の写真のように径が大きく、グリップがゴムのドライバーを使うとよいでしょう。粗悪なものを使うとネジの頭がだめになると思います。ドライバーを真っすぐセットできない時には、座面を前後にスライドしましょう。レンチはサイズが合えば何でも良いと思います。写真のように長い方が楽に回せると思いますが。オカムラ家具のコンテッサ用の六角レンチを調達背もたれを先に取ってしまうと、リクライニングをするのが少々面倒です。先に座面を外した方が良さそうです。背もたれの上のボルトを外すとき、ヘッドレストがついている場合は落下に注意しましょう。ヘッドレストを押さえながら、外した方が良いと思います。座面と背もたれを洗ったけれどはずした座面と背もたれを風呂にもっていってシャワーを掛ける

このブログ内を検索

趣味はたぶん旅行です