VBA でWaitやSleepを使う際の問題

- 4月 25, 2024

VBAには、そのものずばりの Wait もしくは Sleep がありません。

Application.Wait

Application.Wait は指定した「時間」の停止ではなく、指定した「時刻」まで処理を停止するというよく分からない仕様です。そして何より、Application.Waitは動作が安定していません。

試しに次のようなプロシージャーを実行してみます。

Sub uTest()
Dim uStart

uStart = Timer
uWait 1
Debug.Print Timer - uStart '経過時間を表示
End Sub

Sub uWait(ByVal uSeconds)

Application.Wait (Now + uSeconds / 86400)

End Sub

結果は次の通りで、全く安定しません。

0.921875

0.78125

0.90625

0.234375

0.4453125

0.8515625

0.03125

0.59375

私の使い方が悪いのかバグがあるのか。

Timer 関数

そこで、Timer関数を使って次のようなプロシージャーを書いて見ました。

参考にしたのは、次のページです。

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

Sub uWait(ByVal uSeconds As Single)

Dim uStart As Single

Dim uElapsed As Single

uStart = Timer

uElapsed = Timer - uStart

If uElapsed < 0 Then '午前0時を超えた場合

uElapsed = uElapsed + 86400 '60 * 60 * 24 seconds

End If

Loop Until uElapsed > uSeconds

End Sub

4回実行した結果は、次のとおり概ね正確です。

1.001953
1.001953
1.001953
1.001953

こちらを使った方が良さそうです。

Timer 関数は午前0時からの経過時間を返す関数なので、午前0時を超えてしまうと時間がリセットされ0に戻ってしまいます。なので、午前0時を超えた時の処理を入れてあるけれど、動作は未確認です。

Win 32 API の Sleep

次のように、Win32 APIのSleepが紹介されているサイトも多いです。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)

これを試したところ、上記のTimerによるプロシージャーと同様に正確でした。

Sleepの方が宣言を書くだけなので簡単ですが、どうも Declare で外部プロシージャーを呼び出すのは好きになれません。

そして、Microsoft 365 Defender for Business では、次のルールを有効化することが推奨されています。

Block Win32 API calls from Office macros

Attack surface reduction rules reference - Microsoft Defender for Endpoint | Microsoft Learn

これを有効にしたら、Win 32 APIを使っているマクロは動かなくなってしまうのではないかと思います。

将来を考えると、Win 32 APIを使うのは避けておいた方が良さそうな気がします。

アクセス数の多い投稿

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

- 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

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

- 7月 25, 2019

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

Excelのテーブルに行や列を挿入する際のエラー

- 2月 25, 2024

Excelのテーブルに行や列を挿入しようとすると、「この操作を実行するとワークシート上のテーブル内でセルが移動されてしまうため、この操作は行われません」というエラーメッセージが表示され、失敗する時があります。長年このエラーの原因が不明でしたが、あるときどうしても解決する必要があって調べたところ、ようやく原因がわかりました。現象図1の場合、上のテーブルに行を追加しようとするとエラーが発生します。図1 図2の場合は、左側のテーブルに列を追加しようとすると発生します。図2 テーブルに行や列を追加しようとすると、そのテーブルの範囲だけが拡張されます。どういう事かというと、図1の上のテーブルの場合、行を挿入すると、B, C, D列のみセルが追加され、A列やE列は変化がありません。そうすると、下のテーブルは、列1、2、3だけ下にずれることになり、テーブルが壊れてしまいます。そのため、最初のエラーメッセージが表示されるという事です。図2の場合も同様で、左のテーブルに列を追加しようとすると2行目から5行目までだけが右にシフトしようとします。これもまた右側のテーブルが壊れてしまうため、エラーが起こるというわけです。回避策テーブルに行や列を追加するのではなく、シートに対して行全体、列全体を追加すれば、図1の下のテーブルや図2の右のテーブルも全体的に移動するのでエラーは発生しません。この場合、人間が手動で追加する場合はいいのですが、VBAを使って、テーブルに行や列を追加する場合は、シートに対する行や列の追加が必要になるためやっかいです。一つのシートにテーブルを複数追加する場合は、このような問題が起こらないようにレイアウトを考える必要があります。私の場合は、仕方なく、図1のパターンでは、列が少ないテーブルを下に配置することにしました。これだと、上のテーブルを追加しても、下のテーブルは全体的に下にずれるため問題ありません。そういうレイアウトにできない場合は、仕方がないので、行全体、列全体を追加することになります。

オカムラ家具のOAチェアー、コンテッサを分解清掃

- 12月 31, 2022

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

突然滅茶苦茶遅くなった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が...

ChatGPTが日本語からVBAのコードを生成できてたまげる

- 12月 11, 2022

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：ファイル名がわからないファイルをコピーする方法いやこれ、私なんかはダウンロードフォルダーをデスクトップに設定しているので絶対に使えない方法です。ブラウザのダウンロードフォルダーを一時的に作ったフォルダーに変更して元に戻すなんて言う方法も考えられますが、処理途中でエラーが発生するとそのま...