自作アドインの使い方

質問

エクセルで自作マクロを作りました。
内容的にはsheet1の全国の名簿を、都道府県単位でエクセルファイルに
ふりわけるというものです。マクロ名は、furiwakeとしました。
これを「ふりわけ.xla」としておきました。
「ツール」→「アドイン」で有効なアドインとして「レ」を
つけました。ここまではいいんです。

それでさっそく今月の「全国の名簿」を都道府県単位でエクセルファイルに振り分けたいのですが、どこを押せば、furiwakeマクロは実行されるのでしょうか？

回答No.5

Wendy02 · ベストアンサー

こんばんは。

アドインは、本格的なものは、なかなか難しいのですが、簡単なものですと、通常、ツールバーに入れてあげるようにします。

>「ふりわけ.xla」ファイルはPCの
>どこにおいてあっても大丈夫でしょうか？

アドインの基本的なことなのですが……。公開アドインを出している人でも、ここらがいい加減の人もいますが、私などは、配布する場合は、インストーラーを使います。
これは、バージョンによっても変わってきます。

C:\Documents and Settings\[User ID]\Application Data\Microsoft\AddIns\

必ずしも、以下が正しいわけではありませんが、例えば、フローティングバーを作る場合、このようなものになります。Office 2007 では、以下は、アドインというメニューの中に入ってしまいます。

ただ、私個人は、フローティングバーは好きではありませんが、アドインで、そういう作り方をする人が多いです。どんなスタイルでも、Temporary 属性は、不可欠ですから、忘れないようにしてください。
Office 2007 では、以下のコードは、あまりお勧めできません。

Sub FloatingMenu()
Dim myCBCtrl As CommandBar
Dim my_Ctrl As CommandBarControl
　On Error Resume Next
　　CommandBars("MyMacro").Delete
　On Error GoTo 0

　Set myCBCtrl = CommandBars.Add(Name:="MyMacro", _
　Position:=msoBarFloating, _
　MenuBar:=False, _
　Temporary:=True)
　Set my_Ctrl = myCBCtrl.Controls.Add(Type:=msoControlButton)
　With my_Ctrl
　　.Caption = "新マクロ1"
　　.OnAction = "UserMarco"
　End With
　myCBCtrl.Visible = True
End Sub
Public Sub UserMarco()
　MsgBox Time
End Sub

お礼

ありがとうございます

すみません、私にはハードルが高すぎる無いようです。
理解できなくてすみません。

まずはあらかじめ「ふりわけ.xla」を別ロケの２名にメールで送って、
ツール　→　アドイン　→　「ふりわけ.xla」に「レ」を
やってもうこととします。
そして私が二人に「sheet1の全国の名簿」に相当するファイルを
毎月送る時に、ボタン代わりのオートシェイプをsheet1に作って
おこうかと考えています。そのつどVBE画面を開いて、コードを
こぴぺする手間だけは省きたいのです。

私は素人ゆえ、この方法より難しいことは無理かもしれません。
ひとまず、コレでやってみようと思います。