SMART SPACE

ファイルを開く

Sub ファイルを開く1()
    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")

    '(CSV(カンマ区切り),*.csv")
    If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName
    End If
End Sub

Sub ファイルを開く2()
    Dim buf As String, wb As Workbook
    Const Target As String = "C:\Book1.xlsx"
    ''ファイルの存在チェック
    buf = Dir(Target)
    If buf = "" Then
        MsgBox Target & vbCrLf & "は存在しません", vbExclamation
        Exit Sub
    End If
    ''同名ブックのチェック
    For Each wb In Workbooks
        If wb.Name = buf Then
            MsgBox buf & vbCrLf & "はすでに開いています", vbExclamation
            Exit Sub
        End If
    Next wb
    ''ここでブックを開く
    Workbooks.Open Target
End Sub
-------------------------------------------------

Sub prcWorkBooksOpen()

'①ワークブックを開きます
Workbooks.Open Filename:="c:\happy\リスト.xls"

'②CSVファイルを開きます
Workbooks.Open Filename:="c:\happy\データ.csv"

End Sub

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13128405733

diogenes412323さん

マクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいい？

visual basic を立ち上げ、コードを記述したとします。
そのマクロをすべてのエクセルファイルに適用できるようにするにはどうしたらいいのでしょうか？
現在はとあるエクセルファイルにマクロを入れておいて
そのファイルを立ち上げておいて
別のエクセルファイルを立ち上げ（ｃｓｖファイルだったりもします）
マクロを実行しています。
なんか手間がかかりすぎるのですが
もっとスマートな方法はないのでしょうか？

作ったばかりのｃｓｖファイルにすぐマクロを適用したい時に
もっと簡単にやれればいいのですが。

どこかのサイトで見かけた記述ですが
マクロはコレクションとして
ひとまとめにしておくとか書いてありましたが
何のことかわかりません。
どうやるのでしょうか？

• 

• 質問日時：

  2014/5/1 00:52:26

• 残り時間：

  期限切れ

• 閲覧数：

  88

  回答数：

  2

お礼：

知恵コイン

50枚

回答

（2件中1〜2件）

rivoisuさん

アドインにして登録すればどのブックでも使えるようになります。

私は「自作関数Function〜End Function」をアドインにした経験はあるのですがマクロ（Sub〜End Sub)もできるはずです。

関数と違ってマクロの場合はどのように起動するかが問題になります。
ショートカットができるかどうかは試してないのでわかりません。
右クリックメニューから起動するようにする方法が書かれています。
https://sites.google.com/site/compositiosystemae/home/vbaworld/midd...
が参考になるかと思います。

• 

回答日時：2014/5/1 11:01:38

xls88_1さん

個人用マクロブックに記述保存するようにします。
＜参考＞
個人用マクロブックを作る
http://kokodane.com/macro10.htm

ショートカットキーを割り当てる
マクロボタンをクイックアクセスツールバーに置く
とかすれば起動が簡単になります。
既存のExcelショートカットキーと被らないように注意してください。
マクロのショートカットキーが優先されます。
＜参考＞
ショートカットキーによるマクロの実行
http://www.officepro.jp/excelmacro/run/index1.html
マクロにショートカットキーを設定する
http://www.moug.net/tech/exvba/0150112.html

• 

回答日時：2014/5/1 01:23:23