VBAで円をアッドシェイプして連続的に広げるプ

Writer: admin Type: 友人関係の悩み Date: 2019-03-06 00:00
VBAで円をアッドシェイプして連続的に広げるプログラムを組みました。それを何秒か毎に同じことをやりたいのですが、do loopを同時に複数使うのはVBAではできないようです。VBAのみで解決させなければいけません。どうすれば良いのでしょうか?共感した0###標準モジュールに下記のコードを記述してください。3秒ごとにイミディエイトに円をアッドシェイプして連続的に広げるが出力されます。繰り返し停止を実行すると止まります。これがうまくいったら、    Debug.Print "円をアッドシェイプして連続的に広げる"の部分を実際に繰り返し実行したいコードに変更してください。Dim ET As DatePublic Sub 円を広げる()    Debug.Print "円をアッドシェイプして連続的に広げる"    ET = DateAdd("s", 3, Now())    Application.OnTime ET, "円を広げる"End SubPublic Sub 繰り返し停止()    Application.OnTime ET, "円を広げる", Schedule:=FalseEnd Subナイス0

 

TAG