Excel,LibreOffice calcでフラッシュ暗算をVBAで作る

Excelの欠点は高すぎる、Calcのマクロは難しすぎ。それをVBAで完全ではないですが動くようなので実験をします。

マクロを一時停止するには

2秒の停止：

Application.Wait Time() + TimeValue("00:00:02")

Time() : 引数なしだと現在の時間　｜　DAXの関数
TimeValue : 時間形式の文字列を「datetime」に変換　｜ DAX

DAXとは何？？

Excelからだけではなく、他のソフトからも使えるようです。

Application.Wait Second(“0:0:2”)

いろいろGoogleで検索したけど、この例はありません。
なぜ動く？？

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

最初に、このおまじないが必要　Excelは64ビット版

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

これだと、エラー表示が出ます。

コンパイルエラー:このプロジェクトのコードは、64 ビットシステムで使用するために更新する必要があります。Declare ステートメントの確認および更新を行い、次に Declare ステートメントに PtrSafe 属性を設定してください。