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)」
を参考にして下さい。
ｈｔｔｐ://park11.wakwak.com/~miko/Excel_Note/14-01_macro.htm#14-01-01
(URL先頭４文字は半角に変換)


	【45990】Re:別ブックのマクロを実行する

よし - 07/1/20(土) 23:07 -


	引用なし

	パスワード

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

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

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


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

6309 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free