Excel VBA質問箱 IV

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

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


6309 / 13646 ツリー ←次へ | 前へ→

【45984】別ブックのマクロを実行する よし 07/1/20(土) 20:04 質問[未読]
【45988】Re:別ブックのマクロを実行する Kein 07/1/20(土) 20:38 発言[未読]
【45990】Re:別ブックのマクロを実行する よし 07/1/20(土) 23:07 お礼[未読]

【45984】別ブックのマクロを実行する
質問  よし  - 07/1/20(土) 20:04 -

引用なし
パスワード
   はじめまして、「よし」と申します。

仕事の資料で数100シートのものを作る必要があり、そのシート名をマクロで一括変換したいと思い作成しました。マクロ自体はでき、そのマクロに「Ctrl+y」のショートカットを割り当て、別ブックのシート名を変更したいのですが、変更したいブックに

Sub TEST()
  Application.Run "ファイル名!ChangeActiveSheetName"
End Sub

を記述しないで、ショートカットだけで実行したいと思っています。
どうすれば実現できるのかご教授願えないでしょうか?

よろしくお願い致します。

【45988】Re:別ブックのマクロを実行する
発言  Kein  - 07/1/20(土) 20:38 -

引用なし
パスワード
   つまり、変更したいブックが多数あって、いちいちそれらのブックに
Application.Run 〜 のマクロを入れるのは面倒、ということですね ?
それなら "シート名を一括変換" するマクロ自体を Personal.xls に入れ、
処理対象のブックを ActiveWorkbook で参照するようにコードを修正すれば
オッケーです。Personal.xls の使い方が分からなければ↓の「マクロの使い方(5)」
を参考にして下さい。
http://park11.wakwak.com/~miko/Excel_Note/14-01_macro.htm#14-01-01
(URL先頭4文字は半角に変換)

【45990】Re:別ブックのマクロを実行する
お礼  よし  - 07/1/20(土) 23:07 -

引用なし
パスワード
   ▼Kein さん:
どうもありがとうございます。「Personal.xls」ですか・・・そんなものがあること自体初耳で、色々サイトを参考にして出来るようになりました。この「Personal.xls」を指定のフォルダ

Excel 2000以降では
「Documents and Settings\ユーザー名\Application Data\Microsoft\Excel\XLSTART」
内にコピーすれば、別のマシンでも使用できるみたいですね。

また質問することもあるとは思いますが、そのときはよろしくお願い致します。

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