
以下のコードは、モジュール名が aiueo Module4 という2つの
マクロを、ブックにインポートするマクロ です
単純に同じコードを2つ書いているだけです
当該マクロを、もう少し簡略化する事はできますか?
ご存じの方、教えて下さい
【コード】
Sub moduleImport_Single()
'インポート対象のモジュールファイルを指定
Dim s As String
s = "C:\Users\2020\OneDrive\マクロ\マクロファイル\aiueo.bas"
'指定のモジュールをインポート
ThisWorkbook.VBProject.VBComponents.Import s
'インポート対象のモジュールファイルを指定
Dim m As String
m = "C:\Users\2020\OneDrive\マクロ\マクロファイル\Module4.bas"
'指定のモジュールをインポート
ThisWorkbook.VBProject.VBComponents.Import m
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
>当該マクロを、もう少し簡略化する事はできますか?
>ご存じの方、教えて下さい
通常なら、共通部分をまとめて処理できるような構造にすると思います。
すでにNo1様が回答なさっているようにプロシージャ化して処理するのが一般的かも知れません。
一方で、ご提示の内容に限って言うなら、「同じフォルダ内の複数のモジュールをインポート」しているだけの単純なものなので、以下のような考え方もできますね。
(数が多いようならループ処理にすれば良いです)
Sub moduleImport_Single()
Const addr = "C:\Users\2020\OneDrive\マクロ\マクロファイル\"
With ThisWorkbook.VBProject.VBComponents
.Import addr & "aiueo.bas"
.Import addr & "Module4.bas"
End With
End Sub
気になるのは、何度も実行するようなものではないはずですので(=重複して同じものをインポートする必要はない)、そのあたりをどう考えているのか不明ですけれど・・・
「インポートされていない場合に読み込む」ということはあり得ると思いますが、ご提示の処理はそうはなっていませんし・・
一回だけの使い捨ての処理なら、記述効率などはあまり気にする必要もないと思います。
ThisWorkbookは保存せずにインポートを残さないのなら、毎回読み込んでもよいですけれど、読み込み時間の無駄にも思えます。
また、ご提示のプロシージャをブック等で配布するのなら、そのブックに先にモジュールを読み込んでおけば、ご提示のプロシージャは不要のようにも思えます。
以下は、変数だと4行になるので、あえて、定数 constに
したのでしょうか??
Const addr = "C:\Users\2020\OneDrive\マクロ\マクロファイル\"
【変数の場合】
Dim s As String
s = "C:\Users\2020\OneDrive\マクロ\マクロファイル\aiueo.bas"
Dim m As String
m = "C:\Users\2020\OneDrive\マクロ\マクロファイル\Module4.bas"
No.1
- 回答日時:
対象ファイルの置き場所が決まってるなら、
Sub moduleImport_Single()
' 2つのモジュールをインポート
Call moduleImport_Single_Sub("aiueo.bas")
Call moduleImport_Single_Sub("Module4.bas")
End Sub
とかってして、
moduleImport_Single_Sub(fname as string)
の中でもうちょっとエラーチェックとかする。
そういう処理も無いなら、あんまり簡略化する事も無いかも。
少なくとも、文字列変数は使わなくても支障なさそうだけど。(長いけど)
ThisWorkbook.VBProject.VBComponents.Import "~\~\~\aiueo.bas"
ThisWorkbook.VBProject.VBComponents.Import "~\~\~\Module4.bas"
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】アクティブセルの行のデータをクリアするマクロについて 1 2024/06/12 06:45
- Excel(エクセル) 【マクロ】アクティブセルにブックやシートを指定する方法 2 2024/06/12 09:10
- Excel(エクセル) 【マクロ】シート名を取得する為には 2 2024/05/02 07:40
- Visual Basic(VBA) Excelのマクロについて教えてください。 2 2024/11/21 10:13
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/11/18 09:09
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
- Visual Basic(VBA) 【マクロ】1つのマクロの中に、ブック指定とシート指定が混在しても良いのですか? 2 2024/05/16 07:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) 【マクロ】VLOOKUPにて参照元にデータが無い場合【該当なし】と表示したい 3 2024/06/08 16:45
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
45490がどうして
Excel(エクセル)
-
vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
excelVBAについて。
Excel(エクセル)
-
-
4
excelVBAについて。
Excel(エクセル)
-
5
excelVBAについて。
Excel(エクセル)
-
6
VBA の単語の意味を教えて下さい。
Excel(エクセル)
-
7
【マクロ】重複する同じ行を、削除でなく1番下の行に回し色を付ける為には
Excel(エクセル)
-
8
【マクロ】for next構文について
Excel(エクセル)
-
9
職場の人から聞かれており、こんなことができるか教えて下さい。 vbaとかはできません。。 下記リスト
Excel(エクセル)
-
10
エクセルでバーコード作成し使用しているんですが、違うパソコンで同じエクセルファイルを使用したらバーコ
Excel(エクセル)
-
11
EXCELのページを、枠線を維持したまま印刷する方法をありませんか?
Excel(エクセル)
-
12
【ExcelVBA】UTF-8(BOM無)でCSV保存するには?
Excel(エクセル)
-
13
【マクロ】Ifとwith ステートメントにて分からない部分があります
Excel(エクセル)
-
14
【マクロ】functionプロシージャの、変数について
Excel(エクセル)
-
15
「cells」が上手く機能しない
Excel(エクセル)
-
16
考えた式の戻り値が期待通りにならない
Excel(エクセル)
-
17
(マクロ)値を返す時は subでもfunctionでもどちらでも良いのでしょうか?
Excel(エクセル)
-
18
Excelの計算が合いません。 諸事情で会計の簡素な購入・販売諸元表を作っているのですが、一つの項目
Excel(エクセル)
-
19
条件付き書式の効率的な設定の仕方について
Excel(エクセル)
-
20
excelVBAについて。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでの文字入力について
-
Excelのデーターバーについて
-
マクロを実行すると、セル範囲...
-
【マクロ】シート追加時に同じ...
-
【マクロ】Call関数で呼び出し...
-
カーソルを合わせてる時のみ行...
-
別のシートの指定列の最終行を...
-
システムファイルについて
-
エクセルで、数字の下4桁の0を...
-
Excelのマクロが表示できない
-
スプレッドシートでの数値集計
-
自動的に日付入力 応用
-
エクセルの設定、下へスクロー...
-
UNIQUE関数の代用
-
Excel 日付の表示が直せません...
-
エクセルでA1を参照してその文...
-
VBA の単語の意味を教えて下さい。
-
Excel関数の解決方法
-
エクセルの数式について教えて...
-
Vbaをバッチ処理で動かす方法に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報