Excel VBA質問箱 IV

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

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


28862 / 76738 ←次へ | 前へ→

【53166】Re:2つのファイルのマクロの同時実行 一部訂正
発言  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 でそのまま目的のコードを実行させると
>同期が取れてしまいます。
>
>非同期に作動するように工夫することがポイントですよ!!

2 hits

【53100】2つのファイルのマクロの同時実行 yhar 07/12/14(金) 16:47 質問
【53104】Re:2つのファイルのマクロの同時実行 ichinose 07/12/15(土) 9:36 発言
【53142】Re:2つのファイルのマクロの同時実行 yhar 07/12/17(月) 11:19 質問
【53149】Re:2つのファイルのマクロの同時実行 yhar 07/12/17(月) 17:22 質問
【53159】Re:2つのファイルのマクロの同時実行 ichinose 07/12/17(月) 21:55 発言
【53166】Re:2つのファイルのマクロの同時実行 一... ichinose 07/12/18(火) 7:41 発言
【53168】Re:2つのファイルのマクロの同時実行 追伸 ichinose 07/12/18(火) 8:28 発言
【53169】★まずは御礼★ 追伸 yhar 07/12/18(火) 8:45 お礼
【53185】Re:2つのファイルのマクロの同時実行 ichinose 07/12/18(火) 21:27 発言
【53430】【御礼】2つのファイルのマクロの同時実行 yhar 08/1/10(木) 16:55 お礼
【53143】Re:2つのファイルのマクロの同時実行 Who Me? 07/12/17(月) 11:34 発言
【53144】Re:2つのファイルのマクロの同時実行 yhar 07/12/17(月) 13:44 お礼

28862 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free