Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28856 / 76732

←次へ　｜　前へ→


	【53166】Re:２つのファイルのマクロの同時実行　一部訂正

ichinose - 07/12/18(火) 7:41 -


	引用なし

	パスワード

おはようございます
訂正です。

>setcell.xlsのコード
>標準モジュールに
>'=====================================================================
>Sub main()
>　　Dim g0 As Long
>　　Dim ex As Application
>　　Dim dbk As Excel.Workbook
>　　Set ex = CreateObject("excel.application")
　　Set dbk = ex.Workbooks.Open(ThisWorkbook.Path & "\disptime.xls")
'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑dsptime
'　　　　　　　　　　変更してください
>　　ex.Run dbk.Name & "!thisworkbook.set_proc"
>　　ThisWorkbook.Activate
>　　Worksheets(1).Activate
>　　Range("a:a").ClearContents
>　　For g0 = 1 To 20000
>　　　 With Cells(g0, 1)
>　　　　　.Select
>　　　　　.Value = g0
>　　　　　End With
>　　　 Next
>　　Worksheets(1).Range("b1").NumberFormatLocal = "hh:mm:ss"
>　　ex.Run dbk.Name & "!thisworkbook.hideform"
>　　ex.Run dbk.Name & "!thisworkbook.set_tm", Worksheets(1).Range("b1")
>　　ex.Run dbk.Name & "!thisworkbook.unloadform"
>　　dbk.Close False
>　　ex.Quit
>End Sub
>
>
>上記のブックを同じフォルダ上に保存した後、
>setcell.xlsだけを開いて、mainを実行して動作とコードを確認してください。
>
>Application.Run　でそのまま目的のコードを実行させると
>同期が取れてしまいます。
>
>非同期に作動するように工夫することがポイントですよ！！

0 hits

▼

【53100】２つのファイルのマクロの同時実行 yhar 07/12/14(金) 16:47