Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8258 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34291】他のブックのマクロを実行 トミー 06/1/30(月) 19:19 質問[未読]
【34292】Re:他のブックのマクロを実行 ぱっせんじゃー 06/1/30(月) 20:36 発言[未読]
【34295】Re:他のブックのマクロを実行 inoue 06/1/30(月) 21:24 発言[未読]
【34298】Re:他のブックのマクロを実行 ichinose 06/1/30(月) 21:47 発言[未読]
【34360】Re:他のブックのマクロを実行 トミー 06/2/1(水) 10:37 お礼[未読]
【34291】他のブックのマクロを実行
質問  トミー  - 06/1/30(月) 19:19 -
引用なし
パスワード
   トミーと申します。

今、業務選択メニューと言う専用ブックを作成して、任意の業務のコマンドボタンを
クリックしたら　そのブックのマクロを実行できるようにする方法をお教え下さい。

(例)　１：勤怠データの入力(book1　macro1)
　　　２：勤務表の作成(book2　macro2)
　　　３：その他業務

　　　２のコマンドボタンをクリックするとbook2のmacro2を実行し、終了すれば
　　　元の業務選択メニューのブックに戻る

以上、宜しくお願いします。
【34292】Re:他のブックのマクロを実行
発言  ぱっせんじゃー  - 06/1/30(月) 20:36 -
引用なし
パスワード
   マクロ専用ブックを用意しアクティブブックを切替ながら
アクティブブックに対して処理するようにしてはいかがでしょう？
【34295】Re:他のブックのマクロを実行
発言  inoue E-MAILWEB  - 06/1/30(月) 21:24 -
引用なし
パスワード
   データブックとマクロブックを分けることは、
配布してからマクロの改変をすることになって苦労された方には
重大要件ですよね。

でも、掲示板で数行書けば済むようなことでもないので、
こちらを見てみて下さい。
[配布の問題]
http://www.asahi-net.or.jp/~ef2o-inue/haifu/sub06_010.html
【34298】Re:他のブックのマクロを実行
発言  ichinose  - 06/1/30(月) 21:47 -
引用なし
パスワード
   ▼トミー さん：
こんばんは。

>
>今、業務選択メニューと言う専用ブックを作成して、任意の業務のコマンドボタンを
>クリックしたら　そのブックのマクロを実行できるようにする方法をお教え下さい。
>
>(例)　１：勤怠データの入力(book1　macro1)
業務選択メニューにあたるブック側で
macro1がbook1.xlsの標準モジュールにあるのならば

　　　Set appbk = workbooks.OPEN("d:\xxx\xxx\book1.xls")
　　　Application.Run "book1.xls!macro1"
　　　appbk.Close False

私は、このmacro1をbook1.xlsのThisworkbookに記述します。
すると、

　　　With workbooks.OPEN("d:\xxx\xxx\book1.xls")
　　　　　　.macro1
　　　　　 .Close False
　　　　 end with

こんなコードで作動しています。
【34360】Re:他のブックのマクロを実行
お礼  トミー  - 06/2/1(水) 10:37 -
引用なし
パスワード
   バッセンジャーさん　inoueさん　ichinoseさん

早速のご教授ありがとうございます。風邪で寝込んでいてお礼が遅くなり
申しわけありませんでした。

早速、チャレンジしてみます。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8258 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free